Skip to content
Snippets Groups Projects
Commit 8e6f9111 authored by wlott's avatar wlott
Browse files

Fixed a bug in which scavenge was only testing to see if the object was

in the correct range to be a forwarding pointer.  Therefore, fixnums
that just happened to be represented by a value in that range looked like
forwarding pointers.  Scavenge should have been checking to see if the
object really was a pointer before checking the range.
parent 4d34a7c8
No related branches found
No related tags found
No related merge requests found
/*
* Stop and Copy GC based on Cheney's algorithm.
*
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.23 1990/12/18 23:26:27 wlott Exp $
* $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.24 1991/01/28 09:21:55 wlott Exp $
*
* Written by Christopher Hoover.
*/
......@@ -333,7 +333,7 @@ long nwords;
lispobj first_word;
first_word = *((lispobj *)PTR(object));
if (new_space_p(first_word)) {
if (Pointerp(first_word) && new_space_p(first_word)) {
/* Yep, there be a forwarding pointer. */
*start = first_word;
words_scavenged = 1;
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment