diff options
| author | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-01-22 21:41:11 (GMT) |
|---|---|---|
| committer | nijtmans@users.sourceforge.net <jan.nijtmans> | 2012-01-22 21:41:11 (GMT) |
| commit | 75d7deb33ef7dabd0ca35a9140b7b92187cbbe67 (patch) | |
| tree | 0d0942519126dd5cb530385a7118dfabf5363134 /generic/tclUtf.c | |
| parent | ed45bb68ef7a697f8c63d39917db391428002687 (diff) | |
| parent | 73325e5e68e1fc7b63d566c0c2640945f44d8fde (diff) | |
| download | tcl-75d7deb33ef7dabd0ca35a9140b7b92187cbbe67.zip tcl-75d7deb33ef7dabd0ca35a9140b7b92187cbbe67.tar.gz tcl-75d7deb33ef7dabd0ca35a9140b7b92187cbbe67.tar.bz2 | |
[Frq 3473670]: Various Unicode-related speedups/robustness
Diffstat (limited to 'generic/tclUtf.c')
| -rw-r--r-- | generic/tclUtf.c | 17 |
1 files changed, 7 insertions, 10 deletions
diff --git a/generic/tclUtf.c b/generic/tclUtf.c index 6b5e2e8..b6da7c3 100644 --- a/generic/tclUtf.c +++ b/generic/tclUtf.c @@ -1122,10 +1122,9 @@ Tcl_UniCharToUpper(ch) int info = GetUniCharInfo(ch); if (GetCaseType(info) & 0x04) { - return (Tcl_UniChar) (ch - GetDelta(info)); - } else { - return ch; + ch -= GetDelta(info); } + return (Tcl_UniChar) ch; } /* @@ -1151,10 +1150,9 @@ Tcl_UniCharToLower(ch) int info = GetUniCharInfo(ch); if (GetCaseType(info) & 0x02) { - return (Tcl_UniChar) (ch + GetDelta(info)); - } else { - return ch; + ch += GetDelta(info); } + return (Tcl_UniChar) ch; } /* @@ -1185,12 +1183,11 @@ Tcl_UniCharToTitle(ch) * Subtract or add one depending on the original case. */ - return (Tcl_UniChar) (ch + ((mode & 0x4) ? -1 : 1)); + ch += ((mode & 0x4) ? -1 : 1); } else if (mode == 0x4) { - return (Tcl_UniChar) (ch - GetDelta(info)); - } else { - return ch; + ch -= GetDelta(info); } + return (Tcl_UniChar) ch; } /* |