mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

* gc.c (scm_gc_sweep): Moved variable n_objects to inner sweep

Browse source 
loop and declare as register.
This commit is contained in:
Mikael Djurfeldt 2000-03-16 01:18:13 +00:00
parent c5133dc959
commit 0df07278df
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/gc.c
View file

@ -1293,9 +1293,6 @@ scm_gc_sweep ()
register scm_freelist_t *hp_freelist; register scm_freelist_t *hp_freelist;
register long m; register long m;
register int span; register int span;
#ifdef GUILE_NEW_GC_SCHEME
long n_objects;
#endif
long i; long i;
scm_sizet seg_size; scm_sizet seg_size;
@ -1325,6 +1322,9 @@ scm_gc_sweep ()
{ {
register scm_sizet n = 0; register scm_sizet n = 0;
register scm_sizet j; register scm_sizet j;
#ifdef GUILE_NEW_GC_SCHEME
register scm_sizet n_objects;
#endif
/* Unmarked cells go onto the front of the freelist this heap /* Unmarked cells go onto the front of the freelist this heap
segment points to. Rather than updating the real freelist segment points to. Rather than updating the real freelist
@ -1546,8 +1546,8 @@ scm_gc_sweep ()
hp_freelist->clustertail = SCM_CDRLOC (scmptr); hp_freelist->clustertail = SCM_CDRLOC (scmptr);
nfreelist = SCM_EOL; nfreelist = SCM_EOL;
n += span * (hp_freelist->gc_trigger - n_objects + 1);
n_objects = hp_freelist->gc_trigger; n_objects = hp_freelist->gc_trigger;
n += span * (n_objects + 1);
} }
else else
#endif #endif