From c2e713d9e25ef8b61e8eeb3c01ee1e31cb70b794 Mon Sep 17 00:00:00 2001
From: Justus Winter <justus@g10code.com>
Date: Fri, 14 Oct 2016 11:17:50 +0200
Subject: [PATCH] gpgscm: Initialize nesting stack.

* tests/gpgscm/scheme.c (scheme_init_custom_alloc): Initialize nesting
stack.

Fixes-commit: f2249b737055f84842778285bbeff5e61fa55225
Signed-off-by: Justus Winter <justus@g10code.com>
---
 tests/gpgscm/scheme.c | 1 +
 1 file changed, 1 insertion(+)

diff --git a/tests/gpgscm/scheme.c b/tests/gpgscm/scheme.c
index 5a85063ee..0e31dc55c 100644
--- a/tests/gpgscm/scheme.c
+++ b/tests/gpgscm/scheme.c
@@ -4765,6 +4765,7 @@ int scheme_init_custom_alloc(scheme *sc, func_alloc malloc, func_dealloc free) {
   sc->save_inport=sc->NIL;
   sc->loadport=sc->NIL;
   sc->nesting=0;
+  memset (sc->nesting_stack, 0, sizeof sc->nesting_stack);
   sc->interactive_repl=0;
   sc->strbuff = sc->malloc(STRBUFFSIZE);
   if (sc->strbuff == 0) {