This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Workaround another problem following change 26395
authorSteve Hay <SteveHay@planit.com>
Thu, 5 Jan 2006 17:24:44 +0000 (17:24 +0000)
committerSteve Hay <SteveHay@planit.com>
Thu, 5 Jan 2006 17:24:44 +0000 (17:24 +0000)
MinGW doesn't like 26395 either! (ref: change 26634)

p4raw-id: //depot/perl@26664

gv.h

diff --git a/gv.h b/gv.h
index aab0b31..4b410e8 100644 (file)
--- a/gv.h
+++ b/gv.h
@@ -26,9 +26,11 @@ struct gp {
 
 /* MSVC++ 6.0 (_MSC_VER == 1200) can't compile pp_hot.c with DEBUGGING enabled
  * if we include the following assert(). Must be a compiler bug because it
- * works fine with MSVC++ 7.0.  Borland (5.5.1) has the same problem. */
+ * works fine with MSVC++ 7.0. Borland (5.5.1) has the same problem. And MinGW
+ * (gcc-3.4.2) has a different problem when compiling win32/perllib.c! */
 #if defined(DEBUGGING) && \
-    ((!defined(_MSC_VER) || _MSC_VER > 1200) && !defined(__BORLANDC__))
+    ((!defined(_MSC_VER) || _MSC_VER > 1200) && \
+      !defined(__BORLANDC__) && !defined(__MINGW32__))
 #  define GvGP(gv)     (*(assert(SvTYPE(gv) == SVt_PVGV || \
                                  SvTYPE(gv) == SVt_PVLV), \
                           &(GvXPVGV(gv)->xgv_gp)))