diff options
author | Andy Wingo <wingo@pobox.com> | 2018-06-27 19:26:03 +0200 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2018-06-27 19:26:03 +0200 |
commit | 2a8d72f7e0f54037f7d9200f48ee8c91d13e5b75 (patch) | |
tree | 780cf6b5f540baa479b9e9c90b09dcbba6604020 /libguile/vm-engine.c | |
parent | 19cff78bb5a0e4728f721ab9366898397b9c56e5 (diff) | |
download | guile-2a8d72f7e0f54037f7d9200f48ee8c91d13e5b75.tar.gz |
Microoptimizations to hook dispatch
* libguile/vm.c (vm_dispatch_hook): Add a check that we're in the debug
engine and the trace level is positive. Allows us to do cheaper
checks for when to dispatch hooks.
(scm_call_n): Just check if trace level is nonzero.
* libguile/vm-engine.c (RUN_HOOK): Likewise just check if trace level is
nonzero.
Diffstat (limited to 'libguile/vm-engine.c')
-rw-r--r-- | libguile/vm-engine.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libguile/vm-engine.c b/libguile/vm-engine.c index b0a5ca7a2..d08ebbb74 100644 --- a/libguile/vm-engine.c +++ b/libguile/vm-engine.c @@ -112,7 +112,7 @@ #if VM_USE_HOOKS #define RUN_HOOK(exp) \ do { \ - if (SCM_UNLIKELY (VP->trace_level > 0)) \ + if (SCM_UNLIKELY (VP->trace_level)) \ { \ SYNC_IP (); \ exp; \ |