Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/lib/ffi-linuxppc32.lisp

    r5881 r7135  
    195195  (declare (ignore fp-args-ptr))
    196196  (unless (eq return-type *void-foreign-type*)
     197    (when (typep return-type 'foreign-single-float-type)
     198      (setq result `(float ,result 0.0d0)))   
    197199    (let* ((return-type-keyword
    198200            (if (typep return-type 'foreign-record-type)
Note: See TracChangeset for help on using the changeset viewer.