summaryrefslogtreecommitdiff
path: root/module/language/cps
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2023-05-12 10:57:58 +0200
committerAndy Wingo <wingo@pobox.com>2023-06-19 13:53:01 +0200
commitdb826ab909c437c20c4365d0404ab8b853beb07c (patch)
tree2891094fc40c656d37fe8dd9e4b1182cbfc7744b /module/language/cps
parent2cd8b4160c4f8b2f3b590f29f82c64dd4a1e2290 (diff)
downloadguile-db826ab909c437c20c4365d0404ab8b853beb07c.tar.gz
Fix bug in compilation of rsh/lsh
* module/language/cps/compile-bytecode.scm (compile-function): The rsh/lsh patterns would never match. I think these would end up dispatching through emit-text though.
Diffstat (limited to 'module/language/cps')
-rw-r--r--module/language/cps/compile-bytecode.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/module/language/cps/compile-bytecode.scm b/module/language/cps/compile-bytecode.scm
index 53a252444..494bb5a0c 100644
--- a/module/language/cps/compile-bytecode.scm
+++ b/module/language/cps/compile-bytecode.scm
@@ -238,9 +238,9 @@
(emit-usub/immediate asm (from-sp dst) (from-sp (slot x)) y))
(($ $primcall 'umul/immediate y (x))
(emit-umul/immediate asm (from-sp dst) (from-sp (slot x)) y))
- (($ $primcall 'rsh (x y))
+ (($ $primcall 'rsh #f (x y))
(emit-rsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
- (($ $primcall 'lsh (x y))
+ (($ $primcall 'lsh #f (x y))
(emit-lsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
(($ $primcall 'rsh/immediate y (x))
(emit-rsh/immediate asm (from-sp dst) (from-sp (slot x)) y))