unbreak no-JIT build
This commit is contained in:
parent
c05b9409d5
commit
0d1f4e3c63
|
@ -445,7 +445,9 @@ static Scheme_Env *place_instance_init(void *stack_base, int initial_main_os_thr
|
|||
|
||||
scheme_init_compenv_places();
|
||||
|
||||
#ifdef MZ_USE_JIT
|
||||
scheme_init_jitprep();
|
||||
#endif
|
||||
|
||||
#ifdef TIME_STARTUP_PROCESS
|
||||
printf("pre-process @ %" PRIdPTR "\n", scheme_get_process_milliseconds());
|
||||
|
|
|
@ -1414,6 +1414,7 @@ static void *instantiate_linklet_k(void)
|
|||
if (!multi)
|
||||
v = scheme_check_one_value(v);
|
||||
|
||||
#ifdef MZ_USE_JIT
|
||||
if (linklet->native_lambdas) {
|
||||
int mc;
|
||||
Scheme_Object **mv, *l;
|
||||
|
@ -1443,6 +1444,7 @@ static void *instantiate_linklet_k(void)
|
|||
p->ku.multiple.count = mc;
|
||||
}
|
||||
}
|
||||
#endif
|
||||
|
||||
scheme_performance_record_end("instantiate", &perf_state);
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user