factor/vm/sampling_profiler.hpp

namespace factor {

struct profiling_sample_count {
  // Number of samples taken before the safepoint that recorded the sample
  fixnum sample_count;
  // Number of samples taken during GC
  fixnum gc_sample_count;
  // Number of samples taken during unoptimized compiler
  fixnum jit_sample_count;
  // Number of samples taken during foreign code execution
  fixnum foreign_sample_count;
  // Number of samples taken during code execution in non-Factor threads
  fixnum foreign_thread_sample_count;

  profiling_sample_count()
      : sample_count(0),
        gc_sample_count(0),
        jit_sample_count(0),
        foreign_sample_count(0),
        foreign_thread_sample_count(0) {}

  profiling_sample_count(fixnum sample_count, fixnum gc_sample_count,
                         fixnum jit_sample_count, fixnum foreign_sample_count,
                         fixnum foreign_thread_sample_count)
      : sample_count(sample_count),
        gc_sample_count(gc_sample_count),
        jit_sample_count(jit_sample_count),
        foreign_sample_count(foreign_sample_count),
        foreign_thread_sample_count(foreign_thread_sample_count) {}

  bool empty() const {
    return sample_count + gc_sample_count + jit_sample_count +
               foreign_sample_count + foreign_thread_sample_count ==
           0;
  }

  profiling_sample_count record_counts() volatile;
  void clear() volatile;
};

struct profiling_sample {
  // Sample counts
  profiling_sample_count counts;
  // Active thread during sample
  cell thread;
  /* The callstack at safepoint time. Indexes to the beginning and ending
     code_block entries in the vm sample_callstacks array. */
  cell callstack_begin, callstack_end;

  profiling_sample(factor_vm* vm, bool prolog_p,
                   profiling_sample_count const& counts, cell thread);
};

}