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[] = |
477 |
GC_cond_register_dynamic_libraries(); |
GC_cond_register_dynamic_libraries(); |
478 |
# endif |
# endif |
479 |
STOP_WORLD(); |
STOP_WORLD(); |
480 |
|
IF_THREADS(GC_world_stopped = TRUE); |
481 |
# ifdef CONDPRINT |
# ifdef CONDPRINT |
482 |
if (GC_print_stats) { |
if (GC_print_stats) { |
483 |
GC_printf1("--> Marking for collection %lu ", |
GC_printf1("--> Marking for collection %lu ", |
508 |
} |
} |
509 |
# endif |
# endif |
510 |
GC_deficit = i; /* Give the mutator a chance. */ |
GC_deficit = i; /* Give the mutator a chance. */ |
511 |
|
IF_THREADS(GC_world_stopped = FALSE); |
512 |
START_WORLD(); |
START_WORLD(); |
513 |
return(FALSE); |
return(FALSE); |
514 |
} |
} |
542 |
(*GC_check_heap)(); |
(*GC_check_heap)(); |
543 |
} |
} |
544 |
|
|
545 |
|
IF_THREADS(GC_world_stopped = FALSE); |
546 |
START_WORLD(); |
START_WORLD(); |
547 |
# ifdef PRINTTIMES |
# ifdef PRINTTIMES |
548 |
GET_TIME(current_time); |
GET_TIME(current_time); |