diff options
| author | Justus Winter <justus@g10code.com> | 2017-01-31 13:53:28 +0100 |
|---|---|---|
| committer | Justus Winter <justus@g10code.com> | 2017-01-31 18:49:27 +0100 |
| commit | 874424ee3cc795eae9972b6259a2cc4dcdbb868e (patch) | |
| tree | 60109de667c6bc854401c22907a651c3db8cd43c /tests | |
| parent | gpgscm: Optimize symbol lookups and insertions. (diff) | |
| download | gnupg2-874424ee3cc795eae9972b6259a2cc4dcdbb868e.tar.xz gnupg2-874424ee3cc795eae9972b6259a2cc4dcdbb868e.zip | |
gpgscm: Fix build with list environments.
* tests/gpgscm/scheme.c (new_slot_spec_in_env): Provide preallocation
inforomation if USE_ALIST_ENV.
Signed-off-by: Justus Winter <justus@g10code.com>
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/gpgscm/scheme.c | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c index fe16d4829..d2c3dfc43 100644 --- a/tests/gpgscm/scheme.c +++ b/tests/gpgscm/scheme.c @@ -2699,6 +2699,7 @@ static INLINE void new_frame_in_env(scheme *sc, pointer old_env) static INLINE void new_slot_spec_in_env(scheme *sc, pointer env, pointer variable, pointer value) { +#define new_slot_spec_in_env_allocates 2 car(env) = immutable_cons(sc, immutable_cons(sc, variable, value), car(env)); } |