diff options
| author | stanton <stanton> | 1999-03-04 00:54:07 (GMT) |
|---|---|---|
| committer | stanton <stanton> | 1999-03-04 00:54:07 (GMT) |
| commit | fd1dfeea2918db576ed45426a57111aa09b7ed83 (patch) | |
| tree | 4f366653492b42407049ffac039fa7dec0ba6a47 /generic/tclStubLib.c | |
| parent | 19b0cf51d57bda9bea345f1c983dc45646c792a5 (diff) | |
| download | tcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.zip tcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.tar.gz tcl-fd1dfeea2918db576ed45426a57111aa09b7ed83.tar.bz2 | |
* generic/tclStubLib.c: Added internal interface hooks.
Diffstat (limited to 'generic/tclStubLib.c')
| -rw-r--r-- | generic/tclStubLib.c | 8 |
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; |