[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/02: Fix slot representation computation for fadd, fmu
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/02: Fix slot representation computation for fadd, fmul, etc |
Date: |
Thu, 29 Oct 2015 14:09:03 +0000 |
wingo pushed a commit to branch wip-2.1.2
in repository guile.
commit 6fa74215a0ee103f04ec377fae0934ab7eea6993
Author: Andy Wingo <address@hidden>
Date: Thu Oct 29 14:06:11 2015 +0000
Fix slot representation computation for fadd, fmul, etc
* module/language/cps/slot-allocation.scm (compute-var-representations):
fadd, fmul and so on also define f64 values.
---
module/language/cps/slot-allocation.scm | 3 ++-
1 files changed, 2 insertions(+), 1 deletions(-)
diff --git a/module/language/cps/slot-allocation.scm
b/module/language/cps/slot-allocation.scm
index 6fc2a53..8d865d7 100644
--- a/module/language/cps/slot-allocation.scm
+++ b/module/language/cps/slot-allocation.scm
@@ -790,7 +790,8 @@ are comparable with eqv?. A tmp slot may be used."
(($ $values (arg))
(intmap-add representations var
(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 'scm))))