]> gitweb.factorcode.org Git - factor.git/blob - vm/vm.cpp
VM: more destruction needed 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), code(NULL), callbacks(NULL),
17       current_gc(NULL),
18       current_gc_p(false),
19       current_jit_count(0),
20       gc_events(NULL),
21       fep_p(false),
22       fep_help_was_shown(false),
23       fep_disabled(false),
24       full_output(false),
25       last_nano_count(0),
26       signal_callstack_seg(NULL),
27       safepoint() {
28   primitive_reset_dispatch_stats();
29 }
30
31 factor_vm::~factor_vm() {
32   free(alien_offset(special_objects[OBJ_EXECUTABLE]));
33   free(alien_offset(special_objects[OBJ_IMAGE]));
34   close_console();
35   FACTOR_ASSERT(!ctx);
36   FACTOR_FOR_EACH(unused_contexts) {
37     delete *iter;
38   }
39   FACTOR_FOR_EACH(active_contexts) {
40     delete *iter;
41   }
42   if (callbacks)
43     delete callbacks;
44   if (data)
45     delete data;
46   if (code)
47     delete code;
48   if (signal_callstack_seg) {
49     delete signal_callstack_seg;
50     signal_callstack_seg = NULL;
51   }
52   FACTOR_FOR_EACH(function_descriptors) {
53     delete[] * iter;
54   }
55 }
56
57 }