[Sbcl-commits] master: hppa: Fix loading complex double-float imaginary parts from the stack

[Alastair B. <lis...@us...>]

The branch "master" has been updated in SBCL:
       via  7880ab4d6d71282c118761674a63fadd0b88681f (commit)
      from  d28579a5f1dafe31642fe21281ea4718af3d529f (commit)

- Log -----------------------------------------------------------------
commit 7880ab4d6d71282c118761674a63fadd0b88681f
Author: Alastair Bridgewater <ala...@gm...>
Date:   Wed Nov 25 16:01:36 2015 -0500

    hppa: Fix loading complex double-float imaginary parts from the stack
    
      * Someone went to the trouble to make storing the imaginary part
    of a complex double-float work properly, and then missed fixing up
    the loading side of things.  Fixed.
---
 src/compiler/hppa/float.lisp |    2 +-
 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/src/compiler/hppa/float.lisp b/src/compiler/hppa/float.lisp
index 7453720..04d5b70 100644
--- a/src/compiler/hppa/float.lisp
+++ b/src/compiler/hppa/float.lisp
@@ -149,7 +149,7 @@
               `((let ((real-tn (,(symbolicate type "-REG-REAL-TN") y)))
                   (ld-float offset nfp real-tn))
                 (let ((imag-tn (,(symbolicate type "-REG-IMAG-TN") y)))
-                  (ld-float (+ offset n-word-bytes) nfp imag-tn)))
+                  (ld-float (+ offset (* ,(/ size 2) n-word-bytes)) nfp imag-tn)))
               `((let ((real-tn (,(symbolicate type "-REG-REAL-TN") x)))
                   (str-float real-tn offset nfp))
                 (let ((imag-tn (,(symbolicate type "-REG-IMAG-TN") x)))

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL