Changeset 7134


Ignore:
Timestamp:
Sep 5, 2007, 12:36:40 AM (12 years ago)
Author:
gb
Message:

Don't assume that :single-float callback results have been coerced
to :double-float on x8664.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/compiler/X86/X8664/x8664-backend.lisp

    r6463 r7134  
    542542                    (:signed-doubleword '%%get-signed-longlong)
    543543                    (:unsigned-doubleword '%%get-unsigned-longlong)
    544                     ((:double-float :single-float)
    545                      '%get-double-float)
     544                    (:double-float '%get-double-float)
     545                    (:single-float '%get-single-float)
    546546                    (:unsigned-fullword '%get-unsigned-long)
    547547                    (t '%%get-signed-longlong )
Note: See TracChangeset for help on using the changeset viewer.