From 2a8d72f7e0f54037f7d9200f48ee8c91d13e5b75 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Wed, 27 Jun 2018 19:26:03 +0200 Subject: 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. --- libguile/vm-engine.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'libguile/vm-engine.c') 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; \ -- cgit v1.2.3