From 74a8cec7b3d86d6cd5547c8efb2bdb3c3ecb9bc0 Mon Sep 17 00:00:00 2001 From: dgp Date: Sat, 20 Apr 2002 01:29:14 +0000 Subject: * Free the memory allocated for the startup script path. [Bug 543549] --- ChangeLog | 3 +++ generic/tclMain.c | 5 +++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/ChangeLog b/ChangeLog index b596399..8a1907d 100644 --- a/ChangeLog +++ b/ChangeLog @@ -1,5 +1,8 @@ 2002-04-19 Don Porter + * generic/tclMain.c (Tcl_Main): Free the memory allocated for the + startup script path. [Bug 543549] + * library/msgcat/msgcat.tcl: [mcmax] wasn't using the caller's namespace when determining the max translated length. Also made revisions for better use of namespace variables and more diff --git a/generic/tclMain.c b/generic/tclMain.c index 4bc67b6..28a668d 100644 --- a/generic/tclMain.c +++ b/generic/tclMain.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: tclMain.c,v 1.18 2002/02/28 00:53:32 dgp Exp $ + * RCS: @(#) $Id: tclMain.c,v 1.19 2002/04/20 01:29:15 dgp Exp $ */ #include "tcl.h" @@ -46,7 +46,7 @@ static Tcl_Obj *tclStartupScriptPath = NULL; static Tcl_MainLoopProc *mainLoopProc = NULL; /* - * Structure defintiion for information used to keep the state of + * Structure definition for information used to keep the state of * an interactive command processor that reads lines from standard * input and writes prompts and results to standard output. */ @@ -520,6 +520,7 @@ Tcl_Main(argc, argv, appInitProc) Tcl_DeleteInterp(interp); } } + TclSetStartupScriptPath(NULL); /* * If we get here, the master interp has been deleted. Allow -- cgit v0.12