1 files changed, 0 insertions, 69 deletions
diff --git a/tcl8.6/pkgs/itcl4.1.1/generic/itclStubLib.c b/tcl8.6/pkgs/itcl4.1.1/generic/itclStubLib.c
deleted file mode 100644
index 50683b7..0000000
--- a/tcl8.6/pkgs/itcl4.1.1/generic/itclStubLib.c
+++ /dev/null
@@ -1,69 +0,0 @@
-/*
- * SOURCE: tk/generic/tkStubLib.c, version 1.9 2004/03/17
- */
-
-#define USE_TCL_STUBS 1
-#define USE_ITCL_STUBS 1
-#include "itclInt.h"
-
-#undef Itcl_InitStubs
-
-MODULE_SCOPE const ItclStubs *itclStubsPtr;
-MODULE_SCOPE const ItclIntStubs *itclIntStubsPtr;
-
-const ItclStubs *itclStubsPtr = NULL;
-const ItclIntStubs *itclIntStubsPtr = NULL;
-
-/*
- *----------------------------------------------------------------------
- *
- * Itcl_InitStubs --
- *	Load the tclOO package, initialize stub table pointer. Do not call
- *	this function directly, use Itcl_InitStubs() macro instead.
- *
- * Results:
- *	The actual version of the package that satisfies the request, or
- *	NULL to indicate that an error occurred.
- *
- * Side effects:
- *	Sets the stub table pointer.
- *
- */
-
-const char *
-Itcl_InitStubs(
-    Tcl_Interp *interp,
-    const char *version,
-    int exact)
-{
-    const char *packageName = "itcl";
-    const char *errMsg = NULL;
-    ClientData clientData = NULL;
-    const ItclStubs *stubsPtr;
-    const ItclIntStubs *intStubsPtr;
-    const char *actualVersion;
-    
-    actualVersion =
-	    Tcl_PkgRequireEx(interp, packageName, version, exact, &clientData);
-    stubsPtr = clientData;
-    if ((actualVersion == NULL) || (clientData == NULL)) {
-        return NULL;
-    }
-    intStubsPtr = stubsPtr->hooks ?
-	    stubsPtr->hooks->itclIntStubs : NULL;
-
-    if (!stubsPtr || !intStubsPtr) {
-	errMsg = "missing stub table pointer";
-	goto error;
-    }
-    itclStubsPtr = stubsPtr;
-    itclIntStubsPtr = intStubsPtr;
-    return actualVersion;
-
-  error:
-    Tcl_ResetResult(interp);
-    Tcl_AppendResult(interp, "Error loading ", packageName, " package",
-	    " (requested version '", version, "', loaded version '",
-	    actualVersion, "'): ", errMsg, NULL);
-    return NULL;
-}