diff options
author | dgp <dgp@noemail.net> | 2002-04-20 01:29:14 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2002-04-20 01:29:14 (GMT) |
commit | 0d86632d05f40909cee1f6d98e2fc4f7047dc5fc (patch) | |
tree | 6180edf4fda6a7b4b016e1c7e78bafb90aaac085 /generic/tclMain.c | |
parent | ee28096a37736c3f365641f30190d296b8e1f344 (diff) | |
download | tcl-0d86632d05f40909cee1f6d98e2fc4f7047dc5fc.zip tcl-0d86632d05f40909cee1f6d98e2fc4f7047dc5fc.tar.gz tcl-0d86632d05f40909cee1f6d98e2fc4f7047dc5fc.tar.bz2 |
* Free the memory allocated for the
startup script path. [Bug 543549]
FossilOrigin-Name: 3ee94f8ca3e78f1a2e2d88f1533f4582f50974a5
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 |