VM: the (clear-samples) primitive is unused

diff --git a/basis/bootstrap/image/primitives/primitives.factor b/basis/bootstrap/image/primitives/primitives.factor
index 9c971417f98a38894ae149c0b18437928c07f2c4..0de0ed0e74813bdbbfe8469216f310ceb00b17c6 100644 (file)
--- a/basis/bootstrap/image/primitives/primitives.factor
+++ b/basis/bootstrap/image/primitives/primitives.factor
@@ -782,7 +782,6 @@ CONSTANT: all-primitives {
         {
             { "profiling" ( ? -- ) "sampling_profiler" { object } { } f }
             { "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f }
-            { "(clear-samples)" ( -- ) "clear_samples" { } { } f }
         }
     }
     {

diff --git a/basis/tools/profiler/sampling/sampling-tests.factor b/basis/tools/profiler/sampling/sampling-tests.factor
index 14e60019c876b773b4df5921f88769387195f009..91fe547c35c4cdefe6de38f01fc9e39a43dd95bd 100644 (file)
--- a/basis/tools/profiler/sampling/sampling-tests.factor
+++ b/basis/tools/profiler/sampling/sampling-tests.factor
@@ -14,6 +14,5 @@ TUPLE: boom ;
 { } [ [ 300,000 iota [ sq sq sq ] map drop ] profile flat profile. ] unit-test
 { } [ [ 300,000 iota [ sq sq sq ] map drop ] profile top-down profile. ] unit-test
 
-(clear-samples)
 f raw-profile-data set-global
 gc

diff --git a/basis/tools/profiler/sampling/sampling.factor b/basis/tools/profiler/sampling/sampling.factor
index 26dfab192e9db4a94e4021ba9db970fac4197d96..d7e8b44bdad7e3cba5f4ae79d6b03db96ab95787 100644 (file)
--- a/basis/tools/profiler/sampling/sampling.factor
+++ b/basis/tools/profiler/sampling/sampling.factor
@@ -9,7 +9,6 @@ IN: tools.profiler.sampling
 <PRIVATE
 PRIMITIVE: (get-samples) ( -- samples/f )
 PRIMITIVE: profiling ( ? -- )
-PRIMITIVE: (clear-samples) ( -- )
 PRIVATE>
 
 SYMBOL: samples-per-second

diff --git a/vm/primitives.hpp b/vm/primitives.hpp
index 26d520699838453a22b3c14c43e648aba98bfb9a..068246ebdefa79f7be05f515c606320e87b39d1e 100644 (file)
--- a/vm/primitives.hpp
+++ b/vm/primitives.hpp
@@ -12,7 +12,7 @@ namespace factor {
       _(bignum_to_fixnum_strict) _(bignum_xor) _(bits_double) _(bits_float)    \
       _(byte_array) _(callback) _(callback_room)                               \
       _(callstack_bounds) _(callstack_for) _(callstack_to_array)               \
-      _(check_datastack) _(clear_samples) _(clone) _(code_blocks) _(code_room) \
+      _(check_datastack) _(clone) _(code_blocks) _(code_room)                  \
       _(compact_gc) _(compute_identity_hashcode) _(context_object)             \
       _(context_object_for) _(current_callback) _(data_room)                   \
       _(datastack_for) _(die) _(disable_gc_events) _(dispatch_stats)           \

diff --git a/vm/sampling_profiler.cpp b/vm/sampling_profiler.cpp
index abee86b472d4b8469e7ef08964e0f9aa4f3ca5cb..3b1e76c4de9a6d482f2269b15749be0b87ec4d09 100644 (file)
--- a/vm/sampling_profiler.cpp
+++ b/vm/sampling_profiler.cpp
@@ -148,6 +148,4 @@ void factor_vm::primitive_get_samples() {
   }
 }
 
-void factor_vm::primitive_clear_samples() { clear_samples(); }
-
 }

diff --git a/vm/vm.hpp b/vm/vm.hpp
index 3dbedd57bf0c16413bbc1b135a6c38d156309e3e..357955b45ab533692636dbfdc31b470c6ab66bb5 100644 (file)
--- a/vm/vm.hpp
+++ b/vm/vm.hpp
@@ -198,7 +198,6 @@ struct factor_vm {
   void set_sampling_profiler(fixnum rate);
   void primitive_sampling_profiler();
   void primitive_get_samples();
-  void primitive_clear_samples();
 
   // errors
   void general_error(vm_error_type error, cell arg1, cell arg2);