From aac8c1588f2082e04b80fd7159e645325927e5d9 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Mon, 17 Nov 1997 23:39:04 +0000 Subject: [PATCH] Fix a mistake from the previous commit which broke maybe_can_move_p when there is no scavenger hook support (for CGC). --- lisp/purify.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/lisp/purify.c b/lisp/purify.c index 563ac4c69..8623e8d2e 100644 --- a/lisp/purify.c +++ b/lisp/purify.c @@ -10,7 +10,7 @@ Bug fixes, x86 code movement support, and scavenger hook support, by Douglas Crosher, 1996, 1997. - $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.12 1997/11/08 15:44:38 dtc Exp $ + $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/purify.c,v 1.13 1997/11/17 23:39:04 dtc Exp $ */ #include <stdio.h> @@ -162,9 +162,9 @@ maybe_can_move_p(lispobj thing) case type_Fdefn: #ifdef type_ScavengerHook case type_ScavengerHook: +#endif return kind; break; -#endif default: return 0; }}} @@ -684,8 +684,8 @@ static lispobj ptrans_otherptr(lispobj thing, lispobj header, boolean constant) case type_WeakPointer: #ifdef type_ScavengerHook case type_ScavengerHook: - return ptrans_boxed(thing, header, FALSE); #endif + return ptrans_boxed(thing, header, FALSE); case type_SymbolHeader: return ptrans_boxed(thing, header, FALSE); -- GitLab