mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 14:00:21 +02:00
Code Activity

Emit new eq? instruction

Browse source 
* module/language/cps/compile-bytecode.scm (compile-function): Emit
  new-style eq? instruction.
This commit is contained in:
Andy Wingo 2017-10-27 15:29:24 +02:00
parent c119623e45
commit 056914b555
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -409,6 +409,9 @@
(define (unary op a)
(op asm (from-sp (slot a)))
(emit-branch-for-test))
(define (binary-test op a b)
(op asm (from-sp (slot a)) (from-sp (slot b)))
(emit-branch-for-test))
(define (binary op a b)
(cond
((eq? kt next-label)
@ -438,7 +441,7 @@
;; Add more TC7 tests here. Keep in sync with
;; *branching-primcall-arities* in (language cps primitives) and
;; the set of macro-instructions in assembly.scm.
(($ $primcall 'eq? (a b)) (binary emit-br-if-eq a b))
(($ $primcall 'eq? (a b)) (binary-test emit-eq? a b))
(($ $primcall 'eqv? (a b)) (binary emit-br-if-eqv a b))
(($ $primcall '< (a b)) (binary emit-br-if-< a b))
(($ $primcall '<= (a b)) (binary emit-br-if-<= a b))