diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 20:35:40 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 20:35:40 (GMT) |
| commit | 5e75946997e25579aecd008de67e27cf8dca3c72 (patch) | |
| tree | fd5f8eea2e20f3d9dfc1968235dfed8fb4360d2f /generic/tcl.h | |
| parent | 0494380d8af002ed144635e4419eaba10035ece7 (diff) | |
| parent | aa14feed8b03a78ef20b0989d17b44b7e734243e (diff) | |
| download | tcl-5e75946997e25579aecd008de67e27cf8dca3c72.zip tcl-5e75946997e25579aecd008de67e27cf8dca3c72.tar.gz tcl-5e75946997e25579aecd008de67e27cf8dca3c72.tar.bz2 | |
Merge tip-656-tcl9
Diffstat (limited to 'generic/tcl.h')
| -rw-r--r-- | generic/tcl.h | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 93b454f..9d6bf79 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2252,10 +2252,17 @@ void * TclStubCall(void *arg); #ifdef USE_TCL_STUBS #if TCL_MAJOR_VERSION < 9 +# if TCL_UTF_MAX < 4 # define Tcl_InitStubs(interp, version, exact) \ (Tcl_InitStubs)(interp, version, \ (exact)|(TCL_MAJOR_VERSION<<8)|(0xFF<<16), \ TCL_STUB_MAGIC) +# else +# define Tcl_InitStubs(interp, version, exact) \ + (Tcl_InitStubs)(interp, "8.7.0", \ + (exact)|(TCL_MAJOR_VERSION<<8)|(0xFF<<16), \ + TCL_STUB_MAGIC) +# endif #elif TCL_RELEASE_LEVEL == TCL_FINAL_RELEASE # define Tcl_InitStubs(interp, version, exact) \ (Tcl_InitStubs)(interp, version, \ |