vm/primitives.cpp

   1 #include "master.hpp"
   2
   3 namespace factor
   4 {
   5
   6 PRIMITIVE_FORWARD(bignum_to_fixnum)
   7 PRIMITIVE_FORWARD(float_to_fixnum)
   8 PRIMITIVE_FORWARD(fixnum_to_bignum)
   9 PRIMITIVE_FORWARD(float_to_bignum)
  10 PRIMITIVE_FORWARD(fixnum_to_float)
  11 PRIMITIVE_FORWARD(bignum_to_float)
  12 PRIMITIVE_FORWARD(str_to_float)
  13 PRIMITIVE_FORWARD(float_to_str)
  14 PRIMITIVE_FORWARD(float_bits)
  15 PRIMITIVE_FORWARD(double_bits)
  16 PRIMITIVE_FORWARD(bits_float)
  17 PRIMITIVE_FORWARD(bits_double)
  18 PRIMITIVE_FORWARD(fixnum_divint)
  19 PRIMITIVE_FORWARD(fixnum_divmod)
  20 PRIMITIVE_FORWARD(fixnum_shift)
  21 PRIMITIVE_FORWARD(bignum_eq)
  22 PRIMITIVE_FORWARD(bignum_add)
  23 PRIMITIVE_FORWARD(bignum_subtract)
  24 PRIMITIVE_FORWARD(bignum_multiply)
  25 PRIMITIVE_FORWARD(bignum_divint)
  26 PRIMITIVE_FORWARD(bignum_mod)
  27 PRIMITIVE_FORWARD(bignum_divmod)
  28 PRIMITIVE_FORWARD(bignum_and)
  29 PRIMITIVE_FORWARD(bignum_or)
  30 PRIMITIVE_FORWARD(bignum_xor)
  31 PRIMITIVE_FORWARD(bignum_not)
  32 PRIMITIVE_FORWARD(bignum_shift)
  33 PRIMITIVE_FORWARD(bignum_less)
  34 PRIMITIVE_FORWARD(bignum_lesseq)
  35 PRIMITIVE_FORWARD(bignum_greater)
  36 PRIMITIVE_FORWARD(bignum_greatereq)
  37 PRIMITIVE_FORWARD(bignum_bitp)
  38 PRIMITIVE_FORWARD(bignum_log2)
  39 PRIMITIVE_FORWARD(byte_array_to_bignum)
  40 PRIMITIVE_FORWARD(float_eq)
  41 PRIMITIVE_FORWARD(float_add)
  42 PRIMITIVE_FORWARD(float_subtract)
  43 PRIMITIVE_FORWARD(float_multiply)
  44 PRIMITIVE_FORWARD(float_divfloat)
  45 PRIMITIVE_FORWARD(float_mod)
  46 PRIMITIVE_FORWARD(float_less)
  47 PRIMITIVE_FORWARD(float_lesseq)
  48 PRIMITIVE_FORWARD(float_greater)
  49 PRIMITIVE_FORWARD(float_greatereq)
  50 PRIMITIVE_FORWARD(word)
  51 PRIMITIVE_FORWARD(word_xt)
  52 PRIMITIVE_FORWARD(special_object)
  53 PRIMITIVE_FORWARD(set_special_object)
  54 PRIMITIVE_FORWARD(existsp)
  55 PRIMITIVE_FORWARD(minor_gc)
  56 PRIMITIVE_FORWARD(full_gc)
  57 PRIMITIVE_FORWARD(compact_gc)
  58 PRIMITIVE_FORWARD(save_image)
  59 PRIMITIVE_FORWARD(save_image_and_exit)
  60 PRIMITIVE_FORWARD(datastack)
  61 PRIMITIVE_FORWARD(retainstack)
  62 PRIMITIVE_FORWARD(callstack)
  63 PRIMITIVE_FORWARD(set_datastack)
  64 PRIMITIVE_FORWARD(set_retainstack)
  65 PRIMITIVE_FORWARD(set_callstack)
  66 PRIMITIVE_FORWARD(exit)
  67 PRIMITIVE_FORWARD(data_room)
  68 PRIMITIVE_FORWARD(code_room)
  69 PRIMITIVE_FORWARD(micros)
  70 PRIMITIVE_FORWARD(modify_code_heap)
  71 PRIMITIVE_FORWARD(dlopen)
  72 PRIMITIVE_FORWARD(dlsym)
  73 PRIMITIVE_FORWARD(dlclose)
  74 PRIMITIVE_FORWARD(byte_array)
  75 PRIMITIVE_FORWARD(uninitialized_byte_array)
  76 PRIMITIVE_FORWARD(displaced_alien)
  77 PRIMITIVE_FORWARD(alien_address)
  78 PRIMITIVE_FORWARD(set_slot)
  79 PRIMITIVE_FORWARD(string_nth)
  80 PRIMITIVE_FORWARD(set_string_nth_fast)
  81 PRIMITIVE_FORWARD(set_string_nth_slow)
  82 PRIMITIVE_FORWARD(resize_array)
  83 PRIMITIVE_FORWARD(resize_string)
  84 PRIMITIVE_FORWARD(array)
  85 PRIMITIVE_FORWARD(all_instances)
  86 PRIMITIVE_FORWARD(size)
  87 PRIMITIVE_FORWARD(die)
  88 PRIMITIVE_FORWARD(fopen)
  89 PRIMITIVE_FORWARD(fgetc)
  90 PRIMITIVE_FORWARD(fread)
  91 PRIMITIVE_FORWARD(fputc)
  92 PRIMITIVE_FORWARD(fwrite)
  93 PRIMITIVE_FORWARD(fflush)
  94 PRIMITIVE_FORWARD(ftell)
  95 PRIMITIVE_FORWARD(fseek)
  96 PRIMITIVE_FORWARD(fclose)
  97 PRIMITIVE_FORWARD(wrapper)
  98 PRIMITIVE_FORWARD(clone)
  99 PRIMITIVE_FORWARD(string)
 100 PRIMITIVE_FORWARD(array_to_quotation)
 101 PRIMITIVE_FORWARD(quotation_xt)
 102 PRIMITIVE_FORWARD(tuple)
 103 PRIMITIVE_FORWARD(profiling)
 104 PRIMITIVE_FORWARD(become)
 105 PRIMITIVE_FORWARD(sleep)
 106 PRIMITIVE_FORWARD(tuple_boa)
 107 PRIMITIVE_FORWARD(callstack_to_array)
 108 PRIMITIVE_FORWARD(innermost_stack_frame_executing)
 109 PRIMITIVE_FORWARD(innermost_stack_frame_scan)
 110 PRIMITIVE_FORWARD(set_innermost_stack_frame_quot)
 111 PRIMITIVE_FORWARD(call_clear)
 112 PRIMITIVE_FORWARD(resize_byte_array)
 113 PRIMITIVE_FORWARD(dll_validp)
 114 PRIMITIVE_FORWARD(unimplemented)
 115 PRIMITIVE_FORWARD(jit_compile)
 116 PRIMITIVE_FORWARD(load_locals)
 117 PRIMITIVE_FORWARD(check_datastack)
 118 PRIMITIVE_FORWARD(mega_cache_miss)
 119 PRIMITIVE_FORWARD(lookup_method)
 120 PRIMITIVE_FORWARD(reset_dispatch_stats)
 121 PRIMITIVE_FORWARD(dispatch_stats)
 122 PRIMITIVE_FORWARD(optimized_p)
 123 PRIMITIVE_FORWARD(quot_compiled_p)
 124 PRIMITIVE_FORWARD(vm_ptr)
 125 PRIMITIVE_FORWARD(strip_stack_traces)
 126 PRIMITIVE_FORWARD(callback)
 127 PRIMITIVE_FORWARD(enable_gc_events)
 128 PRIMITIVE_FORWARD(disable_gc_events)
 129 PRIMITIVE_FORWARD(identity_hashcode)
 130
 131 const primitive_type primitives[] = {
 132         primitive_bignum_to_fixnum,
 133         primitive_float_to_fixnum,
 134         primitive_fixnum_to_bignum,
 135         primitive_float_to_bignum,
 136         primitive_fixnum_to_float,
 137         primitive_bignum_to_float,
 138         primitive_str_to_float,
 139         primitive_float_to_str,
 140         primitive_float_bits,
 141         primitive_double_bits,
 142         primitive_bits_float,
 143         primitive_bits_double,
 144         primitive_fixnum_add,
 145         primitive_fixnum_subtract,
 146         primitive_fixnum_multiply,
 147         primitive_fixnum_divint,
 148         primitive_fixnum_divmod,
 149         primitive_fixnum_shift,
 150         primitive_bignum_eq,
 151         primitive_bignum_add,
 152         primitive_bignum_subtract,
 153         primitive_bignum_multiply,
 154         primitive_bignum_divint,
 155         primitive_bignum_mod,
 156         primitive_bignum_divmod,
 157         primitive_bignum_and,
 158         primitive_bignum_or,
 159         primitive_bignum_xor,
 160         primitive_bignum_not,
 161         primitive_bignum_shift,
 162         primitive_bignum_less,
 163         primitive_bignum_lesseq,
 164         primitive_bignum_greater,
 165         primitive_bignum_greatereq,
 166         primitive_bignum_bitp,
 167         primitive_bignum_log2,
 168         primitive_byte_array_to_bignum,
 169         primitive_float_eq,
 170         primitive_float_add,
 171         primitive_float_subtract,
 172         primitive_float_multiply,
 173         primitive_float_divfloat,
 174         primitive_float_mod,
 175         primitive_float_less,
 176         primitive_float_lesseq,
 177         primitive_float_greater,
 178         primitive_float_greatereq,
 179         /* The unordered comparison primitives don't have a non-optimizing
 180         compiler implementation */
 181         primitive_float_less,
 182         primitive_float_lesseq,
 183         primitive_float_greater,
 184         primitive_float_greatereq,
 185         primitive_word,
 186         primitive_word_xt,
 187         primitive_special_object,
 188         primitive_set_special_object,
 189         primitive_existsp,
 190         primitive_minor_gc,
 191         primitive_full_gc,
 192         primitive_compact_gc,
 193         primitive_save_image,
 194         primitive_save_image_and_exit,
 195         primitive_datastack,
 196         primitive_retainstack,
 197         primitive_callstack,
 198         primitive_set_datastack,
 199         primitive_set_retainstack,
 200         primitive_set_callstack,
 201         primitive_exit,
 202         primitive_data_room,
 203         primitive_code_room,
 204         primitive_micros,
 205         primitive_modify_code_heap,
 206         primitive_dlopen,
 207         primitive_dlsym,
 208         primitive_dlclose,
 209         primitive_byte_array,
 210         primitive_uninitialized_byte_array,
 211         primitive_displaced_alien,
 212         primitive_alien_signed_cell,
 213         primitive_set_alien_signed_cell,
 214         primitive_alien_unsigned_cell,
 215         primitive_set_alien_unsigned_cell,
 216         primitive_alien_signed_8,
 217         primitive_set_alien_signed_8,
 218         primitive_alien_unsigned_8,
 219         primitive_set_alien_unsigned_8,
 220         primitive_alien_signed_4,
 221         primitive_set_alien_signed_4,
 222         primitive_alien_unsigned_4,
 223         primitive_set_alien_unsigned_4,
 224         primitive_alien_signed_2,
 225         primitive_set_alien_signed_2,
 226         primitive_alien_unsigned_2,
 227         primitive_set_alien_unsigned_2,
 228         primitive_alien_signed_1,
 229         primitive_set_alien_signed_1,
 230         primitive_alien_unsigned_1,
 231         primitive_set_alien_unsigned_1,
 232         primitive_alien_float,
 233         primitive_set_alien_float,
 234         primitive_alien_double,
 235         primitive_set_alien_double,
 236         primitive_alien_cell,
 237         primitive_set_alien_cell,
 238         primitive_alien_address,
 239         primitive_set_slot,
 240         primitive_string_nth,
 241         primitive_set_string_nth_fast,
 242         primitive_set_string_nth_slow,
 243         primitive_resize_array,
 244         primitive_resize_string,
 245         primitive_array,
 246         primitive_all_instances,
 247         primitive_size,
 248         primitive_die,
 249         primitive_fopen,
 250         primitive_fgetc,
 251         primitive_fread,
 252         primitive_fputc,
 253         primitive_fwrite,
 254         primitive_fflush,
 255         primitive_ftell,
 256         primitive_fseek,
 257         primitive_fclose,
 258         primitive_wrapper,
 259         primitive_clone,
 260         primitive_string,
 261         primitive_array_to_quotation,
 262         primitive_quotation_xt,
 263         primitive_tuple,
 264         primitive_profiling,
 265         primitive_become,
 266         primitive_sleep,
 267         primitive_tuple_boa,
 268         primitive_callstack_to_array,
 269         primitive_innermost_stack_frame_executing,
 270         primitive_innermost_stack_frame_scan,
 271         primitive_set_innermost_stack_frame_quot,
 272         primitive_call_clear,
 273         primitive_resize_byte_array,
 274         primitive_dll_validp,
 275         primitive_unimplemented,
 276         primitive_jit_compile,
 277         primitive_load_locals,
 278         primitive_check_datastack,
 279         primitive_inline_cache_miss,
 280         primitive_inline_cache_miss_tail,
 281         primitive_mega_cache_miss,
 282         primitive_lookup_method,
 283         primitive_reset_dispatch_stats,
 284         primitive_dispatch_stats,
 285         primitive_optimized_p,
 286         primitive_quot_compiled_p,
 287         primitive_vm_ptr,
 288         primitive_strip_stack_traces,
 289         primitive_callback,
 290         primitive_enable_gc_events,
 291         primitive_disable_gc_events,
 292         primitive_identity_hashcode,
 293 };
 294
 295 }