mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 12:20:26 +02:00
Code Activity

* Minor cleanups in scm_mark_locations.

Browse source
This commit is contained in:
Dirk Herrmann 2000-07-13 07:40:04 +00:00
parent 0491498616
commit c4da09e2dd
2 changed files with 59 additions and 53 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-07-13 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.c (scm_mark_locations): Minimized some variable scopes and
simplified the code a bit.
2000-07-10 Dirk Herrmann <D.Herrmann@tu-bs.de> 2000-07-10 Dirk Herrmann <D.Herrmann@tu-bs.de>
* gc.h (SCM_SET_FREE_CELL_TYPE, SCM_SET_FREE_CELL_CDR, * gc.h (SCM_SET_FREE_CELL_TYPE, SCM_SET_FREE_CELL_CDR,

25
libguile/gc.c
View file

@ -1212,24 +1212,24 @@ gc_mark_nimp:
void void
scm_mark_locations (SCM_STACKITEM x[], scm_sizet n) scm_mark_locations (SCM_STACKITEM x[], scm_sizet n)
{ {
register long m = n; unsigned long m;
register int i, j;
register SCM_CELLPTR ptr;
while (0 <= --m) for (m = 0; m < n; ++m)
if (SCM_CELLP (* (SCM *) &x[m]))
{ {
ptr = SCM2PTR (* (SCM *) &x[m]); SCM obj = * (SCM *) &x[m];
i = 0; if (SCM_CELLP (obj))
j = scm_n_heap_segs - 1; {
if ( SCM_PTR_LE (scm_heap_table[i].bounds[0], ptr) SCM_CELLPTR ptr = SCM2PTR (obj);
int i = 0;
int j = scm_n_heap_segs - 1;
if (SCM_PTR_LE (scm_heap_table[i].bounds[0], ptr)
&& SCM_PTR_GT (scm_heap_table[j].bounds[1], ptr)) && SCM_PTR_GT (scm_heap_table[j].bounds[1], ptr))
{ {
while (i <= j) while (i <= j)
{ {
int seg_id; int seg_id;
seg_id = -1; seg_id = -1;
if ( (i == j) if ((i == j)
|| SCM_PTR_GT (scm_heap_table[i].bounds[1], ptr)) || SCM_PTR_GT (scm_heap_table[i].bounds[1], ptr))
seg_id = i; seg_id = i;
else if (SCM_PTR_LE (scm_heap_table[j].bounds[0], ptr)) else if (SCM_PTR_LE (scm_heap_table[j].bounds[0], ptr))
@ -1260,12 +1260,13 @@ scm_mark_locations (SCM_STACKITEM x[], scm_sizet n)
} }
} }
if (scm_heap_table[seg_id].span == 1 if (scm_heap_table[seg_id].span == 1
|| SCM_DOUBLE_CELLP (* (SCM *) &x[m])) || SCM_DOUBLE_CELLP (obj))
scm_gc_mark (* (SCM *) &x[m]); scm_gc_mark (obj);
break; break;
} }
} }
} }
}
} }