Ignore:
Timestamp:
Nov 18, 2008, 7:37:04 PM (11 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/objc-bridge/objc-runtime.lisp

    r11389 r11390  
    15351535       (incf index))
    15361536      (single-float
    1537        (setf (paref ptr (:* :single-float) index) arg-temp)
     1537       (setf (%get-single-float ptr (* 4 index)) arg-temp)
    15381538       (incf index))
    15391539      (double-float
    1540        (setf (paref ptr (:* :double-float) index) arg-temp)
     1540       (setf (%get-double-float ptr (* 4 index)) arg-temp)
    15411541       (incf index 2))
    15421542      ((or (signed-byte 64)
    15431543           (unsigned-byte 64))
     1544       (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 0) arg-temp))
     1545       (incf index)
    15441546       (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 32) arg-temp))
    1545        (incf index)
    1546        (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 0) arg-temp))
    15471547       (incf index)))))
    15481548
Note: See TracChangeset for help on using the changeset viewer.