diff options
author | dgp <dgp@noemail.net> | 2012-12-10 14:15:18 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-12-10 14:15:18 (GMT) |
commit | 6b9edcab8fd8e7e48dc9b4eb4d51c95368de8156 (patch) | |
tree | f5ffbbd5c716452e0e288b3701b663b4ce1c270f /generic/tclStubLib.c | |
parent | facaf689f6c46bbf246b2169dc003f33203fbc63 (diff) | |
parent | e2d1e18ef70ed7d20c61df5b0dbba92b877dfd67 (diff) | |
download | tcl-6b9edcab8fd8e7e48dc9b4eb4d51c95368de8156.zip tcl-6b9edcab8fd8e7e48dc9b4eb4d51c95368de8156.tar.gz tcl-6b9edcab8fd8e7e48dc9b4eb4d51c95368de8156.tar.bz2 |
Restore the initialization of tclStubsPtr from the "Tcl" package clientData
so that we don't close off a potential avenue of future innovations.
FossilOrigin-Name: 7c62a0d57c5be50cbe26eb027fc12ab4f93125a3
Diffstat (limited to 'generic/tclStubLib.c')
-rw-r--r-- | generic/tclStubLib.c | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/generic/tclStubLib.c b/generic/tclStubLib.c index ff899c0..c98956e 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -67,6 +67,7 @@ Tcl_InitStubs( int exact) { CONST char *actualVersion = NULL; + ClientData pkgData = NULL; TclStubs *stubsPtr; /* @@ -80,7 +81,7 @@ Tcl_InitStubs( return NULL; } - actualVersion = stubsPtr->tcl_PkgRequireEx(interp, "Tcl", version, 0, NULL); + actualVersion = stubsPtr->tcl_PkgRequireEx(interp, "Tcl", version, 0, &pkgData); if (actualVersion == NULL) { return NULL; } @@ -110,7 +111,7 @@ Tcl_InitStubs( } } } - tclStubsPtr = stubsPtr; + tclStubsPtr = (TclStubs *)pkgData; if (tclStubsPtr->hooks) { tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs; |