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

Use new instructions for null?, nil?

Browse source 
* module/language/cps/compile-bytecode.scm (compile-function): Use new
  instructions for branches on null? and nil?.
This commit is contained in:
Andy Wingo 2017-10-27 15:02:46 +02:00
parent e3c062dce6
commit c74b2257c7
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

@ -433,8 +433,8 @@
(match exp (match exp
(($ $values (sym)) (unary/old emit-br-if-true sym)) (($ $values (sym)) (unary/old emit-br-if-true sym))
(($ $primcall 'heap-object? (a)) (unary emit-heap-object? a)) (($ $primcall 'heap-object? (a)) (unary emit-heap-object? a))
(($ $primcall 'null? (a)) (unary/old emit-br-if-null a)) (($ $primcall 'null? (a)) (unary emit-null? a))
(($ $primcall 'nil? (a)) (unary/old emit-br-if-nil a)) (($ $primcall 'nil? (a)) (unary emit-nil? a))
(($ $primcall 'pair? (a)) (unary emit-pair? a)) (($ $primcall 'pair? (a)) (unary emit-pair? a))
(($ $primcall 'struct? (a)) (unary emit-struct? a)) (($ $primcall 'struct? (a)) (unary emit-struct? a))
(($ $primcall 'char? (a)) (unary emit-char? a)) (($ $primcall 'char? (a)) (unary emit-char? a))