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

fix bug when JIT is dynamically disabled

Browse Source 
svn: r16144
This commit is contained in:
Matthew Flatt 2009-09-28 15:22:46 +00:00
parent 982f533d28
commit ce6c12daf8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/mzscheme/src/jit.c
View File

@ -9665,13 +9665,19 @@ typedef void *(*Module_Start_Proc)(struct Start_Module_Args *a, Scheme_Object **
void *scheme_module_run_start(Scheme_Env *menv, Scheme_Env *env, Scheme_Object *name) void *scheme_module_run_start(Scheme_Env *menv, Scheme_Env *env, Scheme_Object *name)
{ {
Module_Run_Proc proc = (Module_Run_Proc)module_run_start_code; Module_Run_Proc proc = (Module_Run_Proc)module_run_start_code;
if (proc)
return proc(menv, env, &name); return proc(menv, env, &name);
else
return scheme_module_run_finish(menv, env);
} }
void *scheme_module_start_start(struct Start_Module_Args *a, Scheme_Object *name) void *scheme_module_start_start(struct Start_Module_Args *a, Scheme_Object *name)
{ {
Module_Start_Proc proc = (Module_Start_Proc)module_start_start_code; Module_Start_Proc proc = (Module_Start_Proc)module_start_start_code;
if (proc)
return proc(a, &name); return proc(a, &name);
else
return scheme_module_start_finish(a);
} }
/**********************************************************************/ /**********************************************************************/