X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fgc-internal.h;h=c49397a3e7870aa3d17d29a1340f6bdafdb42219;hb=10adbe19b88bf9d4fe65ad67f6de0fd065af87ff;hp=c5bb423b575f543148d09b6a920682c60d29fa68;hpb=78fa16bf55be44cc16845be84d98023e83fb14bc;p=sbcl.git

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