diff options
| author | dgp <dgp@users.sourceforge.net> | 2007-09-17 14:50:42 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2007-09-17 14:50:42 (GMT) |
| commit | 531cd3e85b7f36bc521f8e9f4f3a0394e3be5b84 (patch) | |
| tree | 02776b4d71e3ead075f236772f6f91ef36a9956f /generic/tcl.h | |
| parent | 3ad66d99fd717405fb14ba64c0c8560bee0dc477 (diff) | |
| download | tcl-531cd3e85b7f36bc521f8e9f4f3a0394e3be5b84.zip tcl-531cd3e85b7f36bc521f8e9f4f3a0394e3be5b84.tar.gz tcl-531cd3e85b7f36bc521f8e9f4f3a0394e3be5b84.tar.bz2 | |
* generic/tcl.h: Revised Tcl_InitStubs() to restore Tcl 8.4
* generic/tclPkg.c: source compatibility with callers of
* generic/tclStubLib.c: Tcl_InitStubs(interp, TCL_VERSION, 1).
[Bug 1578344].
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 5df7989..5ddbc1b 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -13,7 +13,7 @@ * See the file "license.terms" for information on usage and redistribution of * this file, and for a DISCLAIMER OF ALL WARRANTIES. * - * RCS: @(#) $Id: tcl.h,v 1.234 2007/07/31 17:03:35 msofer Exp $ + * RCS: @(#) $Id: tcl.h,v 1.235 2007/09/17 14:50:43 dgp Exp $ */ #ifndef _TCL @@ -2216,7 +2216,7 @@ EXTERN CONST char* TclTomMathInitializeStubs(Tcl_Interp* interp, */ #define Tcl_InitStubs(interp, version, exact) \ - Tcl_PkgRequire(interp, "Tcl", version, exact) + Tcl_PkgInitStubsCheck(interp, version, exact) #endif @@ -2232,6 +2232,9 @@ EXTERN CONST char* TclTomMathInitializeStubs(Tcl_Interp* interp, EXTERN void Tcl_Main _ANSI_ARGS_((int argc, char **argv, Tcl_AppInitProc *appInitProc)); +EXTERN CONST char *Tcl_PkgInitStubsCheck _ANSI_ARGS_((Tcl_Interp *interp, + CONST char *version, int exact)); + /* * Include the public function declarations that are accessible via the stubs * table. |