diff options
author | dgp <dgp@users.sourceforge.net> | 2012-11-29 17:25:59 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2012-11-29 17:25:59 (GMT) |
commit | 02e5732cffb9d23e1ea6612ee37c19a88e4891f2 (patch) | |
tree | 8535eb93a572ab5c35690209d53b8ea1ccc020c2 /generic/tcl.h | |
parent | 2e19edb3f50478006b2377ebbc196889331ef53c (diff) | |
download | tcl-02e5732cffb9d23e1ea6612ee37c19a88e4891f2.zip tcl-02e5732cffb9d23e1ea6612ee37c19a88e4891f2.tar.gz tcl-02e5732cffb9d23e1ea6612ee37c19a88e4891f2.tar.bz2 |
Proposed rollback of the TCL_STUB_MAGIC change on novem branch.novem_review
Diffstat (limited to 'generic/tcl.h')
-rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index b9ff28c..91bf623 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -136,7 +136,6 @@ extern "C" { */ #include <stdio.h> -#include <stddef.h> /* *---------------------------------------------------------------------------- @@ -2276,7 +2275,7 @@ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, * stubs tables. */ -#define TCL_STUB_MAGIC ((int) (0xFCA3BACB + sizeof(size_t))) +#define TCL_STUB_MAGIC ((int) 0xFCA3BACF) /* * The following function is required to be defined in all stubs aware @@ -2286,7 +2285,7 @@ typedef int (Tcl_NRPostProc) (ClientData data[], Tcl_Interp *interp, */ const char * TclInitStubs(Tcl_Interp *interp, const char *version, - int exact, int magic); + int exact, int major, int magic); const char * TclTomMathInitializeStubs(Tcl_Interp *interp, const char *version, int epoch, int revision); @@ -2296,7 +2295,7 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, #ifdef USE_TCL_STUBS #define Tcl_InitStubs(interp, version, exact) \ - TclInitStubs(interp, version, exact, TCL_STUB_MAGIC) + TclInitStubs(interp, version, exact, TCL_MAJOR_VERSION, TCL_STUB_MAGIC) #else #define Tcl_InitStubs(interp, version, exact) \ Tcl_PkgInitStubsCheck(interp, version, exact) |