diff options
| author | stanton <stanton@noemail.net> | 1999-03-04 00:54:07 (GMT) |
|---|---|---|
| committer | stanton <stanton@noemail.net> | 1999-03-04 00:54:07 (GMT) |
| commit | df86c1e5a7ae7a03962e24f8fe28e8cc39ba34c4 (patch) | |
| tree | 4f366653492b42407049ffac039fa7dec0ba6a47 | |
| parent | d0c21769f088d22412635812f942e1fcbdbb75dd (diff) | |
| download | tcl-df86c1e5a7ae7a03962e24f8fe28e8cc39ba34c4.zip tcl-df86c1e5a7ae7a03962e24f8fe28e8cc39ba34c4.tar.gz tcl-df86c1e5a7ae7a03962e24f8fe28e8cc39ba34c4.tar.bz2 | |
* generic/tclStubLib.c: Added internal interface hooks.
FossilOrigin-Name: f2bf2426eae3e236b70a6b5a7e2d90beb0439f45
| -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; |