mirror of
git://git.gnupg.org/gnupg.git
synced 2024-12-22 10:19:57 +01:00
gpgscm: Fix initialization of 'sink'.
* tests/gpgscm/scheme.c (scheme_init_custom_alloc): Also initialize cdr. Signed-off-by: Justus Winter <justus@g10code.com>
This commit is contained in:
parent
03a65a5323
commit
7856e3efaa
@ -5045,7 +5045,7 @@ int scheme_init_custom_alloc(scheme *sc, func_alloc malloc, func_dealloc free) {
|
||||
car(sc->EOF_OBJ) = cdr(sc->EOF_OBJ) = sc->EOF_OBJ;
|
||||
/* init sink */
|
||||
typeflag(sc->sink) = (T_SINK | T_PAIR | MARK);
|
||||
car(sc->sink) = sc->NIL;
|
||||
car(sc->sink) = cdr(sc->sink) = sc->NIL;
|
||||
/* init c_nest */
|
||||
sc->c_nest = sc->NIL;
|
||||
|
||||
|
Loading…
x
Reference in New Issue
Block a user