diff options
| author | andreas_kupries <andreas_kupries@noemail.net> | 2006-09-22 18:13:25 (GMT) |
|---|---|---|
| committer | andreas_kupries <andreas_kupries@noemail.net> | 2006-09-22 18:13:25 (GMT) |
| commit | b582a8fdc7e8829a1dfd36550181d3492cf8b381 (patch) | |
| tree | f67d58798c4d5ba6ee60a07d1f99fe77001dee13 /generic/tclTomMathInterface.c | |
| parent | c90f137bf46a53f55c597d3e79ab2a491424a90c (diff) | |
| download | tcl-b582a8fdc7e8829a1dfd36550181d3492cf8b381.zip tcl-b582a8fdc7e8829a1dfd36550181d3492cf8b381.tar.gz tcl-b582a8fdc7e8829a1dfd36550181d3492cf8b381.tar.bz2 | |
TIP#268 IMPLEMENTATION
* generic/tclDecls.h: Regenerated from tcl.decls.
* generic/tclStubInit.c:
* doc/PkgRequire.3: Documentation of extended API,
* doc/package.n: extended testsuite.
* tests/pkg.test:
* generic/tcl.decls: Implementation.
* generic/tclBasic.c:
* generic/tclConfig.c:
* generic/tclInt.h:
* generic/tclPkg.c:
* generic/tclTest.c:
* generic/tclTomMathInterface.c:
* library/init.tcl:
* library/package.tcl:
* library/tm.tcl:
FossilOrigin-Name: 055195c6bce7cf3bc2a1dc2c88b333d9e9b4485c
Diffstat (limited to 'generic/tclTomMathInterface.c')
| -rw-r--r-- | generic/tclTomMathInterface.c | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/generic/tclTomMathInterface.c b/generic/tclTomMathInterface.c index 65eddcf..f726531 100644 --- a/generic/tclTomMathInterface.c +++ b/generic/tclTomMathInterface.c @@ -11,7 +11,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tclTomMathInterface.c,v 1.6 2005/12/13 22:43:18 kennykb Exp $ + * RCS: @(#) $Id: tclTomMathInterface.c,v 1.7 2006/09/22 18:13:29 andreas_kupries Exp $ */ #include "tclInt.h" @@ -42,7 +42,9 @@ int TclTommath_Init( Tcl_Interp* interp /* Tcl interpreter */ ) { - if (Tcl_PkgProvideEx(interp, "tcl::tommath", TCL_VERSION, + /* TIP #268: Full patchlevel instead of just major.minor */ + + if (Tcl_PkgProvideEx(interp, "tcl::tommath", TCL_PATCH_LEVEL, (ClientData)&tclTomMathStubs) != TCL_OK) { return TCL_ERROR; } |