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

fix a problem with continuation allocation

Browse Source 
i.e., fix commit 2ad41bb669

Merge to 5.3
This commit is contained in:
Matthew Flatt 2012-04-15 08:23:10 -06:00
parent ff378d12ce
commit c321608856
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -5264,9 +5264,15 @@ internal_call_cc (int argc, Scheme_Object *argv[])
/* Only continuation marks can be different. Mostly just re-use sub_cont. */
intptr_t offset;
Scheme_Cont_Mark *msaved;
Scheme_Cont_Jmp *buf_ptr;
cont = MALLOC_ONE_TAGGED(Scheme_Cont);
cont->so.type = scheme_cont_type;
buf_ptr = MALLOC_ONE_RT(Scheme_Cont_Jmp);
SET_REQUIRED_TAG(buf_ptr->type = scheme_rt_cont_jmp);
cont->buf_ptr = buf_ptr;
cont->buf_ptr->buf.cont = sub_cont;
cont->escape_cont = sub_cont->escape_cont;