summaryrefslogtreecommitdiff
path: root/module/system/vm/disassembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2013-10-31 11:39:43 +0100
committerAndy Wingo <wingo@pobox.com>2013-10-31 12:55:24 +0100
commitbecce37b5835720857068c4865f1cd48275133d1 (patch)
tree01401445c04dbd6f6e7fa426fa8a059980e38dee /module/system/vm/disassembler.scm
parentecbef96687363cbf2eadeaaf8fab8d8efd33f944 (diff)
downloadguile-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.scm1
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))))