# New Ticket Created by Bruce Gray
# Please include the string: [perl #19467]
# in the subject line of all future correspondence about this issue.
# <URL: http://rt.perl.org/rt2/Ticket/Display.html?id=19467 >
The gcc compiler in MinGW (win32) emits warnings for invalid pragmas in win32.h
(platform.h).
This patch uses '#ifndef __GNUC__' to hide the pragmas from gcc.
--
Hope this helps,
Bruce Gray
-- attachment 1 ------------------------------------------------------
url: http://rt.perl.org/rt2/attach/46297/36286/58aacf/win32_h_MinGW.patch
Index: config/gen/platform/win32.h
===================================================================
RCS file: /cvs/public/parrot/config/gen/platform/win32.h,v
retrieving revision 1.6
diff -u -r1.6 win32.h
--- config/gen/platform/win32.h 23 Jul 2002 07:25:36 -0000 1.6
+++ config/gen/platform/win32.h 27 Dec 2002 00:43:51 -0000
@@ -13,6 +13,7 @@
# define S_ISREG(m) ((m & S_IFMT) == S_IFREG)
#endif
+#ifndef __GNUC__
/* These disable certain Level 4 Warnings */
#pragma warning( disable: 4100 ) /* disables 'unreferenced formal parameter'
* warnings */
@@ -21,6 +22,8 @@
* include files */
#pragma warning( disable: 4505 ) /* disables 'unreferenced local function has
* been removed' warnings in header files */
+#endif
+
/*
** Miscellaneous:
*/
