72 |
GC_bool GC_need_full_gc = FALSE; |
GC_bool GC_need_full_gc = FALSE; |
73 |
/* Need full GC do to heap growth. */ |
/* Need full GC do to heap growth. */ |
74 |
|
|
75 |
|
#ifdef THREADS |
76 |
|
GC_bool GC_world_stopped = FALSE; |
77 |
|
# define IF_THREADS(x) x |
78 |
|
#else |
79 |
|
# define IF_THREADS(x) |
80 |
|
#endif |
81 |
|
|
82 |
word GC_used_heap_size_after_full = 0; |
word GC_used_heap_size_after_full = 0; |
83 |
|
|
84 |
char * GC_copyright[] = |
char * GC_copyright[] = |
495 |
GC_cond_register_dynamic_libraries(); |
GC_cond_register_dynamic_libraries(); |
496 |
# endif |
# endif |
497 |
STOP_WORLD(); |
STOP_WORLD(); |
498 |
|
IF_THREADS(GC_world_stopped = TRUE); |
499 |
# ifdef CONDPRINT |
# ifdef CONDPRINT |
500 |
if (GC_print_stats) { |
if (GC_print_stats) { |
501 |
GC_printf1("--> Marking for collection %lu ", |
GC_printf1("--> Marking for collection %lu ", |
526 |
} |
} |
527 |
# endif |
# endif |
528 |
GC_deficit = i; /* Give the mutator a chance. */ |
GC_deficit = i; /* Give the mutator a chance. */ |
529 |
|
IF_THREADS(GC_world_stopped = FALSE); |
530 |
START_WORLD(); |
START_WORLD(); |
531 |
return(FALSE); |
return(FALSE); |
532 |
} |
} |
560 |
(*GC_check_heap)(); |
(*GC_check_heap)(); |
561 |
} |
} |
562 |
|
|
563 |
|
IF_THREADS(GC_world_stopped = FALSE); |
564 |
START_WORLD(); |
START_WORLD(); |
565 |
# ifdef PRINTTIMES |
# ifdef PRINTTIMES |
566 |
GET_TIME(current_time); |
GET_TIME(current_time); |