Remove unnecessary MZ_USE_JIT (#2602)
* Remove irrelevant #ifdefs MZ_USE_JIT Bonus points - fixes a compiler warning on aarch64 and a typo. * Fixes a compiler warning on aarch64 for unused current_linklet_native_lambdas
This commit is contained in:
parent
ce76c673b1
commit
e2ab4869d7
|
@ -3,17 +3,16 @@
|
|||
or unmarshaled.
|
||||
|
||||
See "eval.c" for an overview of compilation passes and JIT
|
||||
prepraration. */
|
||||
preparation. */
|
||||
|
||||
#include "schpriv.h"
|
||||
#include "schrunst.h"
|
||||
#include "schmach.h"
|
||||
|
||||
#ifdef MZ_USE_JIT
|
||||
THREAD_LOCAL_DECL(static Scheme_Object *current_linklet_native_lambdas);
|
||||
static int force_jit;
|
||||
|
||||
#ifdef MZ_USE_JIT
|
||||
|
||||
void scheme_init_jitprep()
|
||||
{
|
||||
REGISTER_SO(current_linklet_native_lambdas);
|
||||
|
@ -391,7 +390,6 @@ static Scheme_Object *with_immed_mark_jit(Scheme_Object *o)
|
|||
|
||||
Scheme_Object *scheme_case_lambda_jit(Scheme_Object *expr)
|
||||
{
|
||||
#ifdef MZ_USE_JIT
|
||||
Scheme_Case_Lambda *seqin = (Scheme_Case_Lambda *)expr;
|
||||
|
||||
if (!seqin->native_code) {
|
||||
|
@ -473,8 +471,7 @@ Scheme_Object *scheme_case_lambda_jit(Scheme_Object *expr)
|
|||
|
||||
return (Scheme_Object *)seqout;
|
||||
}
|
||||
#endif
|
||||
|
||||
|
||||
return expr;
|
||||
}
|
||||
|
||||
|
@ -538,7 +535,6 @@ Scheme_Object *scheme_jit_closure(Scheme_Object *code, Scheme_Object *context)
|
|||
/* If lr is supplied as a letrec binding this closure, it may be used
|
||||
for JIT compilation. */
|
||||
{
|
||||
#ifdef MZ_USE_JIT
|
||||
Scheme_Lambda *data = (Scheme_Lambda *)code, *data2;
|
||||
|
||||
/* We need to cache clones to support multiple references
|
||||
|
@ -582,9 +578,6 @@ Scheme_Object *scheme_jit_closure(Scheme_Object *code, Scheme_Object *context)
|
|||
return scheme_make_native_closure(data2->u.native_code);
|
||||
|
||||
return (Scheme_Object *)data2;
|
||||
#endif
|
||||
|
||||
return code;
|
||||
}
|
||||
|
||||
/*========================================================================*/
|
||||
|
@ -616,7 +609,7 @@ static Scheme_Object *jit_expr(Scheme_Object *expr)
|
|||
return scheme_handle_stack_overflow(jit_expr_k);
|
||||
}
|
||||
}
|
||||
#endif
|
||||
#endif /* DO_STACK_CHECK */
|
||||
|
||||
switch (type) {
|
||||
case scheme_application_type:
|
||||
|
@ -722,11 +715,11 @@ Scheme_Linklet *scheme_jit_linklet(Scheme_Linklet *linklet, int step)
|
|||
return new_linklet;
|
||||
}
|
||||
|
||||
#else
|
||||
#else /* ! MZ_USE_JIT */
|
||||
|
||||
Scheme_Linklet *scheme_jit_linklet(Scheme_Linklet *linklet, int step)
|
||||
{
|
||||
return linklet;
|
||||
}
|
||||
|
||||
#endif
|
||||
#endif /* MZ_USE_JIT */
|
||||
|
|
Loading…
Reference in New Issue
Block a user