diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 20:12:23 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2023-03-16 20:12:23 (GMT) |
| commit | 3129864cc27566ec6c62c86299d366812f9ce82c (patch) | |
| tree | aa17638efb34c9ad56b4248857c1fdfd0e4ca53e | |
| parent | ae0471127efb9e3be2f45c25f91ba07f6a09eae5 (diff) | |
| download | tcl-3129864cc27566ec6c62c86299d366812f9ce82c.zip tcl-3129864cc27566ec6c62c86299d366812f9ce82c.tar.gz tcl-3129864cc27566ec6c62c86299d366812f9ce82c.tar.bz2 | |
If TCL_UTF_MAX=4, don't set 'exact' to 1
| -rw-r--r-- | generic/tcl.h | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/generic/tcl.h b/generic/tcl.h index 7a8c8a8..82430ba 100644 --- a/generic/tcl.h +++ b/generic/tcl.h @@ -2425,7 +2425,7 @@ const char * TclTomMathInitializeStubs(Tcl_Interp *interp, # else # define Tcl_InitStubs(interp, version, exact) \ (Tcl_InitStubs)(interp, TCL_PATCH_LEVEL, \ - 1|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ + (exact)|(TCL_MAJOR_VERSION<<8)|(TCL_MINOR_VERSION<<16), \ TCL_STUB_MAGIC) # endif #else |