summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-08-31 11:28:38 +0200
committerAndy Wingo <wingo@pobox.com>2018-08-31 11:28:38 +0200
commitcc997293e2f8725d0f3699331930b5490b033226 (patch)
tree0e2b48c0f3ae3a35e7e12cf77cfbe1a41d733177 /libguile/vm-engine.c
parentdef671974c64ace851ac019b5cdff2228284310d (diff)
downloadguile-cc997293e2f8725d0f3699331930b5490b033226.tar.gz
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.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r--libguile/vm-engine.c4
1 files changed, 2 insertions, 2 deletions
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;