From bd6f72eb0eb262950e554f3239eff4a1a242fd07 Mon Sep 17 00:00:00 2001 From: Christophe Rhodes Date: Wed, 16 Mar 2005 10:10:05 +0000 Subject: [PATCH] 0.8.20.24: One more immediate-single-float fix ... update search_space(). --- src/runtime/gc-internal.h | 3 +++ version.lisp-expr | 2 +- 2 files changed, 4 insertions(+), 1 deletion(-) diff --git a/src/runtime/gc-internal.h b/src/runtime/gc-internal.h index c5bb423..c49397a 100644 --- a/src/runtime/gc-internal.h +++ b/src/runtime/gc-internal.h @@ -106,6 +106,9 @@ search_space(lispobj *start, size_t words, lispobj *pointer) 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 diff --git a/version.lisp-expr b/version.lisp-expr index b9ff2b2..7f0dead 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.20.23" +"0.8.20.24" -- 1.7.10.4