1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
|
#include "gc.h"
#include "exc.h"
#include "consts.h"
#if defined(GC_DEBUG) || defined (GC_INFO)
#include <cstdio>
typedef unsigned long long ull;
#endif
static EvalObj *gcq[GC_QUEUE_SIZE];
GarbageCollector::GarbageCollector() {
mapping.clear();
pend_cnt = 0;
pending_list = NULL;
}
GarbageCollector::PendingEntry::PendingEntry(
EvalObj *_obj, PendingEntry *_next) : obj(_obj), next(_next) {}
void GarbageCollector::expose(EvalObj *ptr) {
bool flag = mapping.count(ptr);
if (flag)
{
#ifdef GC_DEBUG
fprintf(stderr, "GC: 0x%llx exposed. count = %lu \"%s\"\n",
(ull)ptr, mapping[ptr] - 1, ptr->ext_repr().c_str());
#endif
if (!--mapping[ptr])
{
#ifdef GC_DEBUG
fprintf(stderr, "GC: 0x%llx pending. \n", (ull)ptr);
#endif
pending_list = new PendingEntry(ptr, pending_list);
}
}
}
void GarbageCollector::force() {
EvalObj **l = gcq, **r = l;
for (PendingEntry *p = pending_list, *np; p; p = np)
{
np = p->next;
if (mapping[p->obj] == 0)
*r++ = p->obj;
delete p;
} // fetch the pending pointers in the list
// clear the list
pending_list = NULL;
/* for (EvalObj2Int::iterator it = mapping.begin();
it != mapping.end(); it++)
if (it->second == 0) *r++ = it->first;*/
#ifdef GC_INFO
fprintf(stderr, "%ld\n", mapping.size());
size_t cnt = 0;
#endif
#ifdef GC_DEBUG
fprintf(stderr,
"================================\n"
"GC: Forcing the clear process...\n");
#endif
for (; l != r; l++)
{
#ifdef GC_DEBUG
fprintf(stderr, "GC: !!! destroying space 0x%llx. \n", (ull)*l);
#endif
#ifdef GC_INFO
cnt++;
#endif
delete *l;
mapping.erase(*l);
// maybe it's a complex structure,
// so that more pointers are reported
for (PendingEntry *p = pending_list, *np; p; p = np)
{
np = p->next;
*r++ = p->obj;
if (r == gcq + GC_QUEUE_SIZE)
throw NormalError(RUN_ERR_GC_OVERFLOW);
delete p;
}
pending_list = NULL;
}
#ifdef GC_INFO
fprintf(stderr, "GC: Forced clear, %lu objects are freed, "
"%lu remains\n"
"=============================\n", cnt, mapping.size());
#endif
#ifdef GC_DEBUG
/* for (EvalObj2Int::iterator it = mapping.begin();
it != mapping.end(); it++)
fprintf(stderr, "%llx => %s\n", (ull)it->first, it->first->ext_repr().c_str());
*/
#endif
}
EvalObj *GarbageCollector::attach(EvalObj *ptr) {
if (!ptr) return NULL; // NULL pointer
bool flag = mapping.count(ptr);
if (flag) mapping[ptr]++;
else mapping[ptr] = 1;
#ifdef GC_DEBUG
fprintf(stderr, "GC: 0x%llx attached. count = %lu \"%s\"\n",
(ull)ptr, mapping[ptr], ptr->ext_repr().c_str());
#endif
if (mapping.size() > GC_QUEUE_SIZE >> 1)
force();
return ptr; // passing through
}
|