Skip to content

Commit

Permalink
locale.c: Print code point in hex, not decimal
Browse files Browse the repository at this point in the history 
Hex is the more familiar form
  • Loading branch information
@khwilliamson
khwilliamson committed May 6, 2021
1 parent 9ad89c4 commit 0ad46b5
Showing 1 changed file with 10 additions and 10 deletions.
20 changes: 10 additions & 10 deletions locale.c
View file
Expand Up @@ -1874,61 +1874,61 @@ S_new_ctype(pTHX_ const char *newctype)
if (UNLIKELY(cBOOL(isU8_ALPHANUMERIC_LC(i)) != cBOOL(isALPHANUMERIC_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isalnum('%s') unexpectedly is %d\n",
"isalnum('%s') unexpectedly is %x\n",
name, cBOOL(isU8_ALPHANUMERIC_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_ALPHA_LC(i)) != cBOOL(isALPHA_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isalpha('%s') unexpectedly is %d\n",
"isalpha('%s') unexpectedly is %x\n",
name, cBOOL(isU8_ALPHA_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_DIGIT_LC(i)) != cBOOL(isDIGIT_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isdigit('%s') unexpectedly is %d\n",
"isdigit('%s') unexpectedly is %x\n",
name, cBOOL(isU8_DIGIT_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_GRAPH_LC(i)) != cBOOL(isGRAPH_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isgraph('%s') unexpectedly is %d\n",
"isgraph('%s') unexpectedly is %x\n",
name, cBOOL(isU8_GRAPH_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_LOWER_LC(i)) != cBOOL(isLOWER_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"islower('%s') unexpectedly is %d\n",
"islower('%s') unexpectedly is %x\n",
name, cBOOL(isU8_LOWER_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_PRINT_LC(i)) != cBOOL(isPRINT_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isprint('%s') unexpectedly is %d\n",
"isprint('%s') unexpectedly is %x\n",
name, cBOOL(isU8_PRINT_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_PUNCT_LC(i)) != cBOOL(isPUNCT_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"ispunct('%s') unexpectedly is %d\n",
"ispunct('%s') unexpectedly is %x\n",
name, cBOOL(isU8_PUNCT_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_SPACE_LC(i)) != cBOOL(isSPACE_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isspace('%s') unexpectedly is %d\n",
"isspace('%s') unexpectedly is %x\n",
name, cBOOL(isU8_SPACE_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_UPPER_LC(i)) != cBOOL(isUPPER_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isupper('%s') unexpectedly is %d\n",
"isupper('%s') unexpectedly is %x\n",
name, cBOOL(isU8_UPPER_LC(i))));
}
if (UNLIKELY(cBOOL(isU8_XDIGIT_LC(i))!= cBOOL(isXDIGIT_A(i)))) {
is_bad = TRUE;
DEBUG_L(PerlIO_printf(Perl_debug_log,
"isxdigit('%s') unexpectedly is %d\n",
"isxdigit('%s') unexpectedly is %x\n",
name, cBOOL(isU8_XDIGIT_LC(i))));
}
if (UNLIKELY(toU8_LOWER_LC(i) != (int) toLOWER_A(i))) {
Expand Down

0 comments on commit 0ad46b5

Please sign in to comment.