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... -- View it on GitLab: https://gitlab.common-lisp.net/cmucl/cmucl/-/commit/13659aaacbf1a78425564e26... You're receiving this email because of your account on gitlab.common-lisp.net.