MatCat.OpenSource/8sa1-gcc
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

misc.c: Back out buggy changes to stack clearing code.

Browse Source 
* misc.c: Back out buggy changes to stack clearing code.
	Reduce CLEAR_SIZE to 1/4 of original value to reduce time
	spent clearing memory.

From-SVN: r41172
This commit is contained in:
Hans Boehm 2001-04-06 17:11:43 -07:00 committed by Per Bothner
parent 14bc1c0e15
commit c8cd06a813
2 changed files with 13 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
boehm-gc/ChangeLog
View File

@ -1,3 +1,9 @@
2001-04-05 Hans Boehm <hans_boehm@hp.com>
* misc.c: Back out buggy changes to stack clearing code.
Reduce CLEAR_SIZE to 1/4 of original value to reduce time
spent clearing memory.
2001-04-04 Hans Boehm <hans_boehm@hp.com>
* finalize.c:

23
boehm-gc/misc.c
View File

@ -206,10 +206,10 @@ extern signed_word GC_mem_found;
*/
word GC_stack_last_cleared = 0; /* GC_no when we last did this */
# ifdef THREADS
# define BIG_CLEAR_SIZE 2048 /* Clear this much now and then. */
# define SMALL_CLEAR_SIZE 256 /* Clear this much every time. */
# define CLEAR_SIZE 512
# else
# define CLEAR_SIZE 213
# endif
# define CLEAR_SIZE 213 /* Granularity for GC_clear_stack_inner */
# define DEGRADE_RATE 50
word GC_min_sp; /* Coolest stack pointer value from which we've */
@ -266,12 +266,10 @@ ptr_t arg;
{
register word sp = (word)GC_approx_sp(); /* Hotter than actual sp */
# ifdef THREADS
word dummy[SMALL_CLEAR_SIZE];
unsigned random_no = 0; /* Should be more random than it is ... */
/* Used to occasionally clear a bigger */
/* chunk. */
word dummy[CLEAR_SIZE];
# else
register word limit;
# endif
register word limit;
# define SLOP 400
/* Extra bytes we clear every time. This clears our own */
@ -289,14 +287,7 @@ ptr_t arg;
/* thus more junk remains accessible, thus the heap gets */
/* larger ... */
# ifdef THREADS
if (++random_no % 13 == 0) {
limit = sp;
MAKE_HOTTER(limit, BIG_CLEAR_SIZE*sizeof(word));
return GC_lear_stack_inner(arg, limit);
} else {
BZERO(dummy, SMALL_CLEAR_SIZE*sizeof(word));
return arg;
}
BZERO(dummy, CLEAR_SIZE*sizeof(word));
# else
if (GC_gc_no > GC_stack_last_cleared) {
/* Start things over, so we clear the entire stack again */