summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorstanton <stanton>1999-03-04 00:54:07 (GMT)
committerstanton <stanton>1999-03-04 00:54:07 (GMT)
commitfd1dfeea2918db576ed45426a57111aa09b7ed83 (patch)
tree4f366653492b42407049ffac039fa7dec0ba6a47
parent19b0cf51d57bda9bea345f1c983dc45646c792a5 (diff)
downloadtcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.zip
tcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.tar.gz
tcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.tar.bz2
* generic/tclStubLib.c: Added internal interface hooks.
-rw-r--r--generic/tclStubLib.c8
1 files changed, 7 insertions, 1 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c
index 0c881b0..65cdc97 100644
--- a/generic/tclStubLib.c
+++ b/generic/tclStubLib.c
@@ -10,7 +10,7 @@
* See the file "license.terms" for information on usage and redistribution
* of this file, and for a DISCLAIMER OF ALL WARRANTIES.
*
- * RCS: @(#) $Id: tclStubLib.c,v 1.1 1999/03/03 00:38:43 stanton Exp $
+ * RCS: @(#) $Id: tclStubLib.c,v 1.2 1999/03/04 00:54:07 stanton Exp $
*/
/*
@@ -35,6 +35,8 @@
TclStubs *tclStubsPtr;
TclPlatStubs *tclPlatStubsPtr;
+TclIntStubs *tclIntStubsPtr;
+TclIntPlatStubs *tclIntPlatStubsPtr;
static TclStubs * HasStubSupport _ANSI_ARGS_((Tcl_Interp *interp));
@@ -96,8 +98,12 @@ Tcl_InitStubs (interp, version, exact)
if (tclStubsPtr->hooks) {
tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs;
+ tclIntStubsPtr = tclStubsPtr->hooks->tclIntStubs;
+ tclIntPlatStubsPtr = tclStubsPtr->hooks->tclIntPlatStubs;
} else {
tclPlatStubsPtr = NULL;
+ tclIntStubsPtr = NULL;
+ tclIntPlatStubsPtr = NULL;
}
return actualVersion;