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

fix 3m problem with --disable-jit and --disable-futures

Browse Source 
Merge to 5.0.2
(cherry picked from commit 68079d738d)
This commit is contained in:
Matthew Flatt 2010-10-17 08:53:44 -06:00 committed by Ryan Culpepper
parent 83dfd88505
commit 9610515529
3 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -9823,7 +9823,9 @@ static void register_traversers(void)
GC_REG_TRAV(scheme_rt_dyn_wind_cell, mark_dyn_wind_cell); GC_REG_TRAV(scheme_rt_dyn_wind_cell, mark_dyn_wind_cell);
GC_REG_TRAV(scheme_rt_dyn_wind_info, mark_dyn_wind_info); GC_REG_TRAV(scheme_rt_dyn_wind_info, mark_dyn_wind_info);
GC_REG_TRAV(scheme_cont_mark_chain_type, mark_cont_mark_chain); GC_REG_TRAV(scheme_cont_mark_chain_type, mark_cont_mark_chain);
#ifdef MZ_USE_JIT
GC_REG_TRAV(scheme_rt_lightweight_cont, mark_lightweight_cont); GC_REG_TRAV(scheme_rt_lightweight_cont, mark_lightweight_cont);
#endif
} }
END_XFORM_SKIP; END_XFORM_SKIP;

4
src/racket/src/mzmark.c
View File

@ -3319,6 +3319,8 @@ static int mark_cont_mark_chain_FIXUP(void *p, struct NewGC *gc) {
#define mark_cont_mark_chain_IS_CONST_SIZE 1 #define mark_cont_mark_chain_IS_CONST_SIZE 1
#ifdef MZ_USE_JIT
static int mark_lightweight_cont_SIZE(void *p, struct NewGC *gc) { static int mark_lightweight_cont_SIZE(void *p, struct NewGC *gc) {
return return
gcBYTES_TO_WORDS(sizeof(Scheme_Lightweight_Continuation)); gcBYTES_TO_WORDS(sizeof(Scheme_Lightweight_Continuation));
@ -3352,6 +3354,8 @@ static int mark_lightweight_cont_FIXUP(void *p, struct NewGC *gc) {
#define mark_lightweight_cont_IS_CONST_SIZE 1 #define mark_lightweight_cont_IS_CONST_SIZE 1
#endif
#endif /* FUN */ #endif /* FUN */
/**********************************************************************/ /**********************************************************************/

4
src/racket/src/mzmarksrc.c
View File

@ -1336,6 +1336,8 @@ mark_cont_mark_chain {
gcBYTES_TO_WORDS(sizeof(Scheme_Cont_Mark_Chain)); gcBYTES_TO_WORDS(sizeof(Scheme_Cont_Mark_Chain));
} }
#ifdef MZ_USE_JIT
mark_lightweight_cont { mark_lightweight_cont {
mark: mark:
Scheme_Lightweight_Continuation *lw = (Scheme_Lightweight_Continuation *)p; Scheme_Lightweight_Continuation *lw = (Scheme_Lightweight_Continuation *)p;
@ -1349,6 +1351,8 @@ mark_lightweight_cont {
gcBYTES_TO_WORDS(sizeof(Scheme_Lightweight_Continuation)); gcBYTES_TO_WORDS(sizeof(Scheme_Lightweight_Continuation));
} }
#endif
END fun; END fun;
/**********************************************************************/ /**********************************************************************/