Changeset 13982 for branches

Timestamp:

Jul 19, 2010, 7:39:49 AM (14 years ago)

Author:

Gary Byers

Message:

Try not to run out of imm regs when storing double-floats to foreign
memory.

File:

• branches/arm/compiler/ARM/arm-vinsns.lisp (modified) (2 diffs)

branches/arm/compiler/ARM/arm-vinsns.lisp

@@ -687 +687 @@
       (index :s16const))
      ((low (:u32 #.arm::imm0))
-      (high (:u32 #.arm::imm1))))
+      (high (:u32 #.arm::imm1))
+      (addr (:u32 #.arm::imm2))))       ; addr should be :address
+  (add addr src (:$ index))
   (fmrrd low high src)
-  (strd low (:@ src (:$ index))))
+  (strd low (:@ addr (:$ 0))))
 
 (define-arm-vinsn (mem-set-double-float :predicatable)
@@ -695 +697 @@
      ((val :double-float)
       (src :address)
-      (index :s32))                     ; imm2, I presume
+      (index :s32))                     
      ((low (:u32 #.arm::imm0))
-      (high (:u32 #.arm::imm1))))
+      (high (:u32 #.arm::imm1))
+      (addr (:u32 #.arm::imm2))))       ; addr should be :address
+  (add addr src index)
   (fmrrd low high src)
-  (strd low (:@ src index)))
+  (strd low (:@ addr (:$ 0))))
 
 (define-arm-vinsn (mem-ref-c-single-float :predicatable)