| ... |
... |
@@ -6756,10 +6756,6 @@ scavenge_newspace_generation_one_scan(int generation) |
|
6756
|
6756
|
{
|
|
6757
|
6757
|
int i;
|
|
6758
|
6758
|
|
|
6759
|
|
-#if 0
|
|
6760
|
|
- fprintf(stderr, "Starting one full scan of newspace generation %d\n",
|
|
6761
|
|
- generation);
|
|
6762
|
|
-#endif
|
|
6763
|
6759
|
DPRINTF(gencgc_verbose,
|
|
6764
|
6760
|
(stdout, "Starting one full scan of newspace generation %d\n",
|
|
6765
|
6761
|
generation));
|
| ... |
... |
@@ -6867,10 +6863,7 @@ scavenge_newspace_generation_one_scan(int generation) |
|
6867
|
6863
|
i = last_page;
|
|
6868
|
6864
|
}
|
|
6869
|
6865
|
}
|
|
6870
|
|
-#if 0
|
|
6871
|
|
- fprintf(stderr, "Finished one full scan of newspace generation %d\n",
|
|
6872
|
|
- generation);
|
|
6873
|
|
-#endif
|
|
|
6866
|
+
|
|
6874
|
6867
|
DPRINTF(gencgc_verbose,
|
|
6875
|
6868
|
(stdout, "Finished one full scan of newspace generation %d\n",
|
|
6876
|
6869
|
generation));
|
| ... |
... |
@@ -6902,9 +6895,6 @@ scavenge_newspace_generation(int generation) |
|
6902
|
6895
|
struct new_area (*previous_new_areas)[] = NULL;
|
|
6903
|
6896
|
int previous_new_areas_index;
|
|
6904
|
6897
|
|
|
6905
|
|
-#if 0
|
|
6906
|
|
- fprintf(stderr, "Start scavenge_newspace_generation %d\n", generation);
|
|
6907
|
|
-#endif
|
|
6908
|
6898
|
DPRINTF(gencgc_verbose,
|
|
6909
|
6899
|
(stdout, "Start scavenge_newspace_generation %d\n", generation));
|
|
6910
|
6900
|
|
| ... |
... |
@@ -7086,9 +7076,7 @@ scavenge_newspace_generation(int generation) |
|
7086
|
7076
|
"*** scav.new.gen. %d: write protected page %d written to? dont_move=%d\n",
|
|
7087
|
7077
|
generation, i, PAGE_DONT_MOVE(i));
|
|
7088
|
7078
|
#endif
|
|
7089
|
|
-#if 0
|
|
7090
|
|
- fprintf(stderr, "Finished scavenge_newspace_generation %d\n", generation);
|
|
7091
|
|
-#endif
|
|
|
7079
|
+
|
|
7092
|
7080
|
DPRINTF(gencgc_verbose,
|
|
7093
|
7081
|
(stdout, "Finished scavenge_newspace_generation %d\n", generation));
|
|
7094
|
7082
|
}
|
| ... |
... |
@@ -7857,11 +7845,6 @@ garbage_collect_generation(int generation, int raise) |
|
7857
|
7845
|
DPRINTF(gencgc_verbose,
|
|
7858
|
7846
|
(stdout, "Done scavenging interrupt handlers\n"));
|
|
7859
|
7847
|
|
|
7860
|
|
-#ifdef PRINTNOISE
|
|
7861
|
|
- printf("Scavenging the binding stack (%d bytes) ...\n",
|
|
7862
|
|
- ((lispobj *) get_binding_stack_pointer() -
|
|
7863
|
|
- binding_stack) * sizeof(lispobj));
|
|
7864
|
|
-#endif
|
|
7865
|
7848
|
DPRINTF(gencgc_verbose,
|
|
7866
|
7849
|
(stdout, "Scavenging the binding stack (%d bytes) ...\n",
|
|
7867
|
7850
|
((lispobj *) get_binding_stack_pointer() -
|
| ... |
... |
@@ -7874,9 +7857,6 @@ garbage_collect_generation(int generation, int raise) |
|
7874
|
7857
|
DPRINTF(gencgc_verbose,
|
|
7875
|
7858
|
(stdout, "Done scavenging the binding stack.\n"));
|
|
7876
|
7859
|
|
|
7877
|
|
-#ifdef PRINTNOISE
|
|
7878
|
|
- printf("Done scavenging the binding stack.\n");
|
|
7879
|
|
-#endif
|
|
7880
|
7860
|
/*
|
|
7881
|
7861
|
* Scavenge the scavenge_hooks in case this refers to a hook added
|
|
7882
|
7862
|
* in a prior generation GC. From here on the scavenger_hook will
|
| ... |
... |
@@ -7884,9 +7864,6 @@ garbage_collect_generation(int generation, int raise) |
|
7884
|
7864
|
* doing here.
|
|
7885
|
7865
|
*/
|
|
7886
|
7866
|
|
|
7887
|
|
-#ifdef PRINTNOISE
|
|
7888
|
|
- printf("Scavenging the scavenger hooks ...\n");
|
|
7889
|
|
-#endif
|
|
7890
|
7867
|
DPRINTF(gencgc_verbose,
|
|
7891
|
7868
|
(stdout, "Scavenging the scavenger hooks ...\n"));
|
|
7892
|
7869
|
|
| ... |
... |
@@ -7895,15 +7872,11 @@ garbage_collect_generation(int generation, int raise) |
|
7895
|
7872
|
DPRINTF(gencgc_verbose,
|
|
7896
|
7873
|
(stdout, "Done scavenging the scavenger hooks.\n"));
|
|
7897
|
7874
|
|
|
7898
|
|
-#ifdef PRINTNOISE
|
|
7899
|
|
- printf("Done scavenging the scavenger hooks.\n");
|
|
7900
|
|
-#endif
|
|
7901
|
|
-
|
|
7902
|
7875
|
static_space_size = (lispobj *) SymbolValue(STATIC_SPACE_FREE_POINTER)
|
|
7903
|
7876
|
- static_space;
|
|
7904
|
7877
|
|
|
7905
|
7878
|
DPRINTF(gencgc_verbose,
|
|
7906
|
|
- (stderr, "Scavenge static space: %ld bytes\n",
|
|
|
7879
|
+ (stdout, "Scavenge static space: %ld bytes\n",
|
|
7907
|
7880
|
static_space_size * sizeof(lispobj)));
|
|
7908
|
7881
|
|
|
7909
|
7882
|
scavenge(static_space, static_space_size);
|