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

2 files changed, 13 insertions, 8 deletions

diff --git a/win32/fcrypt.c b/win32/fcrypt.c
index 4c9f2733f6..ff132d338d 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 893a66b540..2a87528f1d 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