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
114
115
116
117
118
119
120
121
122
123
124
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees, Mike Sperber, Martin Gasbichler,
; David Frese
;; Packages for two-space copier GC
;----------------------------------------------------------------
; Memory management
(define-interface heap-two-space-interface
(export heap-begin
set-heap-pointer!
heap-pointer
swap-spaces
heap-limit
allocate
get-new-heap-start-addr
in-trouble?))
; for the native-code compiler
(define-interface heap-two-space-native-code-interface
(export s48-*hp* s48-*limit*))
(define-structures ((heap heap-interface)
(heap-gc-util heap-gc-util-interface)
(heap-init heap-init-interface)
(heap-two-space heap-two-space-interface)
(heap-two-space-native-code heap-two-space-native-code-interface))
(open prescheme ps-receive vm-utilities vm-architecture memory data
ps-memory
debugging)
(files (gc-twospace heap)))
(define-structure gc gc-interface
(open prescheme ps-receive vm-utilities vm-architecture
external
memory data
heap heap-gc-util
heap-two-space
interpreter-gc
debugging)
(files (gc-twospace gc)
(heap trace-continuation)))
(define-structure allocation allocation-interface
(open prescheme memory
heap-gc-util heap-two-space
gc
gc-static-hack
data
vm-architecture
debugging
vm-utilities
)
(files (gc-twospace allocation)))
; This should be in heap.scm except that it needs GC and GC needs HEAP,
; so we have to put this in its own package to avoid a dependency loop.
(define-structure gc-static-hack (export)
(open prescheme gc heap-gc-util gc-roots)
(begin
(add-gc-root! (lambda ()
(walk-impure-areas
(lambda (start end)
(s48-trace-locations! start end)
#t))))))
; Image handling
(define-structure read-image-gc-specific read-image-gc-specific-interface
(open prescheme ps-receive enum-case
vm-utilities vm-architecture
memory
data struct
ps-memory ;allocate/deallocate-memory
heap ;s48-heap-size
heap-init ;s48-initialize-heap
;s48-initialize-image-areas
;s48-check-heap-size
heap-two-space
image-util
image-table ;make-table
read-image-util
read-image-portable
)
(files (gc-twospace read-image)))
(define-structure read-image-util-gc-specific read-image-util-gc-specific-interface
(open prescheme
ps-memory
read-image-util)
(begin
(define (get-small-start-addr heap-image-pointer)
(address+ heap-image-pointer
(address-difference (get-weaks-img-end-addr)
(get-large-img-start-addr))))
(define (get-large-start-addr heap-image-pointer)
(address+ heap-image-pointer
(address-difference (get-weaks-img-end-addr)
(get-weaks-img-start-addr))))
(define (get-weaks-start-addr heap-image-pointer)
heap-image-pointer)))
(define-structure write-image-gc-specific write-image-gc-specific-interface
(open prescheme ps-receive
vm-utilities vm-architecture
memory data struct
heap
heap-two-space
image-table
image-util
write-image-util
string-tables
symbols ;s48-symbol-table
shared-bindings-access
)
(files (gc-twospace write-image)))
|
