From 08e5bbaac6a22d643441c266cfe4c78094da0473 Mon Sep 17 00:00:00 2001 From: ch <ch> Date: Mon, 2 Apr 1990 00:30:22 +0000 Subject: [PATCH] Moved the assertion testing for a code header past the code that first tests if the code object has been forwarded. --- ldb/gc.c | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/ldb/gc.c b/ldb/gc.c index 0583733de..0e9f6dbdd 100644 --- a/ldb/gc.c +++ b/ldb/gc.c @@ -1,7 +1,7 @@ /* * Stop and Copy GC based on Cheney's algorithm. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.2 1990/03/29 21:18:11 ch Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/ldb/Attic/gc.c,v 1.3 1990/04/02 00:30:22 ch Exp $ * * Written by Christopher Hoover. */ @@ -516,8 +516,6 @@ struct code *code; unsigned long displacement; lispobj fheaderl, *prev_pointer; - gc_assert(TypeOf(code->header) == type_CodeHeader); - #if defined(DEBUG_CODE_GC) printf("\nTransporting code object located at 0x%08x.\n", (unsigned long) code); @@ -528,6 +526,8 @@ struct code *code; if (pointerp(first) && new_space_p(first)) return (struct code *) PTR(first); + gc_assert(TypeOf(first) == type_CodeHeader); + /* prepare to transport the code vector */ l_code = (lispobj) code | type_OtherPointer; -- GitLab