diff options
| -rw-r--r-- | warnings.h | 8 | ||||
| -rw-r--r-- | warnings.pl | 10 |
2 files changed, 9 insertions, 9 deletions
diff --git a/warnings.h b/warnings.h index 09aedb0613..a5ca60f6f1 100644 --- a/warnings.h +++ b/warnings.h @@ -144,10 +144,10 @@ isWARN_on(PL_curcop->cop_warnings, z) || \ isWARN_on(PL_curcop->cop_warnings, t) ) ) ) -#define packWARN(a) (a ) -#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) +#define packWARN(a) (a ) +#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)) #define unpackWARN1(x) ((x) & 0xFF) #define unpackWARN2(x) (((x) >>8) & 0xFF) diff --git a/warnings.pl b/warnings.pl index 9967175635..94b983904d 100644 --- a/warnings.pl +++ b/warnings.pl @@ -1,6 +1,6 @@ #!/usr/bin/perl -$VERSION = '1.02'; +$VERSION = '1.02_01'; BEGIN { push @INC, './lib'; @@ -384,10 +384,10 @@ print WARN <<'EOM'; isWARN_on(PL_curcop->cop_warnings, z) || \ isWARN_on(PL_curcop->cop_warnings, t) ) ) ) -#define packWARN(a) (a ) -#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) +#define packWARN(a) (a ) +#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)) #define unpackWARN1(x) ((x) & 0xFF) #define unpackWARN2(x) (((x) >>8) & 0xFF) |