summaryrefslogtreecommitdiffstats
path: root/unix
diff options
context:
space:
mode:
authordavygrvy <davygrvy@pobox.com>2004-10-28 04:52:53 (GMT)
committerdavygrvy <davygrvy@pobox.com>2004-10-28 04:52:53 (GMT)
commit5e37a9c86cca817c60268a18063c326520f24480 (patch)
treea7939d6cd224d673b8151a533b7821d85b596256 /unix
parentd7ff3329f865713723d696c68a3bbde36ca6a7fe (diff)
downloadtcl-5e37a9c86cca817c60268a18063c326520f24480.zip
tcl-5e37a9c86cca817c60268a18063c326520f24480.tar.gz
tcl-5e37a9c86cca817c60268a18063c326520f24480.tar.bz2
* unix/tclAppInit.c: When built as tcltest, TclThread_Init was getting called
* win/tclAppInit.c: twice. First by TclTest_Init, then again in Tcl_AppInit. The call from Tcl_AppInit now removed.
Diffstat (limited to 'unix')
-rw-r--r--unix/tclAppInit.c18
1 files changed, 5 insertions, 13 deletions
diff --git a/unix/tclAppInit.c b/unix/tclAppInit.c
index 3c47a39..dd83707 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.11 2002/05/31 22:20:22 dgp Exp $
+ * RCS: @(#) $Id: tclAppInit.c,v 1.12 2004/10/28 04:52:53 davygrvy Exp $
*/
#include "tcl.h"
@@ -20,13 +20,10 @@
#include "tclInt.h"
-extern int Procbodytest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-extern int Procbodytest_SafeInit _ANSI_ARGS_((Tcl_Interp *interp));
-extern int TclObjTest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-extern int Tcltest_Init _ANSI_ARGS_((Tcl_Interp *interp));
-#ifdef TCL_THREADS
-extern int TclThread_Init _ANSI_ARGS_((Tcl_Interp *interp));
-#endif
+extern Tcl_PackageInitProc Procbodytest_Init;
+extern Tcl_PackageInitProc Procbodytest_SafeInit;
+extern Tcl_PackageInitProc TclObjTest_Init;
+extern Tcl_PackageInitProc Tcltest_Init;
#endif /* TCL_TEST */
@@ -133,11 +130,6 @@ Tcl_AppInit(interp)
if (TclObjTest_Init(interp) == TCL_ERROR) {
return TCL_ERROR;
}
-#ifdef TCL_THREADS
- if (TclThread_Init(interp) == TCL_ERROR) {
- return TCL_ERROR;
- }
-#endif
if (Procbodytest_Init(interp) == TCL_ERROR) {
return TCL_ERROR;
}