steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

VM: the (clear-samples) primitive is unused

locals-and-roots
Björn Lindqvist 2016-05-05 02:33:35 +02:00
parent bc9f62efde
commit 5826394573
6 changed files with 1 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
basis/bootstrap/image/primitives/primitives.factor
View File

@ -782,7 +782,6 @@ CONSTANT: all-primitives {
{ {
{ "profiling" ( ? -- ) "sampling_profiler" { object } { } f } { "profiling" ( ? -- ) "sampling_profiler" { object } { } f }
{ "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f } { "(get-samples)" ( -- samples/f ) "get_samples" { } { object } f }
{ "(clear-samples)" ( -- ) "clear_samples" { } { } f }
} }
} }
{ {

1
basis/tools/profiler/sampling/sampling-tests.factor
View File

@ -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 flat profile. ] unit-test
{ } [ [ 300,000 iota [ sq sq sq ] map drop ] profile top-down 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 f raw-profile-data set-global
gc gc

1
basis/tools/profiler/sampling/sampling.factor
View File

@ -9,7 +9,6 @@ IN: tools.profiler.sampling
<PRIVATE <PRIVATE
PRIMITIVE: (get-samples) ( -- samples/f ) PRIMITIVE: (get-samples) ( -- samples/f )
PRIMITIVE: profiling ( ? -- ) PRIMITIVE: profiling ( ? -- )
PRIMITIVE: (clear-samples) ( -- )
PRIVATE> PRIVATE>
SYMBOL: samples-per-second SYMBOL: samples-per-second

2
vm/primitives.hpp
View File

@ -12,7 +12,7 @@ namespace factor {
_(bignum_to_fixnum_strict) _(bignum_xor) _(bits_double) _(bits_float) \ _(bignum_to_fixnum_strict) _(bignum_xor) _(bits_double) _(bits_float) \
_(byte_array) _(callback) _(callback_room) \ _(byte_array) _(callback) _(callback_room) \
_(callstack_bounds) _(callstack_for) _(callstack_to_array) \ _(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) \ _(compact_gc) _(compute_identity_hashcode) _(context_object) \
_(context_object_for) _(current_callback) _(data_room) \ _(context_object_for) _(current_callback) _(data_room) \
_(datastack_for) _(die) _(disable_gc_events) _(dispatch_stats) \ _(datastack_for) _(die) _(disable_gc_events) _(dispatch_stats) \

2
vm/sampling_profiler.cpp
View File

@ -148,6 +148,4 @@ void factor_vm::primitive_get_samples() {
} }
} }
void factor_vm::primitive_clear_samples() { clear_samples(); }
} }

1
vm/vm.hpp
View File

@ -198,7 +198,6 @@ struct factor_vm {
void set_sampling_profiler(fixnum rate); void set_sampling_profiler(fixnum rate);
void primitive_sampling_profiler(); void primitive_sampling_profiler();
void primitive_get_samples(); void primitive_get_samples();
void primitive_clear_samples();
// errors // errors
void general_error(vm_error_type error, cell arg1, cell arg2); void general_error(vm_error_type error, cell arg1, cell arg2);