From 2d23e048c42402246b4c3c6eba36c6a8c2988501 Mon Sep 17 00:00:00 2001 From: dtc <dtc> Date: Thu, 22 Jun 2000 12:55:19 +0000 Subject: [PATCH] Flush a verbose debug message that occurred rarely during code fixups. --- lisp/gencgc.c | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/lisp/gencgc.c b/lisp/gencgc.c index 30468fd4a..1b9982a11 100644 --- a/lisp/gencgc.c +++ b/lisp/gencgc.c @@ -7,7 +7,7 @@ * * Douglas Crosher, 1996, 1997, 1998, 1999. * - * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.18 2000/01/19 18:09:16 dtc Exp $ + * $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/lisp/gencgc.c,v 1.19 2000/06/22 12:55:19 dtc Exp $ * */ @@ -2208,7 +2208,9 @@ static void apply_code_fixups(struct code *old_code, struct code *new_code) /* Could be pointing to a forwarding pointer. */ if (Pointerp(fixups) && find_page_index((void*) fixups_vector) != -1 && fixups_vector->header == 0x01) { +#if 0 fprintf(stderr, "* FF\n"); +#endif /* If so then follow it. */ fixups_vector = (struct vector *) PTR((lispobj) fixups_vector->length); } -- GitLab