clean up mistakes in 21807d3
- remove bogus test case - fix bug in collector - fix bug in test
This commit is contained in:
parent
d2fd37c251
commit
1b47cf5898
|
@ -32,7 +32,7 @@ allocation
|
|||
[(closure)
|
||||
(define size (heap-ref (+ addr 2)))
|
||||
(for ([i (in-range size)])
|
||||
(inc-at-addr (+ addr 2 i)))
|
||||
(inc-at-addr (+ addr 3 i)))
|
||||
(loop (+ addr size 3))]
|
||||
[(prim)
|
||||
(loop (+ addr 2))]
|
||||
|
@ -115,16 +115,3 @@ allocation
|
|||
; function number -> boolean
|
||||
(define (gc:flat? a)
|
||||
(eq? 'prim (heap-ref a)))
|
||||
|
||||
(module+ test
|
||||
(require rackunit)
|
||||
|
||||
(check-equal? (let ([h (make-vector 7)])
|
||||
(with-heap
|
||||
h
|
||||
(init-allocator)
|
||||
(define one (gc:alloc-flat 1))
|
||||
(define clos (gc:closure 'something (list (make-root 'dummy (λ () one) void))))
|
||||
(gc:alloc-flat 2))
|
||||
h)
|
||||
(vector 'prim 1 'closure 'something 0 'prim 2)))
|
||||
|
|
|
@ -1,5 +1,5 @@
|
|||
#lang plai/gc2/mutator
|
||||
(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 40)
|
||||
(allocator-setup "../good-collectors/trivial-moving-collector.rkt" 100)
|
||||
|
||||
;; just some random allocation here
|
||||
;; this is really about testing
|
||||
|
@ -16,4 +16,5 @@
|
|||
((let ([x (cons 1 2)])
|
||||
(λ (y)
|
||||
((first y) (first x))))
|
||||
(λ (z) z)))
|
||||
(cons (λ (z) z)
|
||||
5)))
|
||||
|
|
Loading…
Reference in New Issue
Block a user