suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

bugfix in the closure support

Browse Source
This commit is contained in:
Robby Findler 2013-03-08 12:47:41 -06:00
parent 2fb49aca15
commit 609672bfa1
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
collects/tests/plai/gc2/good-collectors/trivial-collector.rkt
View File

@ -14,9 +14,9 @@
(for ([v (in-vector vs)] (for ([v (in-vector vs)]
[i (in-naturals 1)]) [i (in-naturals 1)])
(heap-set! (+ 1 i heap-ptr) v)) (heap-set! (+ 1 i heap-ptr) v))
(set! heap-ptr (+ len heap-ptr)) (set! heap-ptr (+ len 2 heap-ptr))
;; return the location of this flat data ;; return the location of this flat data
(- heap-ptr len)) (- heap-ptr len 2))
(define (gc:closure-code-ptr a) (define (gc:closure-code-ptr a)
(heap-ref (+ a 1))) (heap-ref (+ a 1)))
@ -78,4 +78,14 @@
(let ([x 0]) (let ([x 0])
(set-root! (car (get-root-set x)) 1) (set-root! (car (get-root-set x)) 1)
x)) x))
1)) 1)
(check-equal? (let ([h (make-vector 7)])
(with-heap
h
(init-allocator)
(define one (gc:alloc-flat 1))
(define clos (gc:closure 'something (vector one)))
(gc:alloc-flat 2))
h)
(vector 'prim 1 'closure 'something 0 'prim 2)))