* 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, 15 insertions, 12 deletions

diff --git a/generic/tclInt.decls b/generic/tclInt.decls
index 6019d66..32b43e0 100644
--- a/generic/tclInt.decls
+++ b/generic/tclInt.decls
@@ -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.decls,v 1.78 2004/09/27 14:31:17 kennykb Exp $
+# RCS: @(#) $Id: tclInt.decls,v 1.79 2004/09/27 16:24:24 dgp Exp $
 
 library tcl
 
@@ -185,10 +185,11 @@ declare 41 generic {
 declare 42 generic {
     char *TclpGetUserHome(CONST char *name, Tcl_DString *bufferPtr)
 }
-declare 43 generic {
-    int TclGlobalInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv,
-	    int flags)
-}
+# Removed in Tcl 8.5a2
+#declare 43 generic {
+#    int TclGlobalInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv,
+#	    int flags)
+#}
 declare 44 generic {
     int TclGuessPackageName(CONST char *fileName, Tcl_DString *bufPtr)
 }
@@ -219,9 +220,10 @@ declare 50 generic {
 declare 51 generic {
     int TclInterpInit(Tcl_Interp *interp)
 }
-declare 52 generic {
-    int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)
-}
+# Removed in Tcl 8.5a2
+#declare 52 generic {
+#    int TclInvoke(Tcl_Interp *interp, int argc, CONST84 char **argv, int flags)
+#}
 declare 53 generic {
     int TclInvokeObjectCommand(ClientData clientData, Tcl_Interp *interp,
 	    int argc, CONST84 char **argv)
@@ -270,10 +272,11 @@ declare 64 generic {
     int TclObjInvoke(Tcl_Interp *interp, int objc, Tcl_Obj *CONST objv[],
 	    int flags)
 }
-declare 65 generic {
-    int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,
-	    Tcl_Obj *CONST objv[], int flags)
-}
+# Removed in Tcl 8.5a2
+#declare 65 generic {
+#    int TclObjInvokeGlobal(Tcl_Interp *interp, int objc,
+#	    Tcl_Obj *CONST objv[], int flags)
+#}
 declare 66 generic {
     int TclOpenFileChannelDeleteProc(TclOpenFileChannelProc_ *proc)
 }