Silence some more Borland compiler warnings
Steve Hay [Wed, 30 Aug 2006 15:57:13 +0000 (15:57 +0000)]
(See: http://www.nntp.perl.org/group/perl.daily-build.reports/40471)

- Change the cryptic pragma warn strings into numbers that are more
  easily recognized, and add a new one (8027).

- Add a similar pragma warn line to fcrypt.c, which doesn't use
  win32.h.

p4raw-id: //depot/perl@28769

win32/fcrypt.c
win32/win32.h

index 4c9f273..ff132d3 100644 (file)
@@ -9,6 +9,10 @@
  * eay@psych.psy.uq.oz.au
  */
 
+#if defined(__BORLANDC__)
+#pragma warn -8004     /* "'foo' is assigned a value that is never used" */
+#endif
+
 typedef unsigned char des_cblock[8];
 
 typedef struct des_ks_struct
index 893a66b..2a87528 100644 (file)
@@ -182,14 +182,15 @@ struct utsname {
 #define DllMain DllEntryPoint
 #endif
 
-#pragma warn -ccc      /* "condition is always true/false" */
-#pragma warn -rch      /* "unreachable code" */
-#pragma warn -sig      /* "conversion may lose significant digits" */
-#pragma warn -pia      /* "possibly incorrect assignment" */
-#pragma warn -par      /* "parameter 'foo' is never used" */
-#pragma warn -aus      /* "'foo' is assigned a value that is never used" */
-#pragma warn -use      /* "'foo' is declared but never used" */
-#pragma warn -csu      /* "comparing signed and unsigned values" */
+#pragma warn -8004     /* "'foo' is assigned a value that is never used" */
+#pragma warn -8008     /* "condition is always true/false" */
+#pragma warn -8012     /* "comparing signed and unsigned values" */
+#pragma warn -8027     /* "functions containing %s are not expanded inline" */
+#pragma warn -8057     /* "parameter 'foo' is never used" */
+#pragma warn -8060     /* "possibly incorrect assignment" */
+#pragma warn -8066     /* "unreachable code" */
+#pragma warn -8071     /* "conversion may lose significant digits" */
+#pragma warn -8080     /* "'foo' is declared but never used" */
 
 /* Borland C thinks that a pointer to a member variable is 12 bytes in size. */
 #define PERL_MEMBER_PTR_SIZE   12