diff options
| author | dgp <dgp@users.sourceforge.net> | 2012-11-29 16:26:14 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2012-11-29 16:26:14 (GMT) |
| commit | 919539c5a17b6d1223b2d581f0181e2a59c5218d (patch) | |
| tree | 3f8c94f0fb4b3290d337f9bc7bf0a0c5f32c4900 /generic/tcl.h | |
| parent | 740c2d6d483e1b0775dd3e023fb607f240a0896f (diff) | |
| parent | bed2af7c8bcee59def5060fb111d5d081b9c4bbb (diff) | |
| download | tcl-919539c5a17b6d1223b2d581f0181e2a59c5218d.zip tcl-919539c5a17b6d1223b2d581f0181e2a59c5218d.tar.gz tcl-919539c5a17b6d1223b2d581f0181e2a59c5218d.tar.bz2 | |
Merge bug-3588687
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 fa6afe4..c7b9e6a 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2281,8 +2281,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, int magic); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); @@ -2290,7 +2290,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, TCL_STUB_MAGIC) +#else #define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, exact) #endif |