diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-07 10:56:39 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2020-05-07 10:56:39 (GMT) |
| commit | 062c99cefca5d0755a750c751d3e7b452294878e (patch) | |
| tree | 3960d4170c5e6f1bca1caa1baed5c877f2b49d04 /generic/tclInt.h | |
| parent | 402b2af43a54b47748174e1ff5b246fab3d61c60 (diff) | |
| parent | fb50148fcc9023ca550a1017a17545ae9469699d (diff) | |
| download | tcl-062c99cefca5d0755a750c751d3e7b452294878e.zip tcl-062c99cefca5d0755a750c751d3e7b452294878e.tar.gz tcl-062c99cefca5d0755a750c751d3e7b452294878e.tar.bz2 | |
Merge 8.6
Diffstat (limited to 'generic/tclInt.h')
| -rw-r--r-- | generic/tclInt.h | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 9ef1065..78d9f93 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3253,10 +3253,13 @@ MODULE_SCOPE int TclUtfCount(int ch); #if TCL_UTF_MAX > 3 # define TclUtfToUCS4 Tcl_UtfToUniChar # define TclUCS4Complete Tcl_UtfCharComplete +# define TclChar16Complete(src, length) (((unsigned)((unsigned char)*(src) - 0xF0) < 5) \ + ? ((length) >= 3) : Tcl_UtfCharComplete((src), (length))) #else MODULE_SCOPE int TclUtfToUCS4(const char *src, int *ucs4Ptr); # define TclUCS4Complete(src, length) (((unsigned)((unsigned char)*(src) - 0xF0) < 5) \ ? ((length) >= 4) : Tcl_UtfCharComplete((src), (length))) +# define TclChar16Complete Tcl_UtfCharComplete #endif MODULE_SCOPE Tcl_Obj * TclpNativeToNormalized(ClientData clientData); MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); |