summaryrefslogtreecommitdiffstats
path: root/generic/tclInt.h
diff options
context:
space:
mode:
authordgp <dgp@users.sourceforge.net>2021-03-15 14:01:43 (GMT)
committerdgp <dgp@users.sourceforge.net>2021-03-15 14:01:43 (GMT)
commit071a9a5e35238f5466dcdccedfad74e8b656af28 (patch)
tree05ba106ffab83a7fe8b0622ffeb56edbe3881c5a /generic/tclInt.h
parenta65a6bf9dfb2bc4a58c957582b65082027924d5f (diff)
parent2e8db9a108c3539b68e894749c0e05e1d5ae871e (diff)
downloadtcl-071a9a5e35238f5466dcdccedfad74e8b656af28.zip
tcl-071a9a5e35238f5466dcdccedfad74e8b656af28.tar.gz
tcl-071a9a5e35238f5466dcdccedfad74e8b656af28.tar.bz2
merge trunk
Diffstat (limited to 'generic/tclInt.h')
-rw-r--r--generic/tclInt.h11
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