Changeset 7135 for trunk/ccl/lib/ffi-darwinppc32.lisp
- Timestamp:
- Sep 5, 2007, 12:37:38 AM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ccl/lib/ffi-darwinppc32.lisp
r6036 r7135 224 224 (defun darwin32::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg) 225 225 (unless (eq return-type *void-foreign-type*) 226 ;; Coerce SINGLE-FLOAT result to DOUBLE-FLOAT 227 (when (typep return-type 'foreign-single-float-type) 228 (setq result `(float ,result 0.0d0))) 226 229 (when (typep return-type 'foreign-record-type) 227 230 ;;; Would have been mapped to :VOID unless record-type contained
Note: See TracChangeset
for help on using the changeset viewer.