]> gitweb.factorcode.org Git - factor.git/blob - vm/vm.cpp
VM: more stuff to deallocate in the destructor
[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       gc_off(false),
16       data(NULL),
17       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() {
29   primitive_reset_dispatch_stats();
30 }
31
32 factor_vm::~factor_vm() {
33   FACTOR_ASSERT(!ctx);
34   FACTOR_FOR_EACH(unused_contexts) {
35     delete *iter;
36   }
37   FACTOR_FOR_EACH(active_contexts) {
38     delete *iter;
39   }
40   if (callbacks)
41     delete callbacks;
42   if (data)
43     delete data;
44   if (signal_callstack_seg) {
45     delete signal_callstack_seg;
46     signal_callstack_seg = NULL;
47   }
48   FACTOR_FOR_EACH(function_descriptors) {
49     delete[] * iter;
50   }
51 }
52
53 }