Changeset 11390
- Timestamp:
- Nov 18, 2008, 7:37:04 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/objc-bridge/objc-runtime.lisp
r11389 r11390 1535 1535 (incf index)) 1536 1536 (single-float 1537 (setf ( paref ptr (:* :single-float) index) arg-temp)1537 (setf (%get-single-float ptr (* 4 index)) arg-temp) 1538 1538 (incf index)) 1539 1539 (double-float 1540 (setf ( paref ptr (:* :double-float) index) arg-temp)1540 (setf (%get-double-float ptr (* 4 index)) arg-temp) 1541 1541 (incf index 2)) 1542 1542 ((or (signed-byte 64) 1543 1543 (unsigned-byte 64)) 1544 (setf (paref ptr (:* :unsigned) index) (ldb (byte 32 0) arg-temp)) 1545 (incf index) 1544 1546 (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))1547 1547 (incf index))))) 1548 1548
Note: See TracChangeset
for help on using the changeset viewer.