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

Timestamp:

Sep 5, 2007, 12:37:38 AM (14 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-linuxppc32.lisp (modified) (1 diff)

trunk/ccl/lib/ffi-linuxppc32.lisp

@@ -195 +195 @@
   (declare (ignore fp-args-ptr))
   (unless (eq return-type *void-foreign-type*)
+    (when (typep return-type 'foreign-single-float-type)
+      (setq result `(float ,result 0.0d0)))    
     (let* ((return-type-keyword
             (if (typep return-type 'foreign-record-type)