summaryrefslogtreecommitdiff
path: root/module/system/vm/disassembler.scm
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2014-07-03 15:03:40 +0200
committerAndy Wingo <wingo@pobox.com>2014-07-03 15:03:40 +0200
commitd613ccaaa06df510bc2078ae5d57c8470ffb8b95 (patch)
tree4aceacebda28e0b6bba6c251d9ff1f9e341a5e86 /module/system/vm/disassembler.scm
parent8c6206f319971fc61df9a7362ad0253bb47349bd (diff)
downloadguile-d613ccaaa06df510bc2078ae5d57c8470ffb8b95.tar.gz
Compiler emits br-if-logtest
* module/language/cps/compile-bytecode.scm (compile-fun): * module/language/cps/primitives.scm (*branching-primcall-arities*): * module/language/cps/type-fold.scm (logtest): * module/language/cps/types.scm (logtest): * module/system/vm/assembler.scm (system): * module/system/vm/disassembler.scm (compute-labels): Add backend support for the logtest instruction.
Diffstat (limited to 'module/system/vm/disassembler.scm')
-rw-r--r--module/system/vm/disassembler.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/module/system/vm/disassembler.scm b/module/system/vm/disassembler.scm
index d41c2c1c6..adacf1b4b 100644
--- a/module/system/vm/disassembler.scm
+++ b/module/system/vm/disassembler.scm
@@ -296,7 +296,7 @@ address of that offset."
br-if-nargs-ne br-if-nargs-lt br-if-nargs-gt
br-if-true br-if-null br-if-nil br-if-pair br-if-struct
br-if-char br-if-tc7 br-if-eq br-if-eqv br-if-equal
- br-if-= br-if-< br-if-<= br-if-> br-if->=)
+ br-if-= br-if-< br-if-<= br-if-> br-if->= br-if-logtest)
(match arg
((_ ... target)
(add-label! (+ offset target) "L"))))