From 9a4283ed6aafc1e43d8f7a5fd9cef6118615f284 Mon Sep 17 00:00:00 2001 From: Justus Winter Date: Thu, 30 Mar 2017 12:19:01 +0200 Subject: gpgscm: Slightly improve the procedure dispatch. * tests/gpgscm/scheme.c (procnum): Procedures always have an integer number, so we can safely use the cheaper 'ivalue_unchecked'. Signed-off-by: Justus Winter --- scheme.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/scheme.c b/scheme.c index b76e83c..fbc562d 100644 --- a/scheme.c +++ b/scheme.c @@ -274,7 +274,7 @@ INTERFACE INLINE int is_syntax(pointer p) { return (typeflag(p)&T_SYNTAX); } INTERFACE INLINE int is_proc(pointer p) { return (type(p)==T_PROC); } INTERFACE INLINE int is_foreign(pointer p) { return (type(p)==T_FOREIGN); } INTERFACE INLINE char *syntaxname(pointer p) { return strvalue(car(p)); } -#define procnum(p) ivalue(p) +#define procnum(p) ivalue_unchecked(p) static const char *procname(pointer x); INTERFACE INLINE int is_closure(pointer p) { return (type(p)==T_CLOSURE); } -- cgit v1.2.3