Changeset 6368 for branches/x8664-call


Ignore:
Timestamp:
Apr 29, 2007, 9:31:48 AM (13 years ago)
Author:
gb
Message:

Printing a single float might work; need to check that ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/x8664-call/ccl/lisp-kernel/x86_print.c

    r6306 r6368  
    499499#ifdef X8664
    500500        } else if (header_subtag(o) == subtag_single_float) {
    501           sprintf(numbuf, "%f", o>>32);
     501          LispObj xx = o;
     502          float f = ((float *)&xx)[1];
     503          sprintf(numbuf, "%f", f);
    502504          add_c_string(numbuf);
    503505#endif
Note: See TracChangeset for help on using the changeset viewer.