diff options
author | dgp <dgp@users.sourceforge.net> | 2012-11-29 15:24:50 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-11-29 15:24:50 (GMT) |
commit | bed2af7c8bcee59def5060fb111d5d081b9c4bbb (patch) | |
tree | 6f9362f123d5e852dee15a1d02ddbb6b692be5f5 /generic/tcl.h | |
parent | 3c5544ba3c952c9e4415f040bfe93cb22041d02c (diff) | |
parent | f9ed6a0df0ce450fc6ddc636463eaf26e3e03bcb (diff) | |
download | tcl-bed2af7c8bcee59def5060fb111d5d081b9c4bbb.zip tcl-bed2af7c8bcee59def5060fb111d5d081b9c4bbb.tar.gz tcl-bed2af7c8bcee59def5060fb111d5d081b9c4bbb.tar.bz2 |
Revise TclInitStubs() so that it checks for consistent values of both
TCL_MAJOR_VERSION and TCL_STUB_MAGIC between an extension and the stub library.
Diffstat (limited to 'generic/tcl.h')
-rw-r--r-- | generic/tcl.h | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 74dd452..049499c 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2395,7 +2395,7 @@ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, */ const char * TclInitStubs(Tcl_Interp *interp, const char *version, - int exact, int major); + int exact, int major, int magic); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); @@ -2405,7 +2405,7 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, #ifdef USE_TCL_STUBS #define Tcl_InitStubs(interp, version, exact) \ - TclInitStubs(interp, version, exact, TCL_MAJOR_VERSION) + TclInitStubs(interp, version, exact, TCL_MAJOR_VERSION, TCL_STUB_MAGIC) #else #define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, exact) |