fix placement of "instantiate" starting counter

This commit is contained in:
Matthew Flatt 2018-12-07 07:53:56 -07:00
parent 99feebf070
commit 45046f4c5d

View File

@ -1323,8 +1323,6 @@ static void *instantiate_linklet_k(void)
Scheme_Hash_Tree *source_names;
Scheme_Performance_State perf_state;
scheme_performance_record_start(&perf_state);
p->ku.k.p1 = NULL;
p->ku.k.p2 = NULL;
p->ku.k.p3 = NULL;
@ -1340,6 +1338,8 @@ static void *instantiate_linklet_k(void)
return (Scheme_Object *)scheme_enlarge_runstack(depth, instantiate_linklet_k);
}
scheme_performance_record_start(&perf_state);
if (!linklet->jit_ready) {
b = scheme_get_param(scheme_current_config(), MZCONFIG_USE_JIT);
if (SCHEME_TRUEP(b))