diff options
author | dgp <dgp@users.sourceforge.net> | 2021-03-15 14:01:43 (GMT) |
---|---|---|
committer | dgp <dgp@users.sourceforge.net> | 2021-03-15 14:01:43 (GMT) |
commit | 071a9a5e35238f5466dcdccedfad74e8b656af28 (patch) | |
tree | 05ba106ffab83a7fe8b0622ffeb56edbe3881c5a /generic/tclInt.h | |
parent | a65a6bf9dfb2bc4a58c957582b65082027924d5f (diff) | |
parent | 2e8db9a108c3539b68e894749c0e05e1d5ae871e (diff) | |
download | tcl-071a9a5e35238f5466dcdccedfad74e8b656af28.zip tcl-071a9a5e35238f5466dcdccedfad74e8b656af28.tar.gz tcl-071a9a5e35238f5466dcdccedfad74e8b656af28.tar.bz2 |
merge trunk
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r-- | generic/tclInt.h | 11 |
1 files changed, 0 insertions, 11 deletions
diff --git a/generic/tclInt.h b/generic/tclInt.h index 7e6a92b..cd3baa7 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3184,16 +3184,10 @@ MODULE_SCOPE size_t TclUtfCount(int ch); # define TclUtfToUCS4 Tcl_UtfToUniChar # define TclUniCharToUCS4(src, ptr) (*ptr = *(src),1) # define TclUCS4Prev(src, ptr) (((src) > (ptr)) ? ((src) - 1) : (src)) -# 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 *, int *); MODULE_SCOPE int TclUniCharToUCS4(const Tcl_UniChar *, int *); MODULE_SCOPE const Tcl_UniChar *TclUCS4Prev(const Tcl_UniChar *, const Tcl_UniChar *); -# 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(void *clientData); MODULE_SCOPE Tcl_Obj * TclpFilesystemPathType(Tcl_Obj *pathPtr); @@ -4629,11 +4623,6 @@ MODULE_SCOPE const TclFileAttrProcs tclpFileAttrProcs[]; (numChars) = _count; \ } while (0); -#define TclUtfPrev(src, start) \ - (((src) < (start) + 2) ? (start) : \ - ((unsigned char) *((src) - 1)) < 0x80 ? (src) - 1 : \ - Tcl_UtfPrev(src, start)) - /* *---------------------------------------------------------------- * Macro that encapsulates the logic that determines when it is safe to |