From: Christophe R. <cr...@us...> - 2005-03-16 10:10:19
|
Update of /cvsroot/sbcl/sbcl/src/runtime In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31864/src/runtime Modified Files: gc-internal.h Log Message: 0.8.20.24: One more immediate-single-float fix ... update search_space(). Index: gc-internal.h =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/runtime/gc-internal.h,v retrieving revision 1.11 retrieving revision 1.12 diff -u -d -r1.11 -r1.12 --- gc-internal.h 6 Jan 2005 12:48:03 -0000 1.11 +++ gc-internal.h 16 Mar 2005 10:10:06 -0000 1.12 @@ -106,6 +106,9 @@ if (is_lisp_pointer(thing) || (fixnump(thing)) || (widetag_of(thing) == CHARACTER_WIDETAG) +#if N_WORD_BITS == 64 + || (widetag_of(thing) == SINGLE_FLOAT_WIDETAG) +#endif || (widetag_of(thing) == UNBOUND_MARKER_WIDETAG)) count = 2; else |