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

Add fadd, fsub, fmul, fdiv instructions

Browse source 
* libguile/vm-engine.c (fadd, fsub, fmul, fdiv): New instructions.

* module/language/cps/effects-analysis.scm:
* module/language/cps/types.scm: Wire up support for new instructions.

* module/system/vm/assembler.scm: Export emit-fadd and friends.
This commit is contained in:
Andy Wingo 2015-10-29 08:27:15 +00:00
parent c438998e48
commit 3b4941f3a9
4 changed files with 133 additions and 43 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -136,6 +136,10 @@
(emit-rem* . emit-rem)
(emit-mod* . emit-mod)
(emit-ash* . emit-ash)
(emit-fadd* . emit-fadd)
(emit-fsub* . emit-fsub)
(emit-fmul* . emit-fmul)
(emit-fdiv* . emit-fdiv)
(emit-logand* . emit-logand)
(emit-logior* . emit-logior)
(emit-logxor* . emit-logxor)