This is a live mirror of the Perl 5 development currently hosted at
https://github.com/perl/perl5
https://perl5.git.perl.org
/
perl5.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
0a441b1
)
inline.h: Use 'do {} while' instead of 'while {}'
author
Karl Williamson
<khw@cpan.org>
Mon, 9 Jul 2018 21:59:16 +0000
(15:59 -0600)
committer
Karl Williamson
<khw@cpan.org>
Mon, 20 Aug 2018 15:50:29 +0000
(09:50 -0600)
inline.h
patch
|
blob
|
blame
|
history
diff --git
a/inline.h
b/inline.h
index
638f818
..
0d43656
100644
(file)
--- a/
inline.h
+++ b/
inline.h
@@
-1597,9
+1597,9
@@
Perl_utf8_hop_back(const U8 *s, SSize_t off, const U8 *start)
assert(off <= 0);
while (off++ && s > start) {
- s--;
- while (UTF8_IS_CONTINUATION(*s) && s > start)
+ do {
s--;
+ } while (UTF8_IS_CONTINUATION(*s) && s > start);
}
GCC_DIAG_IGNORE(-Wcast-qual)