Raymond Toy pushed to branch issue-278-more-gencgc-debug-prints at cmucl / cmucl

Commits: 13659aaa by Raymond Toy at 2024-03-03T11:55:33-08:00 Remove old prints that we replaced with DPRINTF

Some of these were normally off and required a recompile to enable them.

- - - - -

1 changed file:

- src/lisp/gencgc.c

Changes:

===================================== src/lisp/gencgc.c ===================================== @@ -6756,10 +6756,6 @@ scavenge_newspace_generation_one_scan(int generation) { int i;

-#if 0 - fprintf(stderr, "Starting one full scan of newspace generation %d\n", - generation); -#endif DPRINTF(gencgc_verbose, (stdout, "Starting one full scan of newspace generation %d\n", generation)); @@ -6867,10 +6863,7 @@ scavenge_newspace_generation_one_scan(int generation) i = last_page; } } -#if 0 - fprintf(stderr, "Finished one full scan of newspace generation %d\n", - generation); -#endif + DPRINTF(gencgc_verbose, (stdout, "Finished one full scan of newspace generation %d\n", generation)); @@ -6902,9 +6895,6 @@ scavenge_newspace_generation(int generation) struct new_area (*previous_new_areas)[] = NULL; int previous_new_areas_index;

-#if 0 - fprintf(stderr, "Start scavenge_newspace_generation %d\n", generation); -#endif DPRINTF(gencgc_verbose, (stdout, "Start scavenge_newspace_generation %d\n", generation));

@@ -7086,9 +7076,7 @@ scavenge_newspace_generation(int generation) "*** scav.new.gen. %d: write protected page %d written to? dont_move=%d\n", generation, i, PAGE_DONT_MOVE(i)); #endif -#if 0 - fprintf(stderr, "Finished scavenge_newspace_generation %d\n", generation); -#endif + DPRINTF(gencgc_verbose, (stdout, "Finished scavenge_newspace_generation %d\n", generation)); } @@ -7857,11 +7845,6 @@ garbage_collect_generation(int generation, int raise) DPRINTF(gencgc_verbose, (stdout, "Done scavenging interrupt handlers\n"));

-#ifdef PRINTNOISE - printf("Scavenging the binding stack (%d bytes) ...\n", - ((lispobj *) get_binding_stack_pointer() - - binding_stack) * sizeof(lispobj)); -#endif DPRINTF(gencgc_verbose, (stdout, "Scavenging the binding stack (%d bytes) ...\n", ((lispobj *) get_binding_stack_pointer() - @@ -7874,9 +7857,6 @@ garbage_collect_generation(int generation, int raise) DPRINTF(gencgc_verbose, (stdout, "Done scavenging the binding stack.\n"));

-#ifdef PRINTNOISE - printf("Done scavenging the binding stack.\n"); -#endif /* * Scavenge the scavenge_hooks in case this refers to a hook added * in a prior generation GC. From here on the scavenger_hook will @@ -7884,9 +7864,6 @@ garbage_collect_generation(int generation, int raise) * doing here. */

-#ifdef PRINTNOISE - printf("Scavenging the scavenger hooks ...\n"); -#endif DPRINTF(gencgc_verbose, (stdout, "Scavenging the scavenger hooks ...\n"));

@@ -7895,15 +7872,11 @@ garbage_collect_generation(int generation, int raise) DPRINTF(gencgc_verbose, (stdout, "Done scavenging the scavenger hooks.\n"));

-#ifdef PRINTNOISE - printf("Done scavenging the scavenger hooks.\n"); -#endif - static_space_size = (lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER) - static_space;

DPRINTF(gencgc_verbose, - (stderr, "Scavenge static space: %ld bytes\n", + (stdout, "Scavenge static space: %ld bytes\n", static_space_size * sizeof(lispobj)));

scavenge(static_space, static_space_size);

View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/13659aaacbf1a78425564e26...