mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Fix bug in compilation of rsh/lsh

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2023-05-12 10:57:58 +02:00
parent 2cd8b4160c
commit db826ab909
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
module/language/cps/compile-bytecode.scm
View file

@ -238,9 +238,9 @@
(emit-usub/immediate asm (from-sp dst) (from-sp (slot x)) y)) (emit-usub/immediate asm (from-sp dst) (from-sp (slot x)) y))
(($ $primcall 'umul/immediate y (x)) (($ $primcall 'umul/immediate y (x))
(emit-umul/immediate asm (from-sp dst) (from-sp (slot x)) y)) (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)))) (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)))) (emit-lsh asm (from-sp dst) (from-sp (slot x)) (from-sp (slot y))))
(($ $primcall 'rsh/immediate y (x)) (($ $primcall 'rsh/immediate y (x))
(emit-rsh/immediate asm (from-sp dst) (from-sp (slot x)) y)) (emit-rsh/immediate asm (from-sp dst) (from-sp (slot x)) y))