Changeset 11390

Timestamp:

Nov 18, 2008, 7:37:04 PM (11 years ago)

Author:

rme

Message:

Fixes to x8632 flavor of %PROCESS-VARARGS-LIST.

File:

• trunk/source/objc-bridge/objc-runtime.lisp (modified) (1 diff)

trunk/source/objc-bridge/objc-runtime.lisp

@@ -1535 +1535 @@
        (incf index))
       (single-float
-       (setf (paref ptr (:* :single-float) index) arg-temp)
+       (setf (%get-single-float ptr (* 4 index)) arg-temp)
        (incf index))
       (double-float
-       (setf (paref ptr (:* :double-float) index) arg-temp)
+       (setf (%get-double-float ptr (* 4 index)) arg-temp)
        (incf index 2))
       ((or (signed-byte 64)
            (unsigned-byte 64))
+       (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 0) arg-temp))
+       (incf index)
        (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 32) arg-temp))
-       (incf index)
-       (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 0) arg-temp))
        (incf index)))))