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

Add tag-fixnum instruction

Browse source 
* libguile/vm-engine.c (tag-fixnum): New instruction.
* module/language/cps/compile-bytecode.scm (compile-function):
* module/language/cps/cse.scm (compute-equivalent-subexpressions):
* module/language/cps/effects-analysis.scm:
* module/language/cps/types.scm (&min/fixnum, &max/fixnum, tag-fixnum):
* module/system/vm/assembler.scm: Add support for the new instruction.
This commit is contained in:
Andy Wingo 2017-11-09 14:18:01 +01:00
parent 7bfdd46ea5
commit 8b5f9648ff
6 changed files with 27 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
module/system/vm/assembler.scm
View file

@ -98,6 +98,7 @@
emit-eof-object?
emit-untag-fixnum
emit-tag-fixnum
emit-throw
(emit-throw/value* . emit-throw/value)