mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

* gc.c: (scm_gc_mark_dependencies): use SCM_EQ_P for SCMs, not

Browse source 
'=='.  also, return after calling `scm_gc_mark'.
This commit is contained in:
Michael Livshin 2000-12-24 09:54:24 +00:00
parent 3405cffa63
commit 0209177b77
2 changed files with 8 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/ChangeLog
View file

@ -1,3 +1,8 @@
2000-12-24 Michael Livshin <mlivshin@bigfoot.com>
* gc.c: (scm_gc_mark_dependencies): use SCM_EQ_P for SCMs, not
'=='. also, return after calling `scm_gc_mark'.
2000-12-24 Michael Livshin <mlivshin@bigfoot.com>
* gc.c: (scm_gc_mark_dependencies): new function. like

6
libguile/gc.c
View file

@ -1125,10 +1125,11 @@ gc_mark_loop:
gc_mark_nimp:
#ifdef MARK_DEPENDENCIES
if (ptr == p)
if (SCM_EQ_P (ptr, p))
return;
scm_gc_mark (ptr);
return;
gc_mark_loop_first_time:
#endif
@ -1381,13 +1382,13 @@ gc_mark_loop_first_time:
def:
SCM_MISC_ERROR ("unknown type", SCM_EOL);
}
#undef RECURSE
}
#undef FUNC_NAME
#ifndef MARK_DEPENDENCIES
#undef MARK
#undef RECURSE
#undef FNAME
/* And here we define `scm_gc_mark_dependencies', by including this
@ -1399,7 +1400,6 @@ gc_mark_loop_first_time:
#include "gc.c"
#undef MARK_DEPENDENCIES
#undef MARK
#undef RECURSE
#undef FNAME