Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-18 21:29:19 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

avoid gc recursion on non-pointers

Browse source
This commit is contained in:
Alex Shinn 2020-05-25 18:50:47 +09:00
parent 110487b9b2
commit 7bbbb1fb2c
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
gc.c
View file

@ -270,7 +270,7 @@ static void sexp_mark_one (sexp ctx, sexp* types, sexp x) {
if (len >= 0) { if (len >= 0) {
p = (sexp*) (((char*)x) + sexp_type_field_base(t)); p = (sexp*) (((char*)x) + sexp_type_field_base(t));
q = p + len; q = p + len;
while (p < q && ! (*q && sexp_pointerp(*q))) while (p < q && (*q && sexp_pointerp(*q) ? sexp_markedp(*q) : 1))
q--; /* skip trailing immediates */ q--; /* skip trailing immediates */
while (p < q && *q == q[-1]) while (p < q && *q == q[-1])
q--; /* skip trailing duplicates */ q--; /* skip trailing duplicates */