diff options
| author | dgp <dgp@users.sourceforge.net> | 2020-04-14 20:18:55 (GMT) |
|---|---|---|
| committer | dgp <dgp@users.sourceforge.net> | 2020-04-14 20:18:55 (GMT) |
| commit | 279c54dbff724a62d6739a9cc71ba31a83325c98 (patch) | |
| tree | 0fb8a3ec512ecd43aeedff9a7714031582a73bf8 /generic/tclInt.h | |
| parent | e9b1c88a4142a059a821fdd2f2b02272a53c9151 (diff) | |
| download | tcl-279c54dbff724a62d6739a9cc71ba31a83325c98.zip tcl-279c54dbff724a62d6739a9cc71ba31a83325c98.tar.gz tcl-279c54dbff724a62d6739a9cc71ba31a83325c98.tar.bz2 | |
Create and use an optimized macro TclUtfNext() for Tcl_UtfNext().
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 15bc000..e92cd18 100644 --- a/generic/tclInt.h +++ b/generic/tclInt.h @@ -3691,6 +3691,9 @@ MODULE_SCOPE void TclDbInitNewObj(Tcl_Obj *objPtr, CONST char *file, ((*(chPtr) = (unsigned char) *(str)), 1) \ : Tcl_UtfToUniChar(str, chPtr)) +#define TclUtfNext(src) \ + ((((unsigned char) *(src)) < 0xC0) ? src + 1 : Tcl_UtfNext(src)) + /* *---------------------------------------------------------------- * Macro that encapsulates the logic that determines when it is safe to |