io.streams.256color: faster by caching styles

[factor.git] / vm / sampling_profiler.cpp

diff --git a/vm/sampling_profiler.cpp b/vm/sampling_profiler.cpp
index 30680b73f0be2247a9c3a495c3c102dd75c4a191..0388feaf070e78d46ee9d08f1400385caa756a3b 100644 (file)
--- a/vm/sampling_profiler.cpp
+++ b/vm/sampling_profiler.cpp
@@ -59,7 +59,7 @@ void profiling_sample::clear_counts() volatile {
   atomic::fence();
 }
 
-// Allocates memory (sample_callstacks2->add)
+// Allocates memory
 void factor_vm::record_sample(bool prolog_p) {
   profiling_sample result = current_sample.record_counts();
   if (result.empty()) {
@@ -73,6 +73,9 @@ void factor_vm::record_sample(bool prolog_p) {
 
   bool skip_p = prolog_p;
   auto recorder = [&](cell frame_top, cell size, code_block* owner, cell addr) {
+    (void)frame_top;
+    (void)size;
+    (void)addr;
     if (skip_p)
       skip_p = false;
     else {
@@ -89,14 +92,16 @@ void factor_vm::record_sample(bool prolog_p) {
   samples.push_back(result);
 }
 
-void factor_vm::set_sampling_profiler(fixnum rate) {
-  bool running_p = (atomic::load(&sampling_profiler_p) != 0);
+// Allocates memory
+void factor_vm::set_profiling(fixnum rate) {
+  bool running_p = atomic::load(&sampling_profiler_p);
   if (rate > 0 && !running_p)
     start_sampling_profiler(rate);
   else if (rate == 0 && running_p)
     end_sampling_profiler();
 }
 
+// Allocates memory
 void factor_vm::start_sampling_profiler(fixnum rate) {
   special_objects[OBJ_SAMPLE_CALLSTACKS] = tag<array>(allot_growarr());
   samples_per_second = rate;
@@ -115,8 +120,9 @@ void factor_vm::end_sampling_profiler() {
   record_sample(false);
 }
 
-void factor_vm::primitive_sampling_profiler() {
-  set_sampling_profiler(to_fixnum(ctx->pop()));
+// Allocates memory
+void factor_vm::primitive_set_profiling() {
+  set_profiling(to_fixnum(ctx->pop()));
 }
 
 // Allocates memory