diff options
| author | nijtmans <nijtmans> | 2010-08-30 13:49:27 (GMT) |
|---|---|---|
| committer | nijtmans <nijtmans> | 2010-08-30 13:49:27 (GMT) |
| commit | 877b2afa03df888ce1e513b14368a8b5a8dfe0f9 (patch) | |
| tree | ed25a8b0bdfa5acdf1aa2509cc57b783aaf9d1a2 /generic/tclTomMathStubLib.c | |
| parent | 6749279a23b401ed5be90e4e300db246e8e029be (diff) | |
| download | tcl-877b2afa03df888ce1e513b14368a8b5a8dfe0f9.zip tcl-877b2afa03df888ce1e513b14368a8b5a8dfe0f9.tar.gz tcl-877b2afa03df888ce1e513b14368a8b5a8dfe0f9.tar.bz2 | |
[Patch 2997642] many type casts needed when using Tcl_Pkg* API. Partly.
Diffstat (limited to 'generic/tclTomMathStubLib.c')
| -rw-r--r-- | generic/tclTomMathStubLib.c | 9 |
1 files changed, 4 insertions, 5 deletions
diff --git a/generic/tclTomMathStubLib.c b/generic/tclTomMathStubLib.c index 4139261..9c9cbc5 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.1 2010/03/04 22:29:05 nijtmans Exp $ + * RCS: @(#) $Id: tclTomMathStubLib.c,v 1.2 2010/08/30 13:49:28 nijtmans Exp $ */ /* @@ -57,15 +57,14 @@ TclTomMathInitializeStubs( int exact = 0; const char *packageName = "tcl::tommath"; const char *errMsg = NULL; - ClientData pkgClientData = NULL; + const TclTomMathStubs *stubsPtr; const char *actualVersion = - Tcl_PkgRequireEx(interp, packageName, version, exact, &pkgClientData); - const TclTomMathStubs *stubsPtr = pkgClientData; + Tcl_PkgRequireEx(interp, packageName, version, exact, &stubsPtr); if (actualVersion == NULL) { return NULL; } - if (pkgClientData == NULL) { + if (stubsPtr == NULL) { errMsg = "missing stub table pointer"; } else if ((stubsPtr->tclBN_epoch)() != epoch) { errMsg = "epoch number mismatch"; |