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
|
/* Copyright (C) 1999-2008 Henry Cejtin, Matthew Fluet, Suresh
* Jagannathan, and Stephen Weeks.
* Copyright (C) 1997-2000 NEC Research Institute.
*
* MLton is released under a BSD-style license.
* See the file MLton-LICENSE for details.
*/
void GC_pack (GC_state s) {
size_t keep;
enter (s);
if (DEBUG or s->controls.messages)
fprintf (stderr,
"[GC: Packing heap at "FMTPTR" of size %s bytes.]\n",
(uintptr_t)(s->heap.start),
uintmaxToCommaString(s->heap.size));
/* Could put some code here to skip the GC if there hasn't been much
* allocated since the last collection. But you would still need to
* do a minor GC to make all objects contiguous.
*/
performGC (s, 0, 0, TRUE, FALSE);
keep = s->heap.oldGenSize * 1.1;
if (keep <= s->heap.size) {
shrinkHeap (s, &s->heap, keep);
setCardMapAndCrossMap (s);
setGCStateCurrentHeap (s, 0, 0);
setGCStateCurrentThreadAndStack (s);
}
releaseHeap (s, &s->secondaryHeap);
if (DEBUG or s->controls.messages)
fprintf (stderr,
"[GC: Packed heap at "FMTPTR" to size %s bytes.]\n",
(uintptr_t)(s->heap.start),
uintmaxToCommaString(s->heap.size));
leave (s);
}
void GC_unpack (GC_state s) {
enter (s);
if (DEBUG or s->controls.messages)
fprintf (stderr,
"[GC: Unpacking heap at "FMTPTR" of size %s bytes.]\n",
(uintptr_t)(s->heap.start),
uintmaxToCommaString(s->heap.size));
/* The enterGC is needed here because minorGC and resizeHeap might
* move the stack, and the SIGPROF catcher would then see a bogus
* stack. The leaveGC has to happen after the setStack.
*/
enterGC (s);
minorGC (s);
resizeHeap (s, s->heap.oldGenSize);
setCardMapAndCrossMap (s);
resizeHeapSecondary (s);
setGCStateCurrentHeap (s, 0, 0);
setGCStateCurrentThreadAndStack (s);
leaveGC (s);
if (DEBUG or s->controls.messages)
fprintf (stderr,
"[GC: Unpacked heap at "FMTPTR" to size %s bytes.]\n",
(uintptr_t)(s->heap.start),
uintmaxToCommaString(s->heap.size));
leave (s);
}
|
