From cc997293e2f8725d0f3699331930b5490b033226 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 31 Aug 2018 11:28:38 +0200 Subject: JIT threshold controlled by environment variable * libguile/jit.c (scm_jit_counter_threshold): Make a static variable instead of a compile-time constant. (scm_init_jit): Init scm_jit_counter_threshold from GUILE_JIT_COUNTER_THRESHOLD environment variable. Default is -1 indicating "never JIT". * libguile/vm-engine.c (instrument-entry, instrument-loop): Adapt to new variable. --- libguile/vm-engine.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'libguile/vm-engine.c') diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index 58ff53cda..4356159ac 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -471,7 +471,7 @@ VM_NAME (scm_thread *thread) NEXT (0); } - if (data->counter > SCM_JIT_COUNTER_THRESHOLD) + if (data->counter > scm_jit_counter_threshold) { const uint8_t *mcode; @@ -722,7 +722,7 @@ VM_NAME (scm_thread *thread) data = (struct scm_jit_function_data *) (ip + data_offset); - if (data->counter > SCM_JIT_COUNTER_THRESHOLD) + if (data->counter > scm_jit_counter_threshold) { const uint8_t *mcode; -- cgit v1.2.3