From: Taylor R Campbell <campbell@mumble.net>
Date: Fri, 26 Oct 2018 16:17:10 +0000 (+0000)
Subject: Avoid using uninitialized stack garbage.
X-Git-Tag: mit-scheme-pucked-10.1.2~16^2~157
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=9d0f0efb642975c549d718d37e878efd73cdc90c;p=mit-scheme.git

Avoid using uninitialized stack garbage.
---

diff --git a/src/microcode/lookup.c b/src/microcode/lookup.c
index d4f2b6448..1addf080e 100644
--- a/src/microcode/lookup.c
+++ b/src/microcode/lookup.c
@@ -668,7 +668,7 @@ long
 unbind_variable (SCHEME_OBJECT environment, SCHEME_OBJECT symbol,
 		 SCHEME_OBJECT * value_ret)
 {
-  SCHEME_OBJECT frame;
+  SCHEME_OBJECT frame = 0;
   SCHEME_OBJECT * cell = (find_binding_cell (environment, symbol, (&frame)));
   if (GLOBAL_FRAME_P (frame))
     weaken_symbol (symbol);