]> gitweb.factorcode.org Git - factor.git/blob - vm/vm.cpp
b0bae8b778ffdaa955b0aca77d12962d7e17394f
[factor.git] / vm / vm.cpp
1 #include "master.hpp"
2
3 namespace factor {
4
5 factor_vm::factor_vm(THREADHANDLE thread)
6     : ctx(NULL),
7       nursery(0, 0),
8       faulting_p(false),
9       thread(thread),
10       callback_id(0),
11       c_to_factor_func(NULL),
12       sampling_profiler_p(false),
13       signal_pipe_input(0),
14       signal_pipe_output(0),
15       sample_counts(0, 0, 0, 0, 0),
16       gc_off(false),
17       data(NULL), code(NULL), callbacks(NULL),
18       current_gc(NULL),
19       current_gc_p(false),
20       current_jit_count(0),
21       gc_events(NULL),
22       fep_p(false),
23       fep_help_was_shown(false),
24       fep_disabled(false),
25       full_output(false),
26       last_nano_count(0),
27       signal_callstack_seg(NULL),
28       safepoint_fep_p(false) {
29   primitive_reset_dispatch_stats();
30 }
31
32 factor_vm::~factor_vm() {
33   free(alien_offset(special_objects[OBJ_EXECUTABLE]));
34   free(alien_offset(special_objects[OBJ_IMAGE]));
35   close_console();
36   FACTOR_ASSERT(!ctx);
37   FACTOR_FOR_EACH(unused_contexts) {
38     delete *iter;
39   }
40   FACTOR_FOR_EACH(active_contexts) {
41     delete *iter;
42   }
43   if (callbacks)
44     delete callbacks;
45   if (data)
46     delete data;
47   if (code)
48     delete code;
49   if (signal_callstack_seg) {
50     delete signal_callstack_seg;
51     signal_callstack_seg = NULL;
52   }
53   FACTOR_FOR_EACH(function_descriptors) {
54     delete[] * iter;
55   }
56 }
57
58 }