diff options
author | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
---|---|---|
committer | Norbert Preining <norbert@preining.info> | 2024-03-15 03:06:35 +0000 |
commit | 12679ab7d3c2a210f4123163671b532b8b55d5f9 (patch) | |
tree | 0060d13467186ad977f4e73488ee20dd6c0017ab /systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h | |
parent | 62170822e034fdd3f81de7274835d0d3b0467100 (diff) |
CTAN sync 202403150306
Diffstat (limited to 'systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h')
-rw-r--r-- | systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h | 141 |
1 files changed, 88 insertions, 53 deletions
diff --git a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h index 5547a1161a..ce1765e983 100644 --- a/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h +++ b/systems/texlive/tlnet/tlpkg/tlperl/lib/CORE/warnings.h @@ -1,4 +1,4 @@ -/* -*- buffer-read-only: t -*- +/* -*- mode: C; buffer-read-only: t -*- !!!!!!! DO NOT EDIT THIS FILE !!!!!!! This file is built by regen/warnings.pl. Any changes made here will be lost! @@ -9,7 +9,6 @@ #define Perl_Warn_Bit_(x) (1 << ((x) % 8)) #define PerlWarnIsSet_(a, x) ((a)[Perl_Warn_Off_(x)] & Perl_Warn_Bit_(x)) - #define G_WARN_OFF 0 /* $^W == 0 */ #define G_WARN_ON 1 /* -w flag and $^W != 0 */ #define G_WARN_ALL_ON 2 /* -W flag */ @@ -18,8 +17,8 @@ #define G_WARN_ALL_MASK (G_WARN_ALL_ON|G_WARN_ALL_OFF) #define pWARN_STD NULL -#define pWARN_ALL (STRLEN *) &PL_WARN_ALL /* use warnings 'all' */ -#define pWARN_NONE (STRLEN *) &PL_WARN_NONE /* no warnings 'all' */ +#define pWARN_ALL &PL_WARN_ALL /* use warnings 'all' */ +#define pWARN_NONE &PL_WARN_NONE /* no warnings 'all' */ #define specialWARN(x) ((x) == pWARN_STD || (x) == pWARN_ALL || \ (x) == pWARN_NONE) @@ -81,75 +80,106 @@ #define WARN_IMPRECISION 46 #define WARN_ILLEGALPROTO 47 +/* Warnings Categories added in Perl 5.011003 */ + +#define WARN_DEPRECATED__GOTO_CONSTRUCT 48 +#define WARN_DEPRECATED__UNICODE_PROPERTY_NAME 49 + /* Warnings Categories added in Perl 5.013 */ -#define WARN_NON_UNICODE 48 -#define WARN_NONCHAR 49 -#define WARN_SURROGATE 50 +#define WARN_NON_UNICODE 50 +#define WARN_NONCHAR 51 +#define WARN_SURROGATE 52 /* Warnings Categories added in Perl 5.017 */ -#define WARN_EXPERIMENTAL 51 -#define WARN_EXPERIMENTAL__LEXICAL_SUBS 52 -#define WARN_EXPERIMENTAL__REGEX_SETS 53 -#define WARN_EXPERIMENTAL__SMARTMATCH 54 +#define WARN_EXPERIMENTAL 53 +#define WARN_EXPERIMENTAL__REGEX_SETS 54 /* Warnings Categories added in Perl 5.019 */ -#define WARN_EXPERIMENTAL__POSTDEREF 55 -#define WARN_EXPERIMENTAL__SIGNATURES 56 -#define WARN_SYSCALLS 57 +#define WARN_SYSCALLS 55 /* Warnings Categories added in Perl 5.021 */ -#define WARN_EXPERIMENTAL__BITWISE 58 -#define WARN_EXPERIMENTAL__CONST_ATTR 59 -#define WARN_EXPERIMENTAL__RE_STRICT 60 -#define WARN_EXPERIMENTAL__REFALIASING 61 -#define WARN_EXPERIMENTAL__WIN32_PERLIO 62 -#define WARN_LOCALE 63 -#define WARN_MISSING 64 -#define WARN_REDUNDANT 65 +#define WARN_EXPERIMENTAL__CONST_ATTR 56 +#define WARN_EXPERIMENTAL__RE_STRICT 57 +#define WARN_EXPERIMENTAL__REFALIASING 58 +#define WARN_LOCALE 59 +#define WARN_MISSING 60 +#define WARN_REDUNDANT 61 /* Warnings Categories added in Perl 5.025 */ -#define WARN_EXPERIMENTAL__DECLARED_REFS 66 +#define WARN_EXPERIMENTAL__DECLARED_REFS 62 + +/* Warnings Categories added in Perl 5.025011 */ + +#define WARN_DEPRECATED__DOT_IN_INC 63 /* Warnings Categories added in Perl 5.027 */ -#define WARN_EXPERIMENTAL__ALPHA_ASSERTIONS 67 -#define WARN_EXPERIMENTAL__SCRIPT_RUN 68 -#define WARN_SHADOW 69 +#define WARN_SHADOW 64 /* Warnings Categories added in Perl 5.029 */ -#define WARN_EXPERIMENTAL__PRIVATE_USE 70 -#define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 71 -#define WARN_EXPERIMENTAL__VLB 72 +#define WARN_EXPERIMENTAL__PRIVATE_USE 65 +#define WARN_EXPERIMENTAL__UNIPROP_WILDCARDS 66 +#define WARN_EXPERIMENTAL__VLB 67 -/* Warnings Categories added in Perl 5.031 */ +/* Warnings Categories added in Perl 5.033 */ -#define WARN_EXPERIMENTAL__ISA 73 +#define WARN_EXPERIMENTAL__TRY 68 -/* Warnings Categories added in Perl 5.033 */ +/* Warnings Categories added in Perl 5.035 */ + +#define WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES 69 +#define WARN_EXPERIMENTAL__BUILTIN 70 +#define WARN_EXPERIMENTAL__DEFER 71 +#define WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS 72 +#define WARN_EXPERIMENTAL__FOR_LIST 73 +#define WARN_SCALAR 74 + +/* Warnings Categories added in Perl 5.035009 */ + +#define WARN_DEPRECATED__VERSION_DOWNGRADE 75 + +/* Warnings Categories added in Perl 5.03501 */ + +#define WARN_DEPRECATED__DELIMITER_WILL_BE_PAIRED 76 + +/* Warnings Categories added in Perl 5.037 */ + +#define WARN_EXPERIMENTAL__CLASS 77 + +/* Warnings Categories added in Perl 5.037009 */ + +#define WARN_DEPRECATED__APOSTROPHE_AS_PACKAGE_SEPARATOR 78 + +/* Warnings Categories added in Perl 5.03701 */ -#define WARN_EXPERIMENTAL__TRY 74 -#define WARNsize 19 -#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125" -#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" +#define WARN_DEPRECATED__SMARTMATCH 79 +#define WARNsize 20 +#define WARN_ALLstring "\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125\125" +#define WARN_NONEstring "\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0" #define isLEXWARN_on \ cBOOL(PL_curcop && PL_curcop->cop_warnings != pWARN_STD) #define isLEXWARN_off \ cBOOL(!PL_curcop || PL_curcop->cop_warnings == pWARN_STD) #define isWARN_ONCE (PL_dowarn & (G_WARN_ON|G_WARN_ONCE)) -#define isWARN_on(c,x) (PerlWarnIsSet_((U8 *)(c + 1), 2*(x))) -#define isWARNf_on(c,x) (PerlWarnIsSet_((U8 *)(c + 1), 2*(x)+1)) +#define hasWARNBIT(c,x) (RCPV_LEN(c) > (2*(x)/8)) +#define isWARN_on(c,x) (hasWARNBIT(c,x) \ + ? PerlWarnIsSet_((U8 *)(c), 2*(x)) \ + : 0) +#define isWARNf_on(c,x) (hasWARNBIT(c,x) \ + ? PerlWarnIsSet_((U8 *)(c), 2*(x)+1) \ + : 0) #define DUP_WARNINGS(p) Perl_dup_warnings(aTHX_ p) #define free_and_set_cop_warnings(cmp,w) STMT_START { \ - if (!specialWARN((cmp)->cop_warnings)) PerlMemShared_free((cmp)->cop_warnings); \ + if (!specialWARN((cmp)->cop_warnings)) rcpv_free((cmp)->cop_warnings); \ (cmp)->cop_warnings = w; \ } STMT_END @@ -224,10 +254,10 @@ category parameters passed. #define packWARN3(a,b,c) ((a) | ((b)<<8) | ((c)<<16) ) #define packWARN4(a,b,c,d) ((a) | ((b)<<8) | ((c)<<16) | ((d) <<24)) -#define unpackWARN1(x) ((x) & 0xFF) -#define unpackWARN2(x) (((x) >>8) & 0xFF) -#define unpackWARN3(x) (((x) >>16) & 0xFF) -#define unpackWARN4(x) (((x) >>24) & 0xFF) +#define unpackWARN1(x) ((U8) (x) ) +#define unpackWARN2(x) ((U8) ((x) >> 8)) +#define unpackWARN3(x) ((U8) ((x) >> 16)) +#define unpackWARN4(x) ((U8) ((x) >> 24)) #define ckDEAD(x) \ (PL_curcop && \ @@ -291,37 +321,42 @@ category parameters passed. =for apidoc Amnh||WARN_VOID =for apidoc Amnh||WARN_IMPRECISION =for apidoc Amnh||WARN_ILLEGALPROTO +=for apidoc Amnh||WARN_DEPRECATED__GOTO_CONSTRUCT +=for apidoc Amnh||WARN_DEPRECATED__UNICODE_PROPERTY_NAME =for apidoc Amnh||WARN_NON_UNICODE =for apidoc Amnh||WARN_NONCHAR =for apidoc Amnh||WARN_SURROGATE =for apidoc Amnh||WARN_EXPERIMENTAL -=for apidoc Amnh||WARN_EXPERIMENTAL__LEXICAL_SUBS =for apidoc Amnh||WARN_EXPERIMENTAL__REGEX_SETS -=for apidoc Amnh||WARN_EXPERIMENTAL__SMARTMATCH -=for apidoc Amnh||WARN_EXPERIMENTAL__POSTDEREF -=for apidoc Amnh||WARN_EXPERIMENTAL__SIGNATURES =for apidoc Amnh||WARN_SYSCALLS -=for apidoc Amnh||WARN_EXPERIMENTAL__BITWISE =for apidoc Amnh||WARN_EXPERIMENTAL__CONST_ATTR =for apidoc Amnh||WARN_EXPERIMENTAL__RE_STRICT =for apidoc Amnh||WARN_EXPERIMENTAL__REFALIASING -=for apidoc Amnh||WARN_EXPERIMENTAL__WIN32_PERLIO =for apidoc Amnh||WARN_LOCALE =for apidoc Amnh||WARN_MISSING =for apidoc Amnh||WARN_REDUNDANT =for apidoc Amnh||WARN_EXPERIMENTAL__DECLARED_REFS -=for apidoc Amnh||WARN_EXPERIMENTAL__ALPHA_ASSERTIONS -=for apidoc Amnh||WARN_EXPERIMENTAL__SCRIPT_RUN +=for apidoc Amnh||WARN_DEPRECATED__DOT_IN_INC =for apidoc Amnh||WARN_SHADOW =for apidoc Amnh||WARN_EXPERIMENTAL__PRIVATE_USE =for apidoc Amnh||WARN_EXPERIMENTAL__UNIPROP_WILDCARDS =for apidoc Amnh||WARN_EXPERIMENTAL__VLB -=for apidoc Amnh||WARN_EXPERIMENTAL__ISA =for apidoc Amnh||WARN_EXPERIMENTAL__TRY +=for apidoc Amnh||WARN_EXPERIMENTAL__ARGS_ARRAY_WITH_SIGNATURES +=for apidoc Amnh||WARN_EXPERIMENTAL__BUILTIN +=for apidoc Amnh||WARN_EXPERIMENTAL__DEFER +=for apidoc Amnh||WARN_EXPERIMENTAL__EXTRA_PAIRED_DELIMITERS +=for apidoc Amnh||WARN_EXPERIMENTAL__FOR_LIST +=for apidoc Amnh||WARN_SCALAR +=for apidoc Amnh||WARN_DEPRECATED__VERSION_DOWNGRADE +=for apidoc Amnh||WARN_DEPRECATED__DELIMITER_WILL_BE_PAIRED +=for apidoc Amnh||WARN_EXPERIMENTAL__CLASS +=for apidoc Amnh||WARN_DEPRECATED__APOSTROPHE_AS_PACKAGE_SEPARATOR +=for apidoc Amnh||WARN_DEPRECATED__SMARTMATCH =cut */ /* end of file warnings.h */ -/* ex: set ro: */ +/* ex: set ro ft=c: */ |