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

Legend:

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

    r6036 r7135  
    224224(defun darwin32::generate-callback-return-value (stack-ptr fp-args-ptr result return-type struct-return-arg)
    225225  (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)))   
    226229    (when (typep return-type 'foreign-record-type)
    227230      ;;; Would have been mapped to :VOID unless record-type contained
Note: See TracChangeset for help on using the changeset viewer.