In perl.git, the branch smoke-me/khw-ebcdic has been updated <https://perl5.git.perl.org/perl.git/commitdiff/4602437d90e47ea09ab4a12cf5bfa04ff36362e6?hp=1d8613eb85d0b932bc15c9651cca4a4a9f12d720>
- Log ----------------------------------------------------------------- commit 4602437d90e47ea09ab4a12cf5bfa04ff36362e6 Author: Karl Williamson <[email protected]> Date: Thu Oct 3 06:03:47 2019 -0600 XXX tr_special commit bfe2b9e39160a545910388c81cab1689aa6912ce Author: Karl Williamson <[email protected]> Date: Thu Oct 3 05:37:41 2019 -0600 XXX fix ppport.h syntax error ----------------------------------------------------------------------- Summary of changes: dist/Devel-PPPort/parts/inc/misc | 1 - embedvar.h | 1 + perl.c | 1 + 3 files changed, 2 insertions(+), 1 deletion(-) diff --git a/dist/Devel-PPPort/parts/inc/misc b/dist/Devel-PPPort/parts/inc/misc index 89b6dc9751..1743e5d6b3 100644 --- a/dist/Devel-PPPort/parts/inc/misc +++ b/dist/Devel-PPPort/parts/inc/misc @@ -403,7 +403,6 @@ __UNDEFINED__ isCNTRL(c) ( (c) == '\0' || (c) == '\a' || (c) == '\b' /* The controls are everything below blank, plus one outlier */ __UNDEFINED__ isCNTRL_L1(c) ((WIDEST_UTYPE) (c) < ' ' \ || (WIDEST_UTYPE) (c) == D_PPP_OUTLIER_CONTROL) - ) /* The ordering of the tests in this and isUPPER are to exclude most characters * early */ __UNDEFINED__ isLOWER(c) ( (c) >= 'a' && (c) <= 'z' \ diff --git a/embedvar.h b/embedvar.h index 35cf8f2191..bc86fcf553 100644 --- a/embedvar.h +++ b/embedvar.h @@ -58,6 +58,7 @@ #define PL_Sock (vTHX->ISock) #define PL_StdIO (vTHX->IStdIO) #define PL_Sv (vTHX->ISv) +#define PL_TR_SPECIAL_HANDLING_UTF8 (vTHX->ITR_SPECIAL_HANDLING_UTF8) #define PL_Xpv (vTHX->IXpv) #define PL_an (vTHX->Ian) #define PL_argvgv (vTHX->Iargvgv) diff --git a/perl.c b/perl.c index f06c944d60..28652fee16 100644 --- a/perl.c +++ b/perl.c @@ -299,6 +299,7 @@ perl_construct(pTHXx) STATUS_ALL_SUCCESS; init_uniprops(); +#define TR_SPECIAL_HANDLING ((~0 - 1)) (void) uvchr_to_utf8_flags((U8 *) PL_TR_SPECIAL_HANDLING_UTF8, TR_SPECIAL_HANDLING, UNICODE_ALLOW_ABOVE_IV_MAX); #if defined(LOCAL_PATCH_COUNT) -- Perl5 Master Repository
