mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 04:10:18 +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>
* gc.h (SCM_SET_FREE_CELL_TYPE, SCM_SET_FREE_CELL_CDR,

21
libguile/gc.c
View file

@ -1212,16 +1212,16 @@ gc_mark_nimp:
void
scm_mark_locations (SCM_STACKITEM x[], scm_sizet n)
{
register long m = n;
register int i, j;
register SCM_CELLPTR ptr;
unsigned long m;
while (0 <= --m)
if (SCM_CELLP (* (SCM *) &x[m]))
for (m = 0; m < n; ++m)
{
ptr = SCM2PTR (* (SCM *) &x[m]);
i = 0;
j = scm_n_heap_segs - 1;
SCM obj = * (SCM *) &x[m];
if (SCM_CELLP (obj))
{
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))
{
@ -1260,13 +1260,14 @@ scm_mark_locations (SCM_STACKITEM x[], scm_sizet n)
}
}
if (scm_heap_table[seg_id].span == 1
|| SCM_DOUBLE_CELLP (* (SCM *) &x[m]))
scm_gc_mark (* (SCM *) &x[m]);
|| SCM_DOUBLE_CELLP (obj))
scm_gc_mark (obj);
break;
}
}
}
}
}
/* The function scm_cellp determines whether an SCM value can be regarded as a