95 |
|
|
96 |
static int gc_time = -1; |
static int gc_time = -1; |
97 |
static int gc_start = 0; |
static int gc_start = 0; |
98 |
|
static int gc_recursive = 0; |
99 |
int sgc_enabled = 0; |
int sgc_enabled = 0; |
100 |
int first_protectable_page = 0; |
int first_protectable_page = 0; |
101 |
|
|
1085 |
fflush(stdout); |
fflush(stdout); |
1086 |
} |
} |
1087 |
#endif |
#endif |
1088 |
if (gc_time >=0) {gc_start=runtime();} |
if (gc_time >=0 && !gc_recursive++) {gc_start=runtime();} |
1089 |
|
|
1090 |
maxpage = page(heap_end); |
maxpage = page(heap_end); |
1091 |
|
|
1320 |
if (in_sgc && sgc_enabled==0) |
if (in_sgc && sgc_enabled==0) |
1321 |
sgc_start(); |
sgc_start(); |
1322 |
|
|
1323 |
if(gc_time>=0) {gc_time=gc_time+(gc_start=(runtime()-gc_start));} |
if(gc_time>=0 && !--gc_recursive) {gc_time=gc_time+(gc_start=(runtime()-gc_start));} |
1324 |
|
|
1325 |
if (sSAnotify_gbcA->s.s_dbind != Cnil) { |
if (sSAnotify_gbcA->s.s_dbind != Cnil) { |
1326 |
|
|
1327 |
fprintf(stdout, "(T=%d).GC finished]\n", |
if (gc_recursive) |
1328 |
gc_start |
fprintf(stdout, "(T=...).GC finished]\n"); |
1329 |
); |
else |
1330 |
|
fprintf(stdout, "(T=%d).GC finished]\n",gc_start); |
1331 |
fflush(stdout); |
fflush(stdout); |
1332 |
|
|
1333 |
} |
} |
1334 |
|
|
1335 |
|
|