diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-20 21:33:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2022-03-20 21:33:39 (GMT) |
| commit | f567767f65983e81994ba6b29de78cede613109b (patch) | |
| tree | 66ccff0d39886b8e9a2676ad080c023888da56cb /generic/tclDecls.h | |
| parent | 48db2fee44128a4882b9868bfa3f52f6788fd2fb (diff) | |
| parent | a0b26511ec3f53545e575b609822ad525be69118 (diff) | |
| download | tcl-f567767f65983e81994ba6b29de78cede613109b.zip tcl-f567767f65983e81994ba6b29de78cede613109b.tar.gz tcl-f567767f65983e81994ba6b29de78cede613109b.tar.bz2 | |
Merge 8.7 Fix Tcl_UtfToExternalDString/Tcl_ExternalToUtfDString to use the right flag value (TCL_ENCODING_NOCOMPLAIN) as default. Change Tcl_UtfToExternalDString/Tcl_ExternalToUtfDString to be a macro
Diffstat (limited to 'generic/tclDecls.h')
| -rw-r--r-- | generic/tclDecls.h | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/generic/tclDecls.h b/generic/tclDecls.h index 14a21b9..cc33cf8 100644 --- a/generic/tclDecls.h +++ b/generic/tclDecls.h @@ -3816,6 +3816,15 @@ extern const TclStubs *tclStubsPtr; } \ } while(0) +#undef Tcl_UtfToExternalDString +#define Tcl_UtfToExternalDString(encoding, src, len, ds) \ + (Tcl_UtfToExternalDStringEx((encoding), (src), (len), \ + TCL_ENCODING_NOCOMPLAIN, (ds)), Tcl_DStringValue(ds)) +#undef Tcl_ExternalToUtfDString +#define Tcl_ExternalToUtfDString(encoding, src, len, ds) \ + (Tcl_ExternalToUtfDStringEx((encoding), (src), (len), \ + TCL_ENCODING_NOCOMPLAIN, (ds)), Tcl_DStringValue(ds)) + #if defined(USE_TCL_STUBS) # if defined(_WIN32) && defined(_WIN64) # undef Tcl_GetTime |