[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 03/07: Fix bug in compilation of rsh/lsh
From: |
Andy Wingo |
Subject: |
[Guile-commits] 03/07: Fix bug in compilation of rsh/lsh |
Date: |
Mon, 19 Jun 2023 07:54:58 -0400 (EDT) |
wingo pushed a commit to branch wip-tailify
in repository guile.
commit db826ab909c437c20c4365d0404ab8b853beb07c
Author: Andy Wingo <wingo@pobox.com>
AuthorDate: Fri May 12 10:57:58 2023 +0200
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.
---
module/language/cps/compile-bytecode.scm | 4 ++--
1 file 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))
- [Guile-commits] branch wip-tailify updated (0a7ef2297 -> b7b5ce0a7), Andy Wingo, 2023/06/19
- [Guile-commits] 01/07: Excise use of `record-case`, Andy Wingo, 2023/06/19
- [Guile-commits] 06/07: Add new $calli expression type., Andy Wingo, 2023/06/19
- [Guile-commits] 02/07: Use tree-il-srcv instead of tree-il-src, Andy Wingo, 2023/06/19
- [Guile-commits] 05/07: Add indirect-tail-call VM instruction, Andy Wingo, 2023/06/19
- [Guile-commits] 07/07: Add tailify pass, Andy Wingo, 2023/06/19
- [Guile-commits] 03/07: Fix bug in compilation of rsh/lsh,
Andy Wingo <=
- [Guile-commits] 04/07: Consider $code to make 'ptr representation, Andy Wingo, 2023/06/19