vm: strip out call-counting profiler

[factor.git] / vm / primitives.hpp

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index cf52168231f24afafe07876b2c897218e36ad4a9..7884cf2e30c9442aebb3360793debbbe0e8b6474 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -27,18 +27,17 @@ namespace factor
        _(bignum_shift) \
        _(bignum_subtract) \
        _(bignum_to_fixnum) \
-       _(bignum_to_float) \
        _(bignum_xor) \
        _(bits_double) \
        _(bits_float) \
        _(byte_array) \
-       _(byte_array_to_bignum) \
        _(callback) \
        _(callstack) \
        _(callstack_bounds) \
        _(callstack_for) \
        _(callstack_to_array) \
        _(check_datastack) \
+       _(clear_samples) \
        _(clone) \
        _(code_blocks) \
        _(code_room) \
@@ -58,6 +57,7 @@ namespace factor
        _(dll_validp) \
        _(dlopen) \
        _(dlsym) \
+       _(dlsym_raw) \
        _(double_bits) \
        _(enable_gc_events) \
        _(existsp) \
@@ -78,7 +78,6 @@ namespace factor
        _(float_greatereq) \
        _(float_less) \
        _(float_lesseq) \
-       _(float_mod) \
        _(float_multiply) \
        _(float_subtract) \
        _(float_to_bignum) \
@@ -91,6 +90,7 @@ namespace factor
        _(ftell) \
        _(full_gc) \
        _(fwrite) \
+       _(get_samples) \
        _(identity_hashcode) \
        _(innermost_stack_frame_executing) \
        _(innermost_stack_frame_scan) \
@@ -102,7 +102,6 @@ namespace factor
        _(modify_code_heap) \
        _(nano_count) \
        _(optimized_p) \
-       _(profiling) \
        _(quot_compiled_p) \
        _(quotation_code) \
        _(reset_dispatch_stats) \
@@ -111,6 +110,7 @@ namespace factor
        _(resize_string) \
        _(retainstack) \
        _(retainstack_for) \
+       _(sampling_profiler) \
        _(save_image) \
        _(save_image_and_exit) \
        _(set_context_object) \
@@ -125,7 +125,6 @@ namespace factor
        _(special_object) \
        _(string) \
        _(strip_stack_traces) \
-       _(system_micros) \
        _(tuple) \
        _(tuple_boa) \
        _(unimplemented) \
@@ -139,14 +138,14 @@ namespace factor
        _(unsigned_cell,cell,from_unsigned_cell,to_cell) \
        _(signed_8,s64,from_signed_8,to_signed_8) \
        _(unsigned_8,u64,from_unsigned_8,to_unsigned_8) \
-       _(signed_4,s32,from_signed_4,to_fixnum) \
-       _(unsigned_4,u32,from_unsigned_4,to_cell) \
-       _(signed_2,s16,from_signed_2,to_fixnum) \
-       _(unsigned_2,u16,from_unsigned_2,to_cell) \
-       _(signed_1,s8,from_signed_1,to_fixnum) \
-       _(unsigned_1,u8,from_unsigned_1,to_cell) \
-       _(float,float,from_float,to_float) \
-       _(double,double,from_double,to_double) \
+       _(signed_4,s32,from_signed_cell,to_fixnum) \
+       _(unsigned_4,u32,from_unsigned_cell,to_cell) \
+       _(signed_2,s16,from_signed_cell,to_fixnum) \
+       _(unsigned_2,u16,from_unsigned_cell,to_cell) \
+       _(signed_1,s8,from_signed_cell,to_fixnum) \
+       _(unsigned_1,u8,from_unsigned_cell,to_cell) \
+       _(float,float,allot_float,to_float) \
+       _(double,double,allot_float,to_double) \
        _(cell,void *,allot_alien,pinned_alien_offset)
 
 #define DECLARE_PRIMITIVE(name) VM_C_API void primitive_##name(factor_vm *parent);