diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-27 21:09:20 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-27 21:09:20 (GMT) |
| commit | 0d78d389e17f7e34f073b6890fa44a79805c4463 (patch) | |
| tree | a40ae2bb7553c52bfc8565fa7fdc31bb72ddca2c /generic/tcl.h | |
| parent | a1beeadf6c0354548c30d4e51a590ab8328536cb (diff) | |
| download | tcl-0d78d389e17f7e34f073b6890fa44a79805c4463.zip tcl-0d78d389e17f7e34f073b6890fa44a79805c4463.tar.gz tcl-0d78d389e17f7e34f073b6890fa44a79805c4463.tar.bz2 | |
3588687 Added cross checks so that [load]ed extension, [load]ing interp, and
linked stubs library all agree on their versions in the ways that matter.
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 147672c..74dd452 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2394,8 +2394,8 @@ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, * main library in case an extension is statically linked into an application. */ -const char * Tcl_InitStubs(Tcl_Interp *interp, const char *version, - int exact); +const char * TclInitStubs(Tcl_Interp *interp, const char *version, + int exact, int major); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); @@ -2403,7 +2403,10 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, * When not using stubs, make it a macro. */ -#ifndef USE_TCL_STUBS +#ifdef USE_TCL_STUBS +#define Tcl_InitStubs(interp, version, exact) \ + TclInitStubs(interp, version, exact, TCL_MAJOR_VERSION) +#else #define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, exact) #endif |