diff options
author | Andy Wingo <wingo@pobox.com> | 2020-04-14 22:40:43 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2020-04-14 22:40:43 +0200 |
commit | 8110061e647134ab9071ecb5ce59b69b4ed6ed35 (patch) | |
tree | 126a6f1288ead0c1b1c750ab077a83088b92e454 /module/system | |
parent | d804177be4525feb517feb63ca09502d187fc016 (diff) | |
download | guile-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.scm | 2 | ||||
-rw-r--r-- | module/system/vm/frame.scm | 4 |
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)))))))) |