From: Steve Hay <SteveHay@planit.com>
Date: Wed, 30 Aug 2006 15:57:13 +0000 (+0000)
Subject: Silence some more Borland compiler warnings
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=dd01f9565a8422cddb97f75e3262d9a6a80ae712;p=p5sagit%2Fp5-mst-13.2.git

Silence some more Borland compiler warnings
(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
---

diff --git a/win32/fcrypt.c b/win32/fcrypt.c
index 4c9f273..ff132d3 100644
--- a/win32/fcrypt.c
+++ b/win32/fcrypt.c
@@ -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
diff --git a/win32/win32.h b/win32/win32.h
index 893a66b..2a87528 100644
--- a/win32/win32.h
+++ b/win32/win32.h
@@ -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