5 void factor_vm::enqueue_fep() {
7 fatal_error("Low-level debugger interrupted", 0);
8 atomic::store(&safepoint_fep_p, true);
9 code->set_safepoint_guard(true);
12 void factor_vm::enqueue_samples(cell samples,
14 bool foreign_thread_p) {
16 if (!atomic::load(&sampling_profiler_p))
18 atomic::fetch_add(&sample_counts.sample_count, samples);
21 atomic::fetch_add(&sample_counts.foreign_thread_sample_count, samples);
23 if (atomic::load(¤t_gc_p))
24 atomic::fetch_add(&sample_counts.gc_sample_count, samples);
25 if (atomic::load(¤t_jit_count) > 0)
26 atomic::fetch_add(&sample_counts.jit_sample_count, samples);
27 if (!code->seg->in_segment_p(pc))
28 atomic::fetch_add(&sample_counts.foreign_sample_count, samples);
30 code->set_safepoint_guard(true);
33 void factor_vm::handle_safepoint(cell pc) {
34 code->set_safepoint_guard(false);
37 if (atomic::load(&safepoint_fep_p)) {
38 if (atomic::load(&sampling_profiler_p))
39 end_sampling_profiler();
40 std::cout << "Interrupted\n";
42 atomic::store(&safepoint_fep_p, false);
43 } else if (atomic::load(&sampling_profiler_p)) {
44 FACTOR_ASSERT(code->seg->in_segment_p(pc));
45 code_block* block = code->code_block_for_address(pc);
46 bool prolog_p = block->entry_point() == pc;
48 record_sample(prolog_p);