factor/vm/primitives.cpp

#include "master.hpp"

void *primitives[] = {
	(void *)primitive_bignum_to_fixnum,
	(void *)primitive_float_to_fixnum,
	(void *)primitive_fixnum_to_bignum,
	(void *)primitive_float_to_bignum,
	(void *)primitive_fixnum_to_float,
	(void *)primitive_bignum_to_float,
	(void *)primitive_str_to_float,
	(void *)primitive_float_to_str,
	(void *)primitive_float_bits,
	(void *)primitive_double_bits,
	(void *)primitive_bits_float,
	(void *)primitive_bits_double,
	(void *)primitive_fixnum_add,
	(void *)primitive_fixnum_subtract,
	(void *)primitive_fixnum_multiply,
	(void *)primitive_fixnum_divint,
	(void *)primitive_fixnum_divmod,
	(void *)primitive_fixnum_shift,
	(void *)primitive_bignum_eq,
	(void *)primitive_bignum_add,
	(void *)primitive_bignum_subtract,
	(void *)primitive_bignum_multiply,
	(void *)primitive_bignum_divint,
	(void *)primitive_bignum_mod,
	(void *)primitive_bignum_divmod,
	(void *)primitive_bignum_and,
	(void *)primitive_bignum_or,
	(void *)primitive_bignum_xor,
	(void *)primitive_bignum_not,
	(void *)primitive_bignum_shift,
	(void *)primitive_bignum_less,
	(void *)primitive_bignum_lesseq,
	(void *)primitive_bignum_greater,
	(void *)primitive_bignum_greatereq,
	(void *)primitive_bignum_bitp,
	(void *)primitive_bignum_log2,
	(void *)primitive_byte_array_to_bignum,
	(void *)primitive_float_eq,
	(void *)primitive_float_add,
	(void *)primitive_float_subtract,
	(void *)primitive_float_multiply,
	(void *)primitive_float_divfloat,
	(void *)primitive_float_mod,
	(void *)primitive_float_less,
	(void *)primitive_float_lesseq,
	(void *)primitive_float_greater,
	(void *)primitive_float_greatereq,
	(void *)primitive_word,
	(void *)primitive_word_xt,
	(void *)primitive_getenv,
	(void *)primitive_setenv,
	(void *)primitive_existsp,
	(void *)primitive_gc,
	(void *)primitive_gc_stats,
	(void *)primitive_save_image,
	(void *)primitive_save_image_and_exit,
	(void *)primitive_datastack,
	(void *)primitive_retainstack,
	(void *)primitive_callstack,
	(void *)primitive_set_datastack,
	(void *)primitive_set_retainstack,
	(void *)primitive_set_callstack,
	(void *)primitive_exit,
	(void *)primitive_data_room,
	(void *)primitive_code_room,
	(void *)primitive_micros,
	(void *)primitive_modify_code_heap,
	(void *)primitive_dlopen,
	(void *)primitive_dlsym,
	(void *)primitive_dlclose,
	(void *)primitive_byte_array,
	(void *)primitive_uninitialized_byte_array,
	(void *)primitive_displaced_alien,
	(void *)primitive_alien_signed_cell,
	(void *)primitive_set_alien_signed_cell,
	(void *)primitive_alien_unsigned_cell,
	(void *)primitive_set_alien_unsigned_cell,
	(void *)primitive_alien_signed_8,
	(void *)primitive_set_alien_signed_8,
	(void *)primitive_alien_unsigned_8,
	(void *)primitive_set_alien_unsigned_8,
	(void *)primitive_alien_signed_4,
	(void *)primitive_set_alien_signed_4,
	(void *)primitive_alien_unsigned_4,
	(void *)primitive_set_alien_unsigned_4,
	(void *)primitive_alien_signed_2,
	(void *)primitive_set_alien_signed_2,
	(void *)primitive_alien_unsigned_2,
	(void *)primitive_set_alien_unsigned_2,
	(void *)primitive_alien_signed_1,
	(void *)primitive_set_alien_signed_1,
	(void *)primitive_alien_unsigned_1,
	(void *)primitive_set_alien_unsigned_1,
	(void *)primitive_alien_float,
	(void *)primitive_set_alien_float,
	(void *)primitive_alien_double,
	(void *)primitive_set_alien_double,
	(void *)primitive_alien_cell,
	(void *)primitive_set_alien_cell,
	(void *)primitive_alien_address,
	(void *)primitive_set_slot,
	(void *)primitive_string_nth,
	(void *)primitive_set_string_nth_fast,
	(void *)primitive_set_string_nth_slow,
	(void *)primitive_resize_array,
	(void *)primitive_resize_string,
	(void *)primitive_array,
	(void *)primitive_begin_scan,
	(void *)primitive_next_object,
	(void *)primitive_end_scan,
	(void *)primitive_size,
	(void *)primitive_die,
	(void *)primitive_fopen,
	(void *)primitive_fgetc,
	(void *)primitive_fread,
	(void *)primitive_fputc,
	(void *)primitive_fwrite,
	(void *)primitive_fflush,
	(void *)primitive_fseek,
	(void *)primitive_fclose,
	(void *)primitive_wrapper,
	(void *)primitive_clone,
	(void *)primitive_string,
	(void *)primitive_array_to_quotation,
	(void *)primitive_quotation_xt,
	(void *)primitive_tuple,
	(void *)primitive_profiling,
	(void *)primitive_become,
	(void *)primitive_sleep,
	(void *)primitive_tuple_boa,
	(void *)primitive_callstack_to_array,
	(void *)primitive_innermost_stack_frame_quot,
	(void *)primitive_innermost_stack_frame_scan,
	(void *)primitive_set_innermost_stack_frame_quot,
	(void *)primitive_call_clear,
	(void *)primitive_resize_byte_array,
	(void *)primitive_dll_validp,
	(void *)primitive_unimplemented,
	(void *)primitive_clear_gc_stats,
	(void *)primitive_jit_compile,
	(void *)primitive_load_locals,
	(void *)primitive_check_datastack,
	(void *)primitive_inline_cache_miss,
	(void *)primitive_mega_cache_miss,
	(void *)primitive_lookup_method,
	(void *)primitive_reset_dispatch_stats,
	(void *)primitive_dispatch_stats,
	(void *)primitive_reset_inline_cache_stats,
	(void *)primitive_inline_cache_stats,
	(void *)primitive_optimized_p,
};