diff options
author | dgp <dgp@noemail.net> | 2012-12-10 14:08:59 (GMT) |
---|---|---|
committer | dgp <dgp@noemail.net> | 2012-12-10 14:08:59 (GMT) |
commit | e2d1e18ef70ed7d20c61df5b0dbba92b877dfd67 (patch) | |
tree | fd13890baadf162d3adb1e345913afdb219d18c5 /generic/tclStubLib.c | |
parent | 978ae57c0a011cb674fccbdf0e51939e233d1fc7 (diff) | |
download | tcl-e2d1e18ef70ed7d20c61df5b0dbba92b877dfd67.zip tcl-e2d1e18ef70ed7d20c61df5b0dbba92b877dfd67.tar.gz tcl-e2d1e18ef70ed7d20c61df5b0dbba92b877dfd67.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: 3e2c1f789af4e486744a72e38d336ded5bb1a312
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 39e94c8..ceee8f3 100644 --- a/generic/tclStubLib.c +++ b/generic/tclStubLib.c @@ -67,6 +67,7 @@ Tcl_InitStubs(interp, version, exact) int exact; { CONST char *actualVersion = NULL; + ClientData pkgData = NULL; TclStubs *stubsPtr; /* @@ -80,7 +81,7 @@ Tcl_InitStubs(interp, version, exact) 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(interp, version, exact) } } } - tclStubsPtr = stubsPtr; + tclStubsPtr = (TclStubs *)pkgData; if (tclStubsPtr->hooks) { tclPlatStubsPtr = tclStubsPtr->hooks->tclPlatStubs; |