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

fix --disable-jit plus --disable-futures

Browse Source 
Merge to 5.0.2
This commit is contained in:
Matthew Flatt 2010-10-17 08:51:18 -06:00
parent 51f20afd0b
commit aaeb21e0cc
1 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -8358,6 +8358,8 @@ static Scheme_Object *continuation_prompt_available(int argc, Scheme_Object *arg
JIT-generated code. The code here manages capture and restore for JIT-generated code. The code here manages capture and restore for
the runstack and mark stack, while the rest is in the JIT. */ the runstack and mark stack, while the rest is in the JIT. */
#ifdef MZ_USE_JIT
struct Scheme_Lightweight_Continuation { struct Scheme_Lightweight_Continuation {
MZTAG_IF_REQUIRED /* scheme_rt_lightweight_cont */ MZTAG_IF_REQUIRED /* scheme_rt_lightweight_cont */
Scheme_Current_LWC *saved_lwc; Scheme_Current_LWC *saved_lwc;
@ -8639,6 +8641,12 @@ int scheme_push_marks_from_thread(Scheme_Thread *p2, Scheme_Cont_Frame_Data *d)
return 0; return 0;
} }
#else
void scheme_init_thread_lwc(void) XFORM_SKIP_PROC { }
#endif
/*========================================================================*/ /*========================================================================*/
/* dynamic-wind */ /* dynamic-wind */
/*========================================================================*/ /*========================================================================*/