summaryrefslogtreecommitdiff
path: root/pp.c
diff options
context:
space:
mode:
authorKarl Williamson <public@khwilliamson.com>2011-11-11 10:38:27 -0700
committerKarl Williamson <public@khwilliamson.com>2011-11-11 13:30:59 -0700
commit8e058693c493f09b014305b8d011c3b081e9b230 (patch)
tree4a52de3803bdb0d865c9155cde582b5a278a13f3 /pp.c
parent3e16b0e6b272793e45264c51c808855983e8c26d (diff)
downloadperl-8e058693c493f09b014305b8d011c3b081e9b230.tar.gz
pp.c: White-space only
This outdents and reflows comments as a result of the removal of a surrounding block
Diffstat (limited to 'pp.c')
-rw-r--r--pp.c56
1 files changed, 28 insertions, 28 deletions
diff --git a/pp.c b/pp.c
index f58a46081b..9ab1b07c4d 100644
--- a/pp.c
+++ b/pp.c
@@ -3878,36 +3878,36 @@ PP(pp_uc)
CAT_UNI_TO_UTF8_TWO_BYTE(d, GREEK_CAPITAL_LETTER_IOTA);
in_iota_subscript = FALSE;
- }
+ }
- /* Then handle the current character. Get the changed case
- * value and copy it to the output buffer */
+ /* Then handle the current character. Get the changed case value
+ * and copy it to the output buffer */
- u = UTF8SKIP(s);
- uv = toUPPER_utf8(s, tmpbuf, &ulen);
- if (uv == GREEK_CAPITAL_LETTER_IOTA
- && utf8_to_uvchr(s, 0) == COMBINING_GREEK_YPOGEGRAMMENI)
- {
- in_iota_subscript = TRUE;
- }
- else {
- if (ulen > u && (SvLEN(dest) < (min += ulen - u))) {
- /* If the eventually required minimum size outgrows
- * the available space, we need to grow. */
- const UV o = d - (U8*)SvPVX_const(dest);
-
- /* If someone uppercases one million U+03B0s we
- * SvGROW() one million times. Or we could try
- * guessing how much to allocate without allocating too
- * much. Such is life. See corresponding comment in
- * lc code for another option */
- SvGROW(dest, min);
- d = (U8*)SvPVX(dest) + o;
- }
- Copy(tmpbuf, d, ulen, U8);
- d += ulen;
- }
- s += u;
+ u = UTF8SKIP(s);
+ uv = toUPPER_utf8(s, tmpbuf, &ulen);
+ if (uv == GREEK_CAPITAL_LETTER_IOTA
+ && utf8_to_uvchr(s, 0) == COMBINING_GREEK_YPOGEGRAMMENI)
+ {
+ in_iota_subscript = TRUE;
+ }
+ else {
+ if (ulen > u && (SvLEN(dest) < (min += ulen - u))) {
+ /* If the eventually required minimum size outgrows the
+ * available space, we need to grow. */
+ const UV o = d - (U8*)SvPVX_const(dest);
+
+ /* If someone uppercases one million U+03B0s we SvGROW()
+ * one million times. Or we could try guessing how much to
+ * allocate without allocating too much. Such is life.
+ * See corresponding comment in lc code for another option
+ * */
+ SvGROW(dest, min);
+ d = (U8*)SvPVX(dest) + o;
+ }
+ Copy(tmpbuf, d, ulen, U8);
+ d += ulen;
+ }
+ s += u;
}
if (in_iota_subscript) {
CAT_UNI_TO_UTF8_TWO_BYTE(d, GREEK_CAPITAL_LETTER_IOTA);