summaryrefslogtreecommitdiff
path: root/module/system
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2020-04-14 22:40:43 +0200
committerAndy Wingo <wingo@pobox.com>2020-04-14 22:40:43 +0200
commit8110061e647134ab9071ecb5ce59b69b4ed6ed35 (patch)
tree126a6f1288ead0c1b1c750ab077a83088b92e454 /module/system
parentd804177be4525feb517feb63ca09502d187fc016 (diff)
downloadguile-8110061e647134ab9071ecb5ce59b69b4ed6ed35.tar.gz
bitvector-set-bit! / bitvector-clear-bit! replace bitvector-set!
* NEWS: Add entry. * doc/ref/api-data.texi (Bit Vectors): Update. * libguile/array-handle.h (bitvector_set_x, scm_array_get_handle): Adapt to bitvector changes. * libguile/bitvectors.h: * libguile/bitvectors.c (scm_c_bitvector_set_bit_x) (scm_c_bitvector_clear_bit_x): New functions. * libguile/deprecated.h: * libguile/deprecated.c (scm_bitvector_set_x): Deprecate. * module/ice-9/sandbox.scm (mutable-bitvector-bindings): Replace bitvector-set! with bitvector-set-bit! / bitvector-clear-bit!. * module/system/vm/disassembler.scm (static-opcode-set): Use bitvector-set-bit!. * module/system/vm/frame.scm (compute-defs-by-slot, available-bindings): Use bitvector-set-bit!. * test-suite/tests/bitvectors.test: Update.
Diffstat (limited to 'module/system')
-rw-r--r--module/system/vm/disassembler.scm2
-rw-r--r--module/system/vm/frame.scm4
2 files changed, 3 insertions, 3 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index 4d539a17d..710797793 100644
--- a/module/system/vm/disassembler.scm
+++ b/module/system/vm/disassembler.scm
@@ -496,7 +496,7 @@ address of that offset."
((static-opcode-set inst ...)
(let ((bv (make-bitvector 256 #f)))
(for-each (lambda (inst)
- (bitvector-set! bv (instruction-opcode inst) #t))
+ (bitvector-set-bit! bv (instruction-opcode inst)))
(syntax->datum #'(inst ...)))
(datum->syntax #'static-opcode-set bv))))))
diff --git a/module/system/vm/frame.scm b/module/system/vm/frame.scm
index 1d507d18d..112187e8f 100644
--- a/module/system/vm/frame.scm
+++ b/module/system/vm/frame.scm
@@ -169,7 +169,7 @@
(when (< n (vector-length defs))
(match (vector-ref defs n)
(#(_ _ slot _)
- (bitvector-set! (vector-ref by-slot slot) n #t)
+ (bitvector-set-bit! (vector-ref by-slot slot) n)
(lp (1+ n))))))
by-slot))
@@ -256,7 +256,7 @@
(bitvector-copy! out in)
(bitvector-clear-bits! out kill)
(for-each (lambda (def)
- (bitvector-set! out def #t))
+ (bitvector-set-bit! out def))
gen)
(lp (1+ n) first?
(or changed? (not (eqv? out-count (bitvector-count out))))))))