Changeset 11359

Timestamp:

Nov 14, 2008, 8:51:13 PM (12 years ago)

Author:

rme

Message:

i386-ff-call: fixes for passing non-scalar arguments

File:

• trunk/source/compiler/X86/x862.lisp (modified) (2 diffs)

trunk/source/compiler/X86/x862.lisp

@@ -9465 +9465 @@
         ((:double-float :unsigned-doubleword :signed-doubleword)
          (incf nwords 2))
-        (t (incf nwords))))
+        (t
+         (if (typep argspec 'unsigned-byte)
+           (incf nwords argspec)
+           (incf nwords)))))
     (when (null argspecs)
       (setq simple-foreign-args t))
@@ -9515 +9518 @@
                  (x862-one-targeted-reg-form seg valform ptr)
                  (with-additional-imm-reg (ptr)
-                   (with-imm-target (ptr) (r :natural)
+                   (with-imm-temps (ptr) (r)
                      (dotimes (i spec)
                        (! mem-ref-c-fullword r ptr (ash i x8632::word-shift))
-                       (! set-c-arg r offset)))))
+                       (! set-c-arg r (+ offset i))))))
                (incf offset spec))
              (with-imm-target () (valreg :natural)