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

[Places] remove unneeded jit_lock

Browse Source
This commit is contained in:
Kevin Tew 2010-05-05 06:36:24 -06:00
parent bb798b4ba5
commit 3d9a28eb50
3 changed files with 0 additions and 54 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -476,10 +476,6 @@ static Scheme_Env *place_instance_init(void *stack_base, int initial_main_os_thr
printf("process @ %ld\n", scheme_get_process_milliseconds());
#endif
#ifdef MZ_USE_JIT
scheme_init_jit();
#endif
/* error handling and buffers */
/* this check prevents initializing orig ports twice for the first initial
* place. The kernel initializes orig_ports early. */

47
src/racket/src/jit.c
View File

@ -738,41 +738,6 @@ static void emit_indentation(mz_jit_state *jitter)
# define LOG_IT(args) /* empty */
#endif
/*========================================================================*/
/* initialization */
/*========================================================================*/
#ifdef MZ_USE_PLACES
THREAD_LOCAL_DECL(static mzrt_mutex *jit_lock);
THREAD_LOCAL_DECL(static int in_jit_critical_section);
static void BEGIN_JIT_CRITICAL_SECTION()
{
if (!in_jit_critical_section)
mzrt_mutex_lock(jit_lock);
in_jit_critical_section++;
}
static void END_JIT_CRITICAL_SECTION()
{
--in_jit_critical_section;
if (!in_jit_critical_section)
mzrt_mutex_unlock(jit_lock);
}
#else
# define BEGIN_JIT_CRITICAL_SECTION() /* empty */
# define END_JIT_CRITICAL_SECTION() /* empty */
#endif
void scheme_init_jit()
{
#ifdef MZ_USE_PLACES
mzrt_mutex_create(&jit_lock);
#endif
}
/*========================================================================*/
/* run time */
/*========================================================================*/
@ -8765,12 +8730,8 @@ Scheme_Native_Closure_Data *scheme_generate_case_lambda(Scheme_Case_Lambda *c)
{
Scheme_Native_Closure_Data *ndata;
BEGIN_JIT_CRITICAL_SECTION();
ndata = create_native_case_lambda(c);
END_JIT_CRITICAL_SECTION();
return ndata;
}
@ -12511,11 +12472,7 @@ static void on_demand_generate_lambda(Scheme_Native_Closure *nc, int argc, Schem
void scheme_on_demand_generate_lambda(Scheme_Native_Closure *nc, int argc, Scheme_Object **argv)
{
BEGIN_JIT_CRITICAL_SECTION();
on_demand_generate_lambda(nc, argc, argv);
END_JIT_CRITICAL_SECTION();
}
static void on_demand_with_args(Scheme_Object **in_argv)
@ -12582,12 +12539,8 @@ Scheme_Native_Closure_Data *scheme_generate_lambda(Scheme_Closure_Data *data, in
{
Scheme_Native_Closure_Data *ndata;
BEGIN_JIT_CRITICAL_SECTION();
ndata = create_native_lambda(data, clear_code_after_jit, case_lam);
END_JIT_CRITICAL_SECTION();
return ndata;
}

3
src/racket/src/schpriv.h
View File

@ -234,9 +234,6 @@ void scheme_init_dynamic_extension(Scheme_Env *env);
extern void scheme_regexp_initialize(Scheme_Env *env);
#endif
void scheme_init_salloc(void);
#ifdef MZ_USE_JIT
void scheme_init_jit(void);
#endif
void scheme_init_memtrace(Scheme_Env *env);
void scheme_init_paramz(Scheme_Env *env);
void scheme_init_parameterization();