From 9b8224f61793a03c3538d83eaeb6051095b9e35b Mon Sep 17 00:00:00 2001
From: chengyemao <chengyemao>
Date: Sat, 20 Sep 2003 03:43:29 +0000
Subject: Fixed memory leak (bug 802435)

---
 generic/tkConsole.c | 22 +++++++++++-----------
 1 file changed, 11 insertions(+), 11 deletions(-)

diff --git a/generic/tkConsole.c b/generic/tkConsole.c
index c8e2c8a..17161cf 100644
--- a/generic/tkConsole.c
+++ b/generic/tkConsole.c
@@ -10,7 +10,7 @@
  * See the file "license.terms" for information on usage and redistribution
  * of this file, and for a DISCLAIMER OF ALL WARRANTIES.
  *
- * RCS: @(#) $Id: tkConsole.c,v 1.18 2002/08/05 04:30:38 dgp Exp $
+ * RCS: @(#) $Id: tkConsole.c,v 1.19 2003/09/20 03:43:29 chengyemao Exp $
  */
 
 #include "tk.h"
@@ -726,13 +726,10 @@ ConsoleEventProc(clientData, eventPtr)
 {
     ConsoleInfo *info = (ConsoleInfo *) clientData;
     Tcl_Interp *consoleInterp;
-    Tcl_DString dString;
     
     if (eventPtr->type == DestroyNotify) {
 
-	Tcl_DStringInit(&dString);
-  
-	consoleInterp = info->consoleInterp;
+ 	consoleInterp = info->consoleInterp;
 
         /*
          * It is possible that the console interpreter itself has
@@ -743,12 +740,15 @@ ConsoleEventProc(clientData, eventPtr)
         
         if (consoleInterp == (Tcl_Interp *) NULL) {
             return;
-        }
-        Tcl_Preserve((ClientData) consoleInterp);
-	Tcl_DStringAppend(&dString, "::tk::ConsoleExit", -1);
-	Tcl_Eval(consoleInterp, Tcl_DStringValue(&dString));
-	Tcl_DStringFree(&dString);
-        Tcl_Release((ClientData) consoleInterp);
+        } else {
+	    Tcl_DString dString;
+	    Tcl_DStringInit(&dString);
+	    Tcl_Preserve((ClientData) consoleInterp);
+	    Tcl_DStringAppend(&dString, "::tk::ConsoleExit", -1);
+	    Tcl_Eval(consoleInterp, Tcl_DStringValue(&dString));
+	    Tcl_DStringFree(&dString);
+	    Tcl_Release((ClientData) consoleInterp);
+	}
     }
 }
 
-- 
cgit v0.12