mirror of
git://git.gnupg.org/gnupg.git
synced 2025-03-28 22:49:59 +01:00
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>
This commit is contained in:
parent
cea6d114b6
commit
874424ee3c
@ -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,
|
static INLINE void new_slot_spec_in_env(scheme *sc, pointer env,
|
||||||
pointer variable, pointer value)
|
pointer variable, pointer value)
|
||||||
{
|
{
|
||||||
|
#define new_slot_spec_in_env_allocates 2
|
||||||
car(env) = immutable_cons(sc, immutable_cons(sc, variable, value), car(env));
|
car(env) = immutable_cons(sc, immutable_cons(sc, variable, value), car(env));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Loading…
x
Reference in New Issue
Block a user