Silence some more bcc32 compiler warnings

[perl5.git] / warnings.h

diff --git a/warnings.h b/warnings.h
index 09aedb0..a5ca60f 100644 (file)
--- 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)