diff options
author | Karl Williamson <khw@cpan.org> | 2019-01-30 10:35:21 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2019-02-04 21:00:50 -0700 |
commit | 526f8cbff8ce0a6402d8eb64ac3970e48c8716c3 (patch) | |
tree | 34297f7b5ada7b8c4d0cbdbe062d61c9d33faacf /pp.c | |
parent | a8e41ef404b996cb8f50be6cce716145ac4a3f67 (diff) | |
download | perl-526f8cbff8ce0a6402d8eb64ac3970e48c8716c3.tar.gz |
pp.c: pp_fc(): Simplify
The function being called does everything that the code being eliminated
here did. We just pass the function the final destination instead of a
temporary.
Diffstat (limited to 'pp.c')
-rw-r--r-- | pp.c | 17 |
1 files changed, 2 insertions, 15 deletions
@@ -4555,21 +4555,8 @@ PP(pp_fc) for (; s < send; s++) { STRLEN ulen; - UV fc = _to_uni_fold_flags(*s, tmpbuf, &ulen, flags); - if UVCHR_IS_INVARIANT(fc) { - if (full_folding - && *s == LATIN_SMALL_LETTER_SHARP_S) - { - *d++ = 's'; - *d++ = 's'; - } - else - *d++ = (U8)fc; - } - else { - Copy(tmpbuf, d, ulen, U8); - d += ulen; - } + _to_uni_fold_flags(*s, d, &ulen, flags); + d += ulen; } break; } |