diff options
author | hobbs <hobbs@noemail.net> | 2000-04-18 23:06:38 (GMT) |
---|---|---|
committer | hobbs <hobbs@noemail.net> | 2000-04-18 23:06:38 (GMT) |
commit | 9bb5878c2fccdcd52beef7f596bdf29d894bfef5 (patch) | |
tree | f4bfdf8141692a996d6d7c36d0633706e36b66eb /unix/tclAppInit.c | |
parent | 01a7623638c39d8a810c03b8f1576e0d83beb690 (diff) | |
download | tcl-9bb5878c2fccdcd52beef7f596bdf29d894bfef5.zip tcl-9bb5878c2fccdcd52beef7f596bdf29d894bfef5.tar.gz tcl-9bb5878c2fccdcd52beef7f596bdf29d894bfef5.tar.bz2 |
* unix/tclAppInit.c (main): removed #ifdef TCL_TEST that sets the
library path as it was unnecessary and conflicts with move of
tclLibraryPath to thread-local storage.
FossilOrigin-Name: 7545f3c2fcddbdb1625b3fb7160a2c076243b0a0
Diffstat (limited to 'unix/tclAppInit.c')
-rw-r--r-- | unix/tclAppInit.c | 23 |
1 files changed, 5 insertions, 18 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c index c1126ae..bc5b44c 100644 --- a/unix/tclAppInit.c +++ b/unix/tclAppInit.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution * of this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclAppInit.c,v 1.8 1999/12/02 02:03:32 redman Exp $ + * RCS: @(#) $Id: tclAppInit.c,v 1.9 2000/04/18 23:06:39 hobbs Exp $ */ #include "tcl.h" @@ -72,35 +72,22 @@ main(argc, argv) * of rewriting this entire file. The #if checks for that * #define and uses Tcl_AppInit if it doesn't exist. */ - + #ifndef TCL_LOCAL_APPINIT #define TCL_LOCAL_APPINIT Tcl_AppInit #endif extern int TCL_LOCAL_APPINIT _ANSI_ARGS_((Tcl_Interp *interp)); - + /* * The following #if block allows you to change how Tcl finds the startup * script, prime the library or encoding paths, fiddle with the argv, * etc., without needing to rewrite Tcl_Main() */ - + #ifdef TCL_LOCAL_MAIN_HOOK extern int TCL_LOCAL_MAIN_HOOK _ANSI_ARGS_((int *argc, char ***argv)); #endif -#ifdef TCL_TEST - /* - * Pass the build time location of the tcl library (to find init.tcl) - * - * This causes a 2400b "potential" mem leak, according to purify - * (the obj allocation that never seems to gets deallocated) - */ - Tcl_Obj *path; - path = Tcl_NewStringObj(TCL_BUILDTIME_LIBRARY, -1); - TclSetLibraryPath(Tcl_NewListObj(1,&path)); - -#endif - #ifdef TCL_XT_TEST XtToolkitInitialize(); #endif @@ -110,7 +97,7 @@ main(argc, argv) #endif Tcl_Main(argc, argv, TCL_LOCAL_APPINIT); - + return 0; /* Needed only to prevent compiler warning. */ } |