From: Steve Hay Date: Wed, 22 Jun 2005 13:02:17 +0000 (+0000) Subject: Silence some more bcc32 compiler warnings X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3b9e3074fddbae8590b8fbc95a2eac9fa7fc29f0;p=p5sagit%2Fp5-mst-13.2.git Silence some more bcc32 compiler warnings ("Suggest parentheses to clarify precedence") p4raw-id: //depot/perl@24938 --- diff --git a/warnings.h b/warnings.h index 09aedb0..a5ca60f 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 9967175..94b9839 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)