diff options
| author | dgp <dgp@users.sourceforge.net> | 2002-04-20 01:29:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2002-04-20 01:29:14 (GMT) |
| commit | 74a8cec7b3d86d6cd5547c8efb2bdb3c3ecb9bc0 (patch) | |
| tree | 6180edf4fda6a7b4b016e1c7e78bafb90aaac085 /generic/tclMain.c | |
| parent | 715d8ed46f9b0792841536a10be48c362dddbc05 (diff) | |
| download | tcl-74a8cec7b3d86d6cd5547c8efb2bdb3c3ecb9bc0.zip tcl-74a8cec7b3d86d6cd5547c8efb2bdb3c3ecb9bc0.tar.gz tcl-74a8cec7b3d86d6cd5547c8efb2bdb3c3ecb9bc0.tar.bz2 | |
* Free the memory allocated for the
startup script path. [Bug 543549]
Diffstat (limited to 'generic/tclMain.c')
| -rw-r--r-- | generic/tclMain.c | 5 |
1 files changed, 3 insertions, 2 deletions
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 |