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
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Richard Kelsey, Jonathan Rees, Marcus Crestani, David Frese,
; Martin Gasbichler, Mike Sperber
; These are used to compile the VM separately from the GC. It has new
; definitions of the heap and GC structures with all of the values defined
; as externals.
(define-structure allocation allocation-interface
(open prescheme)
(begin
(define s48-make-available+gc
(external "s48_make_availableAgc" (=> (integer) null)))
(define s48-allocate-small
(external "s48_allocate_small" (=> (integer) address)))
(define s48-allocate-weak+gc
(external "s48_allocate_weakAgc" (=> (integer) address)))
(define s48-allocate-traced+gc
(external "s48_allocate_tracedAgc" (=> (integer) address)))
(define s48-allocate-untraced+gc
(external "s48_allocate_untracedAgc" (=> (integer) address)))
(define s48-gc-can-allocate-unmovable?
(external "s48_gc_can_allocate_unmovableP" (=> () boolean)))
(define s48-allocate-traced-unmovable+gc
(external "s48_allocate_traced_unmovableAgc" (=> (integer) address)))
(define s48-allocate-untraced-unmovable+gc
(external "s48_allocate_untraced_unmovableAgc" (=> (integer) address)))
(define s48-unmovable?
(external "s48_unmovableP" (=> (integer) boolean)))
))
(define-structure heap heap-interface
(open prescheme)
(begin
(define s48-available
(external "s48_available" (=> () integer)))
(define s48-heap-size
(external "s48_heap_size" (=> () integer)))
(define s48-max-heap-size
(external "s48_max_heap_size" (=> () integer)))
(define s48-gather-objects
(external "s48_gather_objects" (=> ((=> (integer) boolean)
(=> ((=> (integer) boolean)) boolean))
integer)))
(define s48-find-all
(external "s48_find_all" (=> (integer) integer)))
(define s48-find-all-records
(external "s48_find_all_records" (=> (integer) integer)))
(define s48-write-barrier
(external "S48_WRITE_BARRIER" (=> (integer address integer) null)))
(define s48-check-heap
(external "s48_check_heap" (=> (integer) boolean)))
(define s48-stob-in-heap?
(external "s48_stob_in_heapP" (=> (integer) boolean)))
))
(define-structure gc gc-interface
(open prescheme)
(begin
(define s48-collect
(external "s48_collect" (=> (boolean) null)))
(define s48-trace-value
(external "s48_trace_value" (=> (integer) integer)))
(define s48-trace-locations!
(external "s48_trace_locationsB" (=> (address address) null)))
(define s48-trace-stob-contents!
(external "s48_trace_stob_contentsB" (=> (integer) null)))
(define s48-trace-continuation-contents!
(external "s48_trace_continuation_contentsB"
(=> (address address integer) null)))
(define s48-extant?
(external "s48_extantP" (=> (integer) boolean)))
(define s48-gc-count
(external "s48_gc_count" (=> () integer)))
(define s48-gc-run-time
(external "s48_gc_run_time" (=> () integer integer)))
))
|
