mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 07:30:32 +02:00
Code Activity

JIT threshold controlled by environment variable

Browse source 
* 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.
This commit is contained in:
Andy Wingo 2018-08-31 11:28:38 +02:00
parent def671974c
commit cc997293e2
3 changed files with 10 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/vm-engine.c
View file

@ -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;