vm: strip out call-counting profiler

[factor.git] / vm / primitives.hpp

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index 4d72cf1abbdf7b3060cd82f3c6935d0354a08420..7884cf2e30c9442aebb3360793debbbe0e8b6474 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -27,28 +27,28 @@ namespace factor
        _(bignum_shift) \
        _(bignum_subtract) \
        _(bignum_to_fixnum) \
-       _(bignum_to_float) \
        _(bignum_xor) \
        _(bits_double) \
        _(bits_float) \
        _(byte_array) \
-       _(byte_array_to_bignum) \
-       _(call_clear) \
        _(callback) \
        _(callstack) \
+       _(callstack_bounds) \
+       _(callstack_for) \
        _(callstack_to_array) \
        _(check_datastack) \
+       _(clear_samples) \
        _(clone) \
        _(code_blocks) \
        _(code_room) \
        _(compact_gc) \
        _(compute_identity_hashcode) \
-       _(context) \
        _(context_object) \
+       _(context_object_for) \
        _(current_callback) \
        _(data_room) \
        _(datastack) \
-       _(delete_context) \
+       _(datastack_for) \
        _(die) \
        _(disable_gc_events) \
        _(dispatch_stats) \
@@ -57,6 +57,7 @@ namespace factor
        _(dll_validp) \
        _(dlopen) \
        _(dlsym) \
+       _(dlsym_raw) \
        _(double_bits) \
        _(enable_gc_events) \
        _(existsp) \
@@ -77,19 +78,19 @@ namespace factor
        _(float_greatereq) \
        _(float_less) \
        _(float_lesseq) \
-       _(float_mod) \
        _(float_multiply) \
        _(float_subtract) \
        _(float_to_bignum) \
        _(float_to_fixnum) \
-       _(float_to_str) \
        _(fopen) \
+       _(format_float) \
        _(fputc) \
        _(fread) \
        _(fseek) \
        _(ftell) \
        _(full_gc) \
        _(fwrite) \
+       _(get_samples) \
        _(identity_hashcode) \
        _(innermost_stack_frame_executing) \
        _(innermost_stack_frame_scan) \
@@ -101,7 +102,6 @@ namespace factor
        _(modify_code_heap) \
        _(nano_count) \
        _(optimized_p) \
-       _(profiling) \
        _(quot_compiled_p) \
        _(quotation_code) \
        _(reset_dispatch_stats) \
@@ -109,6 +109,8 @@ namespace factor
        _(resize_byte_array) \
        _(resize_string) \
        _(retainstack) \
+       _(retainstack_for) \
+       _(sampling_profiler) \
        _(save_image) \
        _(save_image_and_exit) \
        _(set_context_object) \
@@ -118,14 +120,11 @@ namespace factor
        _(set_slot) \
        _(set_special_object) \
        _(set_string_nth_fast) \
-       _(set_string_nth_slow) \
        _(size) \
        _(sleep) \
        _(special_object) \
        _(string) \
-       _(string_nth) \
        _(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);