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";
41 if (stop_on_ctrl_break) {
42 /* Ctrl-Break throws an exception, interrupting the main thread, same
43 as the "t" command in the factorbug debugger. But for Ctrl-Break to
44 work we don't require the debugger to be activated, or even enabled. */
45 atomic::store(&safepoint_fep_p, false);
46 general_error(ERROR_INTERRUPT, false_object, false_object);
50 atomic::store(&safepoint_fep_p, false);
51 } else if (atomic::load(&sampling_profiler_p)) {
52 FACTOR_ASSERT(code->seg->in_segment_p(pc));
53 code_block* block = code->code_block_for_address(pc);
54 bool prolog_p = block->entry_point() == pc;
56 record_sample(prolog_p);