diff options
| author | Steve Hay <SteveHay@planit.com> | 2005-06-22 13:02:17 +0000 |
|---|---|---|
| committer | Steve Hay <SteveHay@planit.com> | 2005-06-22 13:02:17 +0000 |
| commit | 3b9e3074fddbae8590b8fbc95a2eac9fa7fc29f0 (patch) | |
| tree | 7f111a4e670924d37cca13c7f54e04b5d1803993 /warnings.pl | |
| parent | 1c127fab650cf6427045f36d9e941565f5163fda (diff) | |
| download | perl-3b9e3074fddbae8590b8fbc95a2eac9fa7fc29f0.tar.gz | |
Silence some more bcc32 compiler warnings
("Suggest parentheses to clarify precedence")
p4raw-id: //depot/perl@24938
Diffstat (limited to 'warnings.pl')
| -rw-r--r-- | warnings.pl | 10 |
1 files changed, 5 insertions, 5 deletions
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) |