Skip to content

Commit 228adb8

Browse files
committed
inline.h: Remove relict comments
We changed the bit ops before 5.30 to work sanely on UTF-8 encoded strings.
1 parent 24a0fdd commit 228adb8

File tree

1 file changed

+0
-10
lines changed

1 file changed

+0
-10
lines changed

inline.h

Lines changed: 0 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -2672,11 +2672,6 @@ PERL_STATIC_INLINE U8 *
26722672
Perl_utf8_hop_forward(const U8 *s, SSize_t off, const U8 *end)
26732673
{
26742674
PERL_ARGS_ASSERT_UTF8_HOP_FORWARD;
2675-
2676-
/* Note: cannot use UTF8_IS_...() too eagerly here since e.g
2677-
* the bitops (especially ~) can create illegal UTF-8.
2678-
* In other words: in Perl UTF-8 is not just for Unicode. */
2679-
26802675
assert(off >= 0);
26812676

26822677
if (UNLIKELY(s >= end)) {
@@ -2736,11 +2731,6 @@ PERL_STATIC_INLINE U8 *
27362731
Perl_utf8_hop_back(const U8 *s, SSize_t off, const U8 *start)
27372732
{
27382733
PERL_ARGS_ASSERT_UTF8_HOP_BACK;
2739-
2740-
/* Note: cannot use UTF8_IS_...() too eagerly here since e.g
2741-
* the bitops (especially ~) can create illegal UTF-8.
2742-
* In other words: in Perl UTF-8 is not just for Unicode. */
2743-
27442734
assert(start <= s);
27452735
assert(off <= 0);
27462736

0 commit comments

Comments
 (0)