diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-12-10 14:15:18 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-12-10 14:15:18 (GMT) |
| commit | f58d1bd1d652773fa234b05b9bda55f7d1a9ea42 (patch) | |
| tree | f5ffbbd5c716452e0e288b3701b663b4ce1c270f /generic/tclStubLib.c | |
| parent | b2ff7f2e251e1bf049254d4db77ed648299d9012 (diff) | |
| parent | e595fefe85b468cabc5e2cbebb030a525b46228f (diff) | |
| download | tcl-f58d1bd1d652773fa234b05b9bda55f7d1a9ea42.zip tcl-f58d1bd1d652773fa234b05b9bda55f7d1a9ea42.tar.gz tcl-f58d1bd1d652773fa234b05b9bda55f7d1a9ea42.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.
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; |