suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix continuation reuse in non-JIT mode

Browse Source 
The continuation mark to generate stack traces interfered with the
detection of equivalent continuations.
This commit is contained in:
Matthew Flatt 2014-12-05 10:16:56 -07:00
parent 38da2aa2e7
commit 2837c995a9
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
racket/src/racket/src/fun.c
View File

@ -4736,8 +4736,14 @@ static MZ_MARK_STACK_TYPE find_shareable_marks()
if (seg[pos].pos < MZ_CONT_MARK_POS)
break;
/* If a key is cont_key or scheme_stack_dump_key, then treat it
as sharable, because we don't mind if a new continuation gets
the old value. */
if (SAME_OBJ(seg[pos].key, cont_key))
delta = 1;
delta++;
else if (SAME_OBJ(seg[pos].key, scheme_stack_dump_key))
delta++;
else
delta = 0;
}