Changeset 7135 for trunk/ccl/lib/ffi-darwinppc32.lisp

Timestamp:

Sep 5, 2007, 12:37:38 AM (13 years ago)

Author:

gb

Message:

Don't coerce single-float results to double-floats in DEFCALLBACK-BODY.
Do do this in the PPC backends.

(This needs testing ...)

File:

• trunk/ccl/lib/ffi-darwinppc32.lisp (modified) (1 diff)

trunk/ccl/lib/ffi-darwinppc32.lisp

@@ -224 +224 @@
 (defun darwin32::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
   (unless (eq return-type *void-foreign-type*)
+    ;; Coerce SINGLE-FLOAT result to DOUBLE-FLOAT
+    (when (typep return-type 'foreign-single-float-type)
+      (setq result `(float ,result 0.0d0)))    
     (when (typep return-type 'foreign-record-type)
       ;;; Would have been mapped to :VOID unless record-type contained