diff options
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r-- | module/system/vm/frame.scm | 11 |
1 files changed, 6 insertions, 5 deletions
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm index 3800d5bf6..1d507d18d 100644 --- a/module/system/vm/frame.scm +++ b/module/system/vm/frame.scm @@ -180,7 +180,8 @@ (compute-frame-sizes code parsed initial-frame-size)) ((killv) (make-vector (vector-length parsed) #f))) (define (kill-slot! n slot) - (bit-set*! (vector-ref killv n) (vector-ref defs-by-slot slot) #t)) + (bitvector-set-bits! (vector-ref killv n) + (vector-ref defs-by-slot slot))) (let lp ((n 0)) (when (< n (vector-length killv)) (vector-set! killv n (make-bitvector (vector-length defs) #f)) @@ -224,11 +225,11 @@ (tmp (make-bitvector (vector-length defs) #f))) (define (bitvector-copy! dst src) (bitvector-fill! dst #f) - (bit-set*! dst src #t)) + (bitvector-set-bits! dst src)) (define (bitvector-meet! accum src) (bitvector-copy! tmp src) (bit-invert! tmp) - (bit-set*! accum tmp #f)) + (bitvector-clear-bits! accum tmp)) (let lp ((n 0)) (when (< n len) @@ -253,7 +254,7 @@ (bitvector-meet! in (vector-ref outv pred))) (lp preds)))) (bitvector-copy! out in) - (bit-set*! out kill #f) + (bitvector-clear-bits! out kill) (for-each (lambda (def) (bitvector-set! out def #t)) gen) @@ -280,7 +281,7 @@ ;; values defined by the call. (begin (bitvector-copy! tmp (vector-ref inv (1- n))) - (bit-set*! tmp (vector-ref killv (1- n)) #f) + (bitvector-clear-bits! tmp (vector-ref killv (1- n))) tmp)))) (let lp ((n 0)) (let ((n (bitvector-position live #t n))) |