summaryrefslogtreecommitdiff
path: root/module/system/vm/frame.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/system/vm/frame.scm')
-rw-r--r--module/system/vm/frame.scm11
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)))