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 | 9a4283ed6aafc1e43d8f7a5fd9cef6118615f284 (patch) | |
| tree | a40d60200c0cb29c964f449f0ef128564fddbc2a | |
| parent | gpgscm: Make test cleanup more robust. (diff) | |
| download | libgpg-error-9a4283ed6aafc1e43d8f7a5fd9cef6118615f284.tar.gz libgpg-error-9a4283ed6aafc1e43d8f7a5fd9cef6118615f284.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]>
| -rw-r--r-- | scheme.c | 2 |
1 files changed, 1 insertions, 1 deletions
@@ -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); } |