gpgscm: Fix initialization of 'sink'.
authorJustus Winter <justus@g10code.com>
Tue, 22 Nov 2016 13:49:27 +0000 (14:49 +0100)
committerJustus Winter <justus@g10code.com>
Wed, 23 Nov 2016 11:51:56 +0000 (12:51 +0100)
* tests/gpgscm/scheme.c (scheme_init_custom_alloc): Also initialize
cdr.

Signed-off-by: Justus Winter <justus@g10code.com>
tests/gpgscm/scheme.c

index e011dea..673d199 100644 (file)
@@ -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;