96 |
bool saving_system; |
bool saving_system; |
97 |
static int gc_time = -1; |
static int gc_time = -1; |
98 |
static int gc_start = 0; |
static int gc_start = 0; |
99 |
|
static int gc_recursive = 0; |
100 |
int runtime(void); |
int runtime(void); |
101 |
int sgc_enabled=0; |
int sgc_enabled=0; |
102 |
int first_protectable_page =0; |
int first_protectable_page =0; |
1092 |
fflush(stdout); |
fflush(stdout); |
1093 |
} |
} |
1094 |
#endif |
#endif |
1095 |
if (gc_time >=0) {gc_start=runtime();} |
if (gc_time >=0 && !gc_recursive++) {gc_start=runtime();} |
1096 |
|
|
1097 |
maxpage = page(heap_end); |
maxpage = page(heap_end); |
1098 |
|
|
1327 |
if (in_sgc && sgc_enabled==0) |
if (in_sgc && sgc_enabled==0) |
1328 |
sgc_start(); |
sgc_start(); |
1329 |
|
|
1330 |
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));} |
1331 |
|
|
1332 |
if (sSAnotify_gbcA->s.s_dbind != Cnil) { |
if (sSAnotify_gbcA->s.s_dbind != Cnil) { |
1333 |
|
|
1334 |
fprintf(stdout, "(T=%d).GC finished]\n", |
if (gc_recursive) |
1335 |
gc_start |
fprintf(stdout, "(T=...).GC finished]\n"); |
1336 |
); |
else |
1337 |
|
fprintf(stdout, "(T=%d).GC finished]\n",gc_start); |
1338 |
fflush(stdout); |
fflush(stdout); |
1339 |
|
|
1340 |
} |
} |
1341 |
|
|
1342 |
|
|