From 7d6e31566fd93e779f0060a58a0f6658fbdef14b Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Sun, 28 Jan 2007 19:58:54 +0000 Subject: [PATCH] 1.0.1.3: Fix two buglets in MAKE-EA-FOR-FLOAT-REF. --- src/compiler/x86/array.lisp | 6 +++--- version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/src/compiler/x86/array.lisp b/src/compiler/x86/array.lisp index d07ec98..bcf82b5 100644 --- a/src/compiler/x86/array.lisp +++ b/src/compiler/x86/array.lisp @@ -308,9 +308,9 @@ (immediate (make-ea :dword :base object :disp (- (+ (* vector-data-offset n-word-bytes) - (* element-size (+ offset complex-offset - (tn-value index))) - other-pointer-lowtag)))) + (* element-size (+ offset (tn-value index))) + complex-offset) + other-pointer-lowtag))) (t (make-ea :dword :base object :index index :scale scale :disp (- (+ (* vector-data-offset n-word-bytes) diff --git a/version.lisp-expr b/version.lisp-expr index b8c100e..4ed7224 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.2.2" +"1.0.2.3" -- 1.7.10.4