guile-commits
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Guile-commits] 23/27: Fix slot representation computation for fadd, fmu


From: Andy Wingo
Subject: [Guile-commits] 23/27: Fix slot representation computation for fadd, fmul, etc
Date: Wed, 11 Nov 2015 11:39:15 +0000

wingo pushed a commit to branch master
in repository guile.

commit f0594be035ebc53813a9a4c5d09cf8a3e61c8835
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))))



reply via email to

[Prev in Thread] Current Thread [Next in Thread]