diff options
| author | Karl Williamson <public@khwilliamson.com> | 2013-12-31 21:57:53 -0700 |
|---|---|---|
| committer | Karl Williamson <public@khwilliamson.com> | 2014-01-01 13:49:24 -0700 |
| commit | 7c08c4c54fcfe6d3c4509e5c583cbb38723f9237 (patch) | |
| tree | 5d9c2fc6523cf257273e7f17bb5e5f932e2bfdd6 /regen | |
| parent | 13d7a909b7642a181b072c1236932573b500a779 (diff) | |
| download | perl-7c08c4c54fcfe6d3c4509e5c583cbb38723f9237.tar.gz | |
regen/warnings.pl: Add comments
These note that warnings categories should be independent in the calls
to ckWARN() and packWARN() type macros.
Diffstat (limited to 'regen')
| -rw-r--r-- | regen/warnings.pl | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/regen/warnings.pl b/regen/warnings.pl index acca0d04f4..e8dcf4ab06 100644 --- a/regen/warnings.pl +++ b/regen/warnings.pl @@ -354,6 +354,10 @@ print $warn <<'EOM'; char)) #define ckWARN(w) Perl_ckwarn(aTHX_ packWARN(w)) + +/* The w1, w2 ... should be independent warnings categories; one shouldn't be + * a subcategory of any other */ + #define ckWARN2(w1,w2) Perl_ckwarn(aTHX_ packWARN2(w1,w2)) #define ckWARN3(w1,w2,w3) Perl_ckwarn(aTHX_ packWARN3(w1,w2,w3)) #define ckWARN4(w1,w2,w3,w4) Perl_ckwarn(aTHX_ packWARN4(w1,w2,w3,w4)) @@ -366,6 +370,10 @@ print $warn <<'EOM'; #define WARNshift 8 #define packWARN(a) (a ) + +/* The a, b, ... should be independent warnings categories; one shouldn't be + * a subcategory of any other */ + #define packWARN2(a,b) ((a) | ((b)<<8) ) #define packWARN3(a,b,c) ((a) | ((b)<<8) | ((c)<<16) ) #define packWARN4(a,b,c,d) ((a) | ((b)<<8) | ((c)<<16) | ((d) <<24)) |