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

Fix slot representation computation for fadd, fmul, etc

Browse source 
* module/language/cps/slot-allocation.scm (compute-var-representations):
  fadd, fmul and so on also define f64 values.
This commit is contained in:
Andy Wingo 2015-10-29 14:06:11 +00:00
parent 12e9e2148e
commit f0594be035
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
module/language/cps/slot-allocation.scm
View file

@ -790,7 +790,8 @@ are comparable with eqv?. A tmp slot may be used."
(($ $values (arg)) (($ $values (arg))
(intmap-add representations var (intmap-add representations var
(intmap-ref representations arg))) (intmap-ref representations arg)))
(($ $primcall (or 'scm->f64 'bv-f32-ref 'bv-f64-ref)) (($ $primcall (or 'scm->f64 'bv-f32-ref 'bv-f64-ref
'fadd 'fsub 'fmul 'fdiv))
(intmap-add representations var 'f64)) (intmap-add representations var 'f64))
(_ (_
(intmap-add representations var 'scm)))) (intmap-add representations var 'scm))))