From 7d3768dbd2a1cd4d5c14f773f23aec43bc0651a5 Mon Sep 17 00:00:00 2001 From: Ivan Maidanski Date: Tue, 26 Jul 2011 15:16:41 +0400 Subject: gc4.12 tarball import --- blacklst.c | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'blacklst.c') diff --git a/blacklst.c b/blacklst.c index 7b27993c..5917eb7a 100644 --- a/blacklst.c +++ b/blacklst.c @@ -46,7 +46,7 @@ word * GC_incomplete_normal_bl; word * GC_old_stack_bl; word * GC_incomplete_stack_bl; -word GC_total_black_listed; +word GC_total_stack_black_listed; word GC_black_list_spacing = MINHINCR*HBLKSIZE; /* Initial rough guess */ @@ -89,7 +89,7 @@ word *new, *old; BCOPY(old, new, sizeof(page_hash_table)); } -static word total_black_listed(); +static word total_stack_black_listed(); /* Signal the completion of a collection. Turn the incomplete black */ /* lists into new black lists, etc. */ @@ -106,13 +106,14 @@ void GC_promote_black_lists() GC_clear_bl(very_old_stack_bl); GC_incomplete_normal_bl = very_old_normal_bl; GC_incomplete_stack_bl = very_old_stack_bl; - GC_total_black_listed = total_black_listed(); + GC_total_stack_black_listed = total_stack_black_listed(); # ifdef PRINTSTATS - GC_printf1("%ld blacklisted bytes in heap\n", - (unsigned long)GC_total_black_listed); + GC_printf1("%ld bytes in heap blacklisted for interior pointers\n", + (unsigned long)GC_total_stack_black_listed); # endif - if (GC_total_black_listed != 0) { - GC_black_list_spacing = HBLKSIZE*(GC_heapsize/GC_total_black_listed); + if (GC_total_stack_black_listed != 0) { + GC_black_list_spacing = + HBLKSIZE*(GC_heapsize/GC_total_stack_black_listed); } if (GC_black_list_spacing < 3 * HBLKSIZE) { GC_black_list_spacing = 3 * HBLKSIZE; @@ -230,7 +231,7 @@ struct hblk *start, *endp1; /* Return the total number of (stack) black-listed bytes. */ -static word total_black_listed() +static word total_stack_black_listed() { register unsigned i; word total = 0; -- cgit v1.2.1