summaryrefslogtreecommitdiffstats
path: root/generic
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2005-03-25 00:35:02 (GMT)
committerdgp <dgp@users.sourceforge.net>2005-03-25 00:35:02 (GMT)
commiteee7eab0e7b0dc4de7075e8ff5593216a2660bb0 (patch)
tree7ed520c881fe9142539f191e72a2580a6a3e0944 /generic
parent3823be6fa3f36e6e920aee1c399d1dd817785488 (diff)
downloadtcl-eee7eab0e7b0dc4de7075e8ff5593216a2660bb0.zip
tcl-eee7eab0e7b0dc4de7075e8ff5593216a2660bb0.tar.gz
tcl-eee7eab0e7b0dc4de7075e8ff5593216a2660bb0.tar.bz2
* generic/tclCompile.h: Move the TclInterpReady() declaration from
* generic/tclInt.h: tclCompile.h to tclInt.h. Should have been done as part of the 1115904 bug fix on 2005-03-18. * generic/tclThreadTest.c: Stop providing the phony package "Thread 1.0" when the [::testthread] command is defined. It's never used by anything, and conflicts with loading the real "Thread" package.
Diffstat (limited to 'generic')
-rw-r--r--generic/tclCompile.h4
-rw-r--r--generic/tclInt.h3
-rw-r--r--generic/tclThreadTest.c5
3 files changed, 4 insertions, 8 deletions
diff --git a/generic/tclCompile.h b/generic/tclCompile.h
index ae4c39c..896b385 100644
--- a/generic/tclCompile.h
+++ b/generic/tclCompile.h
@@ -8,7 +8,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclCompile.h,v 1.53 2004/12/24 18:06:58 msofer Exp $
+ * RCS: @(#) $Id: tclCompile.h,v 1.54 2005/03/25 00:35:03 dgp Exp $
*/
#ifndef _TCLCOMPILATION
@@ -748,8 +748,6 @@ MODULE_SCOPE AuxDataType tclForeachInfoType;
MODULE_SCOPE int TclEvalObjvInternal _ANSI_ARGS_((Tcl_Interp *interp,
int objc, Tcl_Obj *CONST objv[],
CONST char *command, int length, int flags));
-MODULE_SCOPE int TclInterpReady _ANSI_ARGS_((Tcl_Interp *interp));
-
/*
*----------------------------------------------------------------
diff --git a/generic/tclInt.h b/generic/tclInt.h
index 21cd333..9ba94e5 100644
--- a/generic/tclInt.h
+++ b/generic/tclInt.h
@@ -12,7 +12,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclInt.h,v 1.215 2005/03/10 22:10:38 dgp Exp $
+ * RCS: @(#) $Id: tclInt.h,v 1.216 2005/03/25 00:35:03 dgp Exp $
*/
#ifndef _TCLINT
@@ -1889,6 +1889,7 @@ MODULE_SCOPE void TclInitNamespaceSubsystem _ANSI_ARGS_((void));
MODULE_SCOPE void TclInitNotifier _ANSI_ARGS_((void));
MODULE_SCOPE void TclInitObjSubsystem _ANSI_ARGS_((void));
MODULE_SCOPE void TclInitSubsystems ();
+MODULE_SCOPE int TclInterpReady _ANSI_ARGS_((Tcl_Interp *interp));
MODULE_SCOPE int TclIsLocalScalar _ANSI_ARGS_((CONST char *src,
int len));
MODULE_SCOPE int TclJoinThread _ANSI_ARGS_((Tcl_ThreadId id,
diff --git a/generic/tclThreadTest.c b/generic/tclThreadTest.c
index 7ea39dc..7b2ac56 100644
--- a/generic/tclThreadTest.c
+++ b/generic/tclThreadTest.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: tclThreadTest.c,v 1.17 2004/10/20 05:28:39 dgp Exp $
+ * RCS: @(#) $Id: tclThreadTest.c,v 1.18 2005/03/25 00:35:03 dgp Exp $
*/
#include "tclInt.h"
@@ -160,9 +160,6 @@ TclThread_Init(interp)
Tcl_CreateObjCommand(interp,"testthread", Tcl_ThreadObjCmd,
(ClientData)NULL ,NULL);
- if (Tcl_PkgProvide(interp, "Thread", "1.0" ) != TCL_OK) {
- return TCL_ERROR;
- }
return TCL_OK;
}