diff options
| author | nijtmans <nijtmans> | 2010-08-31 20:48:16 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-08-31 20:48:16 (GMT) |
| commit | c7a29d8a5192bc554c5019ba53d8041aa12eb963 (patch) | |
| tree | c5dcdf908c44f77ddfcc3bd0b202a6614a1b9d7a /generic/tclTomMathStubLib.c | |
| parent | f97a6571a6db13315c2b0767b1d178cd3330c4c3 (diff) | |
| download | tcl-c7a29d8a5192bc554c5019ba53d8041aa12eb963.zip tcl-c7a29d8a5192bc554c5019ba53d8041aa12eb963.tar.gz tcl-c7a29d8a5192bc554c5019ba53d8041aa12eb963.tar.bz2 | |
[Patch 2997642] many type casts needed when using Tcl_Pkg* API. Remaining part.
Typo in rules.vc
Diffstat (limited to 'generic/tclTomMathStubLib.c')
| -rw-r--r-- | generic/tclTomMathStubLib.c | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/generic/tclTomMathStubLib.c b/generic/tclTomMathStubLib.c index 9c9cbc5..1f21bee 100644 --- a/generic/tclTomMathStubLib.c +++ b/generic/tclTomMathStubLib.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: tclTomMathStubLib.c,v 1.2 2010/08/30 13:49:28 nijtmans Exp $ + * RCS: @(#) $Id: tclTomMathStubLib.c,v 1.3 2010/08/31 20:48:17 nijtmans Exp $ */ /* @@ -57,14 +57,15 @@ TclTomMathInitializeStubs( int exact = 0; const char *packageName = "tcl::tommath"; const char *errMsg = NULL; - const TclTomMathStubs *stubsPtr; + ClientData pkgClientData = NULL; const char *actualVersion = - Tcl_PkgRequireEx(interp, packageName, version, exact, &stubsPtr); + Tcl_PkgRequireEx(interp, packageName, version, exact, &pkgClientData); + const TclTomMathStubs *stubsPtr = pkgClientData; if (actualVersion == NULL) { return NULL; } - if (stubsPtr == NULL) { + if (pkgClientData == NULL) { errMsg = "missing stub table pointer"; } else if ((stubsPtr->tclBN_epoch)() != epoch) { errMsg = "epoch number mismatch"; |