From: Nathan Froyd <froydnj@cs.rice.edu>
Date: Mon, 7 May 2007 14:03:42 +0000 (+0000)
Subject: 1.0.5.42: fix (setf aref) on single-float vectors
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=5c41b6d95580938db33efd4640c2947b9e51e723;p=sbcl.git

1.0.5.42: fix (setf aref) on single-float vectors

          Obvious patch by Christophe, reported by Eric Marsden.
---

diff --git a/src/compiler/x86-64/array.lisp b/src/compiler/x86-64/array.lisp
index 2c6530c..7b32433 100644
--- a/src/compiler/x86-64/array.lisp
+++ b/src/compiler/x86-64/array.lisp
@@ -385,7 +385,7 @@
   (:generator 5
    (move dword-index index)
    (inst shr dword-index 1)
-   (inst movss (make-ea-for-float-ref object index offset 4) value)
+   (inst movss (make-ea-for-float-ref object dword-index offset 4) value)
    (unless (location= result value)
      (inst movss result value))))
 
diff --git a/tests/compiler.pure.lisp b/tests/compiler.pure.lisp
index c3ce69e..4b3d1de 100644
--- a/tests/compiler.pure.lisp
+++ b/tests/compiler.pure.lisp
@@ -2248,3 +2248,6 @@
                                              (simple-vector s))
                                     (copy-seq s)))
                     (vector 1 2 3 4)))))
+
+;;; bug in adding DATA-VECTOR-REF-WITH-OFFSET to x86-64
+(assert (not (mismatch #(1.0f0 2.0f0) (make-array 2 :element-type 'single-float :initial-contents (list 1.0f0 2.0f0)))))
diff --git a/version.lisp-expr b/version.lisp-expr
index a0c4b30..01665d5 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.5.41"
+"1.0.5.42"