Changeset 13808

Timestamp:

Jun 11, 2010, 7:06:38 AM (11 years ago)

Author:

gb

Message:

Let src/dest args be the same in HEADER-LENGTH.
ldrd/strd instructions take a single register (the even-numbered one),
even though they load/store a register pair. (I think that unified
ARM syntax requires both registers to be specified, even though only
the even-numbered one is encoded in the instruction.)

File:

• branches/arm/compiler/ARM/arm-lapmacros.lisp (modified) (3 diffs)

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

@@ -164 +164 @@
 (defarmlapmacro header-length (dest vheader)
   `(progn
-    (mov ,dest '-1)
-    (and ,dest ,dest (:lsr ,vheader (:$ (- arm::num-subtag-bits arm::fixnumshift))))))
+    (bic ,dest ,vheader (:$ arm::subtag-mask))
+    (mov ,dest (:lsr ,dest (:$ (- arm::num-subtag-bits arm::fixnumshift))))))
 
 
@@ -254 +254 @@
 (defarmlapmacro get-double-float (dest node)
   `(progn
-    (ldrdd imm0 imm1 (:@ ,node (:$ arm::double-float.value)))
+    (ldrd imm0 (:@ ,node (:$ arm::double-float.value)))
     (fmdrr ,dest imm0 imm1)))
   
@@ -266 +266 @@
   `(progn
     (fmrrd imm0 imm1 ,src)
-    (strdd imm0 imm1 (:@ ,node (:$ arm::double-float.value)))))
+    (strd imm0 (:@ ,node (:$ arm::double-float.value)))))