Changeset 14707

Timestamp:

Apr 12, 2011, 12:56:07 AM (14 years ago)

Author:

Gary Byers

Message:

MISC-REF-C-DOUBLE-FLOAT: need to scale the index.

File:

• trunk/source/compiler/ARM/arm-vinsns.lisp (modified) (1 diff)

trunk/source/compiler/ARM/arm-vinsns.lisp

@@ -176 +176 @@
      ((low (:u32 #.arm::imm0))
       (high (:u32 #.arm::imm1))))
-  (ldrd low (:@ v (:$ idx)))
+  (ldrd low (:@ v (:$ (:apply + arm::misc-dfloat-offset (:apply ash idx 3)))))
   (fmdrr dest low high))