vm/primitives.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 const primitive_type primitives[] = {
   7         primitive_bignum_to_fixnum,
   8         primitive_float_to_fixnum,
   9         primitive_fixnum_to_bignum,
  10         primitive_float_to_bignum,
  11         primitive_fixnum_to_float,
  12         primitive_bignum_to_float,
  13         primitive_str_to_float,
  14         primitive_float_to_str,
  15         primitive_float_bits,
  16         primitive_double_bits,
  17         primitive_bits_float,
  18         primitive_bits_double,
  19         primitive_fixnum_add,
  20         primitive_fixnum_subtract,
  21         primitive_fixnum_multiply,
  22         primitive_fixnum_divint,
  23         primitive_fixnum_divmod,
  24         primitive_fixnum_shift,
  25         primitive_bignum_eq,
  26         primitive_bignum_add,
  27         primitive_bignum_subtract,
  28         primitive_bignum_multiply,
  29         primitive_bignum_divint,
  30         primitive_bignum_mod,
  31         primitive_bignum_divmod,
  32         primitive_bignum_and,
  33         primitive_bignum_or,
  34         primitive_bignum_xor,
  35         primitive_bignum_not,
  36         primitive_bignum_shift,
  37         primitive_bignum_less,
  38         primitive_bignum_lesseq,
  39         primitive_bignum_greater,
  40         primitive_bignum_greatereq,
  41         primitive_bignum_bitp,
  42         primitive_bignum_log2,
  43         primitive_byte_array_to_bignum,
  44         primitive_float_eq,
  45         primitive_float_add,
  46         primitive_float_subtract,
  47         primitive_float_multiply,
  48         primitive_float_divfloat,
  49         primitive_float_mod,
  50         primitive_float_less,
  51         primitive_float_lesseq,
  52         primitive_float_greater,
  53         primitive_float_greatereq,
  54         /* The unordered comparison primitives don't have a non-optimizing
  55         compiler implementation */
  56         primitive_float_less,
  57         primitive_float_lesseq,
  58         primitive_float_greater,
  59         primitive_float_greatereq,
  60         primitive_word,
  61         primitive_word_xt,
  62         primitive_getenv,
  63         primitive_setenv,
  64         primitive_existsp,
  65         primitive_gc,
  66         primitive_gc_stats,
  67         primitive_save_image,
  68         primitive_save_image_and_exit,
  69         primitive_datastack,
  70         primitive_retainstack,
  71         primitive_callstack,
  72         primitive_set_datastack,
  73         primitive_set_retainstack,
  74         primitive_set_callstack,
  75         primitive_exit,
  76         primitive_data_room,
  77         primitive_code_room,
  78         primitive_micros,
  79         primitive_modify_code_heap,
  80         primitive_dlopen,
  81         primitive_dlsym,
  82         primitive_dlclose,
  83         primitive_byte_array,
  84         primitive_uninitialized_byte_array,
  85         primitive_displaced_alien,
  86         primitive_alien_signed_cell,
  87         primitive_set_alien_signed_cell,
  88         primitive_alien_unsigned_cell,
  89         primitive_set_alien_unsigned_cell,
  90         primitive_alien_signed_8,
  91         primitive_set_alien_signed_8,
  92         primitive_alien_unsigned_8,
  93         primitive_set_alien_unsigned_8,
  94         primitive_alien_signed_4,
  95         primitive_set_alien_signed_4,
  96         primitive_alien_unsigned_4,
  97         primitive_set_alien_unsigned_4,
  98         primitive_alien_signed_2,
  99         primitive_set_alien_signed_2,
 100         primitive_alien_unsigned_2,
 101         primitive_set_alien_unsigned_2,
 102         primitive_alien_signed_1,
 103         primitive_set_alien_signed_1,
 104         primitive_alien_unsigned_1,
 105         primitive_set_alien_unsigned_1,
 106         primitive_alien_float,
 107         primitive_set_alien_float,
 108         primitive_alien_double,
 109         primitive_set_alien_double,
 110         primitive_alien_cell,
 111         primitive_set_alien_cell,
 112         primitive_alien_address,
 113         primitive_set_slot,
 114         primitive_string_nth,
 115         primitive_set_string_nth_fast,
 116         primitive_set_string_nth_slow,
 117         primitive_resize_array,
 118         primitive_resize_string,
 119         primitive_array,
 120         primitive_begin_scan,
 121         primitive_next_object,
 122         primitive_end_scan,
 123         primitive_size,
 124         primitive_die,
 125         primitive_fopen,
 126         primitive_fgetc,
 127         primitive_fread,
 128         primitive_fputc,
 129         primitive_fwrite,
 130         primitive_fflush,
 131         primitive_fseek,
 132         primitive_fclose,
 133         primitive_wrapper,
 134         primitive_clone,
 135         primitive_string,
 136         primitive_array_to_quotation,
 137         primitive_quotation_xt,
 138         primitive_tuple,
 139         primitive_profiling,
 140         primitive_become,
 141         primitive_sleep,
 142         primitive_tuple_boa,
 143         primitive_callstack_to_array,
 144         primitive_innermost_stack_frame_executing,
 145         primitive_innermost_stack_frame_scan,
 146         primitive_set_innermost_stack_frame_quot,
 147         primitive_call_clear,
 148         primitive_resize_byte_array,
 149         primitive_dll_validp,
 150         primitive_unimplemented,
 151         primitive_clear_gc_stats,
 152         primitive_jit_compile,
 153         primitive_load_locals,
 154         primitive_check_datastack,
 155         primitive_inline_cache_miss,
 156         primitive_inline_cache_miss_tail,
 157         primitive_mega_cache_miss,
 158         primitive_lookup_method,
 159         primitive_reset_dispatch_stats,
 160         primitive_dispatch_stats,
 161         primitive_reset_inline_cache_stats,
 162         primitive_inline_cache_stats,
 163         primitive_optimized_p,
 164         primitive_quot_compiled_p,
 165         primitive_vm_ptr,
 166 };
 167
 168 }