57 lines
1.7 KiB
C++
57 lines
1.7 KiB
C++
namespace factor
|
|
{
|
|
|
|
#if defined(FACTOR_X86)
|
|
extern "C" __attribute__ ((regparm (1))) typedef void (*primitive_type)(void *myvm);
|
|
#define PRIMITIVE(name) extern "C" __attribute__ ((regparm (1))) void primitive_##name(void *myvm)
|
|
#define PRIMITIVE_FORWARD(name) extern "C" __attribute__ ((regparm (1))) void primitive_##name(void *myvm) \
|
|
{ \
|
|
((factor_vm*)myvm)->primitive_##name(); \
|
|
}
|
|
#else
|
|
extern "C" typedef void (*primitive_type)(void *myvm);
|
|
#define PRIMITIVE(name) extern "C" void primitive_##name(void *myvm)
|
|
#define PRIMITIVE_FORWARD(name) extern "C" void primitive_##name(void *myvm) \
|
|
{ \
|
|
((factor_vm*)myvm)->primitive_##name(); \
|
|
}
|
|
#endif
|
|
extern const primitive_type primitives[];
|
|
|
|
/* These are defined in assembly */
|
|
PRIMITIVE(fixnum_add);
|
|
PRIMITIVE(fixnum_subtract);
|
|
PRIMITIVE(fixnum_multiply);
|
|
PRIMITIVE(inline_cache_miss);
|
|
PRIMITIVE(inline_cache_miss_tail);
|
|
|
|
/* These are generated with macros in alien.c */
|
|
PRIMITIVE(alien_signed_cell);
|
|
PRIMITIVE(set_alien_signed_cell);
|
|
PRIMITIVE(alien_unsigned_cell);
|
|
PRIMITIVE(set_alien_unsigned_cell);
|
|
PRIMITIVE(alien_signed_8);
|
|
PRIMITIVE(set_alien_signed_8);
|
|
PRIMITIVE(alien_unsigned_8);
|
|
PRIMITIVE(set_alien_unsigned_8);
|
|
PRIMITIVE(alien_signed_4);
|
|
PRIMITIVE(set_alien_signed_4);
|
|
PRIMITIVE(alien_unsigned_4);
|
|
PRIMITIVE(set_alien_unsigned_4);
|
|
PRIMITIVE(alien_signed_2);
|
|
PRIMITIVE(set_alien_signed_2);
|
|
PRIMITIVE(alien_unsigned_2);
|
|
PRIMITIVE(set_alien_unsigned_2);
|
|
PRIMITIVE(alien_signed_1);
|
|
PRIMITIVE(set_alien_signed_1);
|
|
PRIMITIVE(alien_unsigned_1);
|
|
PRIMITIVE(set_alien_unsigned_1);
|
|
PRIMITIVE(alien_float);
|
|
PRIMITIVE(set_alien_float);
|
|
PRIMITIVE(alien_double);
|
|
PRIMITIVE(set_alien_double);
|
|
PRIMITIVE(alien_cell);
|
|
PRIMITIVE(set_alien_cell);
|
|
|
|
}
|