59 lines
1.7 KiB
C
59 lines
1.7 KiB
C
DLLEXPORT CELL alien_temp;
|
|
|
|
INLINE ALIEN* untag_alien_fast(CELL tagged)
|
|
{
|
|
return (ALIEN*)UNTAG(tagged);
|
|
}
|
|
|
|
ALIEN *make_alien(CELL delegate, CELL displacement);
|
|
|
|
void primitive_expired(void);
|
|
void primitive_displaced_alien(void);
|
|
void primitive_alien_address(void);
|
|
|
|
void* alien_offset(CELL object);
|
|
|
|
void fixup_alien(ALIEN* d);
|
|
|
|
DLLEXPORT void *unbox_alien(void);
|
|
DLLEXPORT void box_alien(CELL ptr);
|
|
|
|
void primitive_alien_signed_cell(void);
|
|
void primitive_set_alien_signed_cell(void);
|
|
void primitive_alien_unsigned_cell(void);
|
|
void primitive_set_alien_unsigned_cell(void);
|
|
void primitive_alien_signed_8(void);
|
|
void primitive_set_alien_signed_8(void);
|
|
void primitive_alien_unsigned_8(void);
|
|
void primitive_set_alien_unsigned_8(void);
|
|
void primitive_alien_signed_4(void);
|
|
void primitive_set_alien_signed_4(void);
|
|
void primitive_alien_unsigned_4(void);
|
|
void primitive_set_alien_unsigned_4(void);
|
|
void primitive_alien_signed_2(void);
|
|
void primitive_set_alien_signed_2(void);
|
|
void primitive_alien_unsigned_2(void);
|
|
void primitive_set_alien_unsigned_2(void);
|
|
void primitive_alien_signed_1(void);
|
|
void primitive_set_alien_signed_1(void);
|
|
void primitive_alien_unsigned_1(void);
|
|
void primitive_set_alien_unsigned_1(void);
|
|
void primitive_alien_float(void);
|
|
void primitive_set_alien_float(void);
|
|
void primitive_alien_double(void);
|
|
void primitive_set_alien_double(void);
|
|
|
|
DLLEXPORT void unbox_value_struct(void *dest, CELL size);
|
|
DLLEXPORT void box_value_struct(void *src, CELL size);
|
|
DLLEXPORT void box_value_pair(CELL x, CELL y);
|
|
|
|
INLINE DLL *untag_dll(CELL tagged)
|
|
{
|
|
type_check(DLL_TYPE,tagged);
|
|
return (DLL*)UNTAG(tagged);
|
|
}
|
|
|
|
void primitive_dlopen(void);
|
|
void primitive_dlsym(void);
|
|
void primitive_dlclose(void);
|