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

Fix baseline miscompilation of <

Browse source 
* module/language/tree-il/compile-bytecode.scm: Fix < miscompilation.
This commit is contained in:
Andy Wingo 2020-05-11 13:18:50 +02:00
parent f168a66871
commit c0a27de50d
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
module/language/tree-il/compile-bytecode.scm
View file

@ -309,7 +309,7 @@
(emit-jne asm kf)))
(< #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
(emit-<? asm a b)
(emit-jl asm kf)))
(emit-jnl asm kf)))
(<= #:nargs 2 #:predicate? #t #:emit (lambda (asm a b kf)
(emit-<? asm b a)
(emit-jnge asm kf)))