diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-03 09:13:27 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-04-03 09:13:27 (GMT) |
| commit | 3e7df06557bc26dbbf2b7e7319eed92b3648f9d7 (patch) | |
| tree | b090e5ec33f3e9a3df7913435f8f465c7c9e041c /generic/tclInt.h | |
| parent | 9a6f2b00322c3aa712b96f678d3d72d55e89c503 (diff) | |
| download | tcl-3e7df06557bc26dbbf2b7e7319eed92b3648f9d7.zip tcl-3e7df06557bc26dbbf2b7e7319eed92b3648f9d7.tar.gz tcl-3e7df06557bc26dbbf2b7e7319eed92b3648f9d7.tar.bz2 | |
Simplify implementation of TclUtfToUCS4: The #undefined Tcl_UtfToUniChar() already does everything for use here (Unlike in Tcl 8.6, with has to live without TIP #542)
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index a50bf7d..16e1aa8 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3251,7 +3251,11 @@ MODULE_SCOPE void TclRegisterCommandTypeName( MODULE_SCOPE int TclUtfCmp(const char *cs, const char *ct); MODULE_SCOPE int TclUtfCasecmp(const char *cs, const char *ct); MODULE_SCOPE int TclUtfCount(int ch); -MODULE_SCOPE int TclUtfToUCS4(const char *src, int *ucs4Ptr); +#if TCL_UTF_MAX > 3 +# define TclUtfToUCS4 Tcl_UtfToUniChar +#else + MODULE_SCOPE int TclUtfToUCS4(const char *src, int *ucs4Ptr); +#endif MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); MODULE_SCOPE int TclpDlopen(Tcl_Interp *interp, Tcl_Obj *pathPtr, |