diff options
| author | Justus Winter <[email protected]> | 2017-03-30 10:19:01 +0000 |
|---|---|---|
| committer | Justus Winter <[email protected]> | 2017-04-03 09:53:19 +0000 |
| commit | 90932bdad607d06f4f040e3457caddba79ba8b7e (patch) | |
| tree | 828b1a1f4b76211e2d6dfecc4bf33d8ae7abb134 /tests/gpgscm/scheme.c | |
| parent | gpg: Handle critical marked 'Reason for Revocation'. (diff) | |
| download | gnupg-90932bdad607d06f4f040e3457caddba79ba8b7e.tar.gz gnupg-90932bdad607d06f4f040e3457caddba79ba8b7e.zip | |
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 <[email protected]>
Diffstat (limited to '')
| -rw-r--r-- | tests/gpgscm/scheme.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index b76e83c46..fbc562d97 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/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); } |