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

Add compiler support for fixnum? primcall predicate

Browse source 
* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/type-fold.scm (fixnum?):
* module/language/cps/types.scm (fixnum?):
* module/system/vm/assembler.scm (system): Add cases for fixnum?
  primcall predicate.
This commit is contained in:
Andy Wingo 2017-10-29 19:42:50 +01:00
parent 79a2748f83
commit 31e7f44340
4 changed files with 18 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -442,6 +442,7 @@
(($ $primcall 'bitvector? (a)) (unary emit-bitvector? a))
(($ $primcall 'keyword? (a)) (unary emit-keyword? a))
(($ $primcall 'heap-number? (a)) (unary emit-heap-number? a))
(($ $primcall 'fixnum? (a)) (unary emit-fixnum? a))
;; 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.