summaryrefslogtreecommitdiff
path: root/libguile/vm-engine.c
diff options
context:
space:
mode:
authorAndy Wingo <wingo@pobox.com>2018-06-27 19:26:03 +0200
committerAndy Wingo <wingo@pobox.com>2018-06-27 19:26:03 +0200
commit2a8d72f7e0f54037f7d9200f48ee8c91d13e5b75 (patch)
tree780cf6b5f540baa479b9e9c90b09dcbba6604020 /libguile/vm-engine.c
parent19cff78bb5a0e4728f721ab9366898397b9c56e5 (diff)
downloadguile-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.c2
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; \