diff options
author | Andy Wingo <wingo@pobox.com> | 2013-10-31 11:39:43 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2013-10-31 12:55:24 +0100 |
commit | becce37b5835720857068c4865f1cd48275133d1 (patch) | |
tree | 01401445c04dbd6f6e7fa426fa8a059980e38dee /module/system/vm/disassembler.scm | |
parent | ecbef96687363cbf2eadeaaf8fab8d8efd33f944 (diff) | |
download | guile-becce37b5835720857068c4865f1cd48275133d1.tar.gz |
Better compiler support for bytevector ops
* module/language/cps/compile-rtl.scm (emit-rtl-sequence): Add emitters
for bytevector ops. Add br-if-bytevector emitter.
* module/language/cps/primitives.scm (*branching-primcall-arities*):
Mark bytevector? as a branching primitive.
* module/system/vm/assembler.scm (br-if-bytevector): New instruction
* module/system/vm/disassembler.scm (code-annotation): Add support for
bytevector?.
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r-- | module/system/vm/disassembler.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm index 2ae35b06a..82e0f4dc1 100644 --- a/module/system/vm/disassembler.scm +++ b/module/system/vm/disassembler.scm @@ -224,6 +224,7 @@ address of that offset." ((7) "variable?") ((13) "vector?") ((15) "string?") + ((77) "bytevector?") (else (number->string tc7))))) (if invert? (string-append "not " tag) tag)) (vector-ref labels (- (+ offset target) start)))) |