* generic/tclBasic.c: Removed internal routines TclInvoke,

        * generic/tclInt.decls: TclGlobalInvoke, TclObjInvokeGlobal and
        * tests/basic.test:     the portion of TclObjInvoke that handles
        calls without TCL_INVOKE_HIDDEN enabled.  None of this code is
        called any longer within the core, and the superior public
        interface, Tcl_EvalObjv, is available for any external callers.

        * generic/tclIntDecls.h:        make genstubs
        * generic/tclStubInit.c:

        * generic/tclEvent.c (HandleBgErrors):  Updated [bgerror]
        invocations to make use of Tcl_Obj based routines, dropping
        the calls to TclGlobalInvoke()

1 files changed, 10 insertions, 34 deletions

diff --git a/generic/tclIntDecls.h b/generic/tclIntDecls.h
index 42c8f62..6979c88 100644
--- a/generic/tclIntDecls.h
+++ b/generic/tclIntDecls.h
@@ -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: tclIntDecls.h,v 1.68 2004/09/27 14:31:18 kennykb Exp $
+ * RCS: @(#) $Id: tclIntDecls.h,v 1.69 2004/09/27 16:24:24 dgp Exp $
  */
 
 #ifndef _TCLINTDECLS
@@ -249,12 +249,7 @@ EXTERN Tcl_Command	TclGetOriginalCommand _ANSI_ARGS_((
 EXTERN char *		TclpGetUserHome _ANSI_ARGS_((CONST char * name, 
 				Tcl_DString * bufferPtr));
 #endif
-#ifndef TclGlobalInvoke_TCL_DECLARED
-#define TclGlobalInvoke_TCL_DECLARED
-/* 43 */
-EXTERN int		TclGlobalInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
-				int argc, CONST84 char ** argv, int flags));
-#endif
+/* Slot 43 is reserved */
 #ifndef TclGuessPackageName_TCL_DECLARED
 #define TclGuessPackageName_TCL_DECLARED
 /* 44 */
@@ -293,12 +288,7 @@ EXTERN void		TclInitCompiledLocals _ANSI_ARGS_((
 /* 51 */
 EXTERN int		TclInterpInit _ANSI_ARGS_((Tcl_Interp * interp));
 #endif
-#ifndef TclInvoke_TCL_DECLARED
-#define TclInvoke_TCL_DECLARED
-/* 52 */
-EXTERN int		TclInvoke _ANSI_ARGS_((Tcl_Interp * interp, int argc, 
-				CONST84 char ** argv, int flags));
-#endif
+/* Slot 52 is reserved */
 #ifndef TclInvokeObjectCommand_TCL_DECLARED
 #define TclInvokeObjectCommand_TCL_DECLARED
 /* 53 */
@@ -358,12 +348,7 @@ EXTERN int		TclObjInterpProc _ANSI_ARGS_((ClientData clientData,
 EXTERN int		TclObjInvoke _ANSI_ARGS_((Tcl_Interp * interp, 
 				int objc, Tcl_Obj *CONST objv[], int flags));
 #endif
-#ifndef TclObjInvokeGlobal_TCL_DECLARED
-#define TclObjInvokeGlobal_TCL_DECLARED
-/* 65 */
-EXTERN int		TclObjInvokeGlobal _ANSI_ARGS_((Tcl_Interp * interp, 
-				int objc, Tcl_Obj *CONST objv[], int flags));
-#endif
+/* Slot 65 is reserved */
 #ifndef TclOpenFileChannelDeleteProc_TCL_DECLARED
 #define TclOpenFileChannelDeleteProc_TCL_DECLARED
 /* 66 */
@@ -1086,7 +1071,7 @@ typedef struct TclIntStubs {
     int (*tclGetOpenMode) _ANSI_ARGS_((Tcl_Interp * interp, CONST char * str, int * seekFlagPtr)); /* 40 */
     Tcl_Command (*tclGetOriginalCommand) _ANSI_ARGS_((Tcl_Command command)); /* 41 */
     char * (*tclpGetUserHome) _ANSI_ARGS_((CONST char * name, Tcl_DString * bufferPtr)); /* 42 */
-    int (*tclGlobalInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 43 */
+    void *reserved43;
     int (*tclGuessPackageName) _ANSI_ARGS_((CONST char * fileName, Tcl_DString * bufPtr)); /* 44 */
     int (*tclHideUnsafeCommands) _ANSI_ARGS_((Tcl_Interp * interp)); /* 45 */
     int (*tclInExit) _ANSI_ARGS_((void)); /* 46 */
@@ -1095,7 +1080,7 @@ typedef struct TclIntStubs {
     Tcl_Obj * (*tclIncrVar2) _ANSI_ARGS_((Tcl_Interp * interp, Tcl_Obj * part1Ptr, Tcl_Obj * part2Ptr, long incrAmount, int part1NotParsed)); /* 49 */
     void (*tclInitCompiledLocals) _ANSI_ARGS_((Tcl_Interp * interp, CallFrame * framePtr, Namespace * nsPtr)); /* 50 */
     int (*tclInterpInit) _ANSI_ARGS_((Tcl_Interp * interp)); /* 51 */
-    int (*tclInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int argc, CONST84 char ** argv, int flags)); /* 52 */
+    void *reserved52;
     int (*tclInvokeObjectCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int argc, CONST84 char ** argv)); /* 53 */
     int (*tclInvokeStringCommand) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 54 */
     Proc * (*tclIsProc) _ANSI_ARGS_((Command * cmdPtr)); /* 55 */
@@ -1108,7 +1093,7 @@ typedef struct TclIntStubs {
     int (*tclObjCommandComplete) _ANSI_ARGS_((Tcl_Obj * cmdPtr)); /* 62 */
     int (*tclObjInterpProc) _ANSI_ARGS_((ClientData clientData, Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[])); /* 63 */
     int (*tclObjInvoke) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 64 */
-    int (*tclObjInvokeGlobal) _ANSI_ARGS_((Tcl_Interp * interp, int objc, Tcl_Obj *CONST objv[], int flags)); /* 65 */
+    void *reserved65;
     int (*tclOpenFileChannelDeleteProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 66 */
     int (*tclOpenFileChannelInsertProc) _ANSI_ARGS_((TclOpenFileChannelProc_ * proc)); /* 67 */
     void *reserved68;
@@ -1405,10 +1390,7 @@ extern TclIntStubs *tclIntStubsPtr;
 #define TclpGetUserHome \
 	(tclIntStubsPtr->tclpGetUserHome) /* 42 */
 #endif
-#ifndef TclGlobalInvoke
-#define TclGlobalInvoke \
-	(tclIntStubsPtr->tclGlobalInvoke) /* 43 */
-#endif
+/* Slot 43 is reserved */
 #ifndef TclGuessPackageName
 #define TclGuessPackageName \
 	(tclIntStubsPtr->tclGuessPackageName) /* 44 */
@@ -1435,10 +1417,7 @@ extern TclIntStubs *tclIntStubsPtr;
 #define TclInterpInit \
 	(tclIntStubsPtr->tclInterpInit) /* 51 */
 #endif
-#ifndef TclInvoke
-#define TclInvoke \
-	(tclIntStubsPtr->tclInvoke) /* 52 */
-#endif
+/* Slot 52 is reserved */
 #ifndef TclInvokeObjectCommand
 #define TclInvokeObjectCommand \
 	(tclIntStubsPtr->tclInvokeObjectCommand) /* 53 */
@@ -1478,10 +1457,7 @@ extern TclIntStubs *tclIntStubsPtr;
 #define TclObjInvoke \
 	(tclIntStubsPtr->tclObjInvoke) /* 64 */
 #endif
-#ifndef TclObjInvokeGlobal
-#define TclObjInvokeGlobal \
-	(tclIntStubsPtr->tclObjInvokeGlobal) /* 65 */
-#endif
+/* Slot 65 is reserved */
 #ifndef TclOpenFileChannelDeleteProc
 #define TclOpenFileChannelDeleteProc \
 	(tclIntStubsPtr->tclOpenFileChannelDeleteProc) /* 66 */