Changeset 14183

Timestamp:

Aug 13, 2010, 3:16:50 AM (14 years ago)

Author:

Gary Byers

Message:

64-bit alignment in ff-call.

File:

• trunk/source/compiler/ARM/arm2.lisp (modified) (4 diffs)

trunk/source/compiler/ARM/arm2.lisp

@@ -8127 +8127 @@
          (*arm2-top-vstack-lcell* *arm2-top-vstack-lcell*)
          (*arm2-cstack* *arm2-cstack*)
-         (next-arg-word 0))
+         (next-arg-word 0)
+         (natural-64-bit-alignment
+          (case (backend-target-os *target-backend*)
+            (:darwinarm nil)
+            (t t))))
       (declare (fixnum next-arg-word))
       (dolist (argspec argspecs)
         (case argspec
           ((:double-float :unsigned-doubleword :signed-doubleword)
-           (when (oddp next-arg-word)
+           (when (and natural-64-bit-alignment (oddp next-arg-word))
              (incf next-arg-word))
            (incf next-arg-word 2))
@@ -8154 +8158 @@
             (:double-float
              (let* ((df ($ arm::d0 :class :fpr :mode :double-float)))
-               (when (oddp next-arg-word)
+               (when (and natural-64-bit-alignment (oddp next-arg-word))
                  (incf next-arg-word))
                (arm2-one-targeted-reg-form seg valform df)
@@ -8169 +8173 @@
                (! gets64)
                (! getu64))
-             (when (oddp next-arg-word)
+             (when (and natural-64-bit-alignment (oddp next-arg-word))
                (incf next-arg-word))
              (! set-eabi-c-arg ($ arm::imm0) next-arg-word)
@@ -8470 +8474 @@
   (let* ((reg (arm2-one-untargeted-reg-form seg size arm::arg_z)))
     (ecase (backend-name *target-backend*)
-      (:linuxarm (! alloc-variable-eabi-c-frame reg)))
+      ((:linuxarm :darwinarm) (! alloc-variable-eabi-c-frame reg)))
     (arm2-open-undo $undo-arm-c-frame)
     (arm2-undo-body seg vreg xfer body old-stack)))