diff options
author | Karl Williamson <khw@cpan.org> | 2020-12-17 13:07:34 -0700 |
---|---|---|
committer | Karl Williamson <khw@cpan.org> | 2022-06-12 09:50:10 -0600 |
commit | 6eb62d23ae68de0cdc243b0ef1603fc8e4fdf9b5 (patch) | |
tree | 8c44bc6704d27b5e01b22e6ce76cef4e8b721a9e /numeric.c | |
parent | f88fd00517a49a4577607687c0e6e9329498d1f4 (diff) | |
download | perl-6eb62d23ae68de0cdc243b0ef1603fc8e4fdf9b5.tar.gz |
Change handy.h macro names to be C standard conformant
C reserves symbols beginning with underscores for its own use. This
commit moves the underscore so it is trailing, which is legal. The
symbols changed here are most of the ones in handy.h that have few uses
outside it.
Diffstat (limited to 'numeric.c')
-rw-r--r-- | numeric.c | 20 |
1 files changed, 10 insertions, 10 deletions
@@ -426,42 +426,42 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start, case 0: return 0; default: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 7: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 6: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 5: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 4: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 3: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 2: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); s++; /* FALLTHROUGH */ case 1: - if (UNLIKELY(! _generic_isCC(*s, class_bit))) break; + if (UNLIKELY(! generic_isCC_(*s, class_bit))) break; value = (value << shift) | XDIGIT_VALUE(*s); if (LIKELY(len <= 8)) { @@ -477,7 +477,7 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start, len -= bytes_so_far; for (; len--; s++) { - if (_generic_isCC(*s, class_bit)) { + if (generic_isCC_(*s, class_bit)) { /* Write it in this wonky order with a goto to attempt to get the compiler to make the common case integer-only loop pretty tight. With gcc seems to be much straighter code than old scan_hex. @@ -527,7 +527,7 @@ Perl_grok_bin_oct_hex(pTHX_ const char *start, if ( *s == '_' && len && allow_underscores - && _generic_isCC(s[1], class_bit) + && generic_isCC_(s[1], class_bit) /* Don't allow a leading underscore if the only-medial bit is * set */ |