ReREFCNT_inc() should return a pointer to REGEXP.
Nicholas Clark [Mon, 7 Jan 2008 13:53:57 +0000 (13:53 +0000)]
[I don't get warnings about void context here, but I'm sure someone
will :-(]

p4raw-id: //depot/perl@32890

regexp.h

index 7696ec2..b41c0a4 100644 (file)
--- a/regexp.h
+++ b/regexp.h
@@ -437,7 +437,7 @@ and check for NULL.
     ({                                                                 \
        /* This is here to generate a casting warning if incorrect.  */ \
        REGEXP *const zwapp = (re);                                     \
-       SvREFCNT_inc(zwapp);                                            \
+       (REGEXP *) SvREFCNT_inc(zwapp);                                 \
     })
 #  define ReREFCNT_dec(re)                                             \
     ({                                                                 \
@@ -447,7 +447,7 @@ and check for NULL.
     })
 #else
 #  define ReREFCNT_dec(re)     SvREFCNT_dec(re)
-#  define ReREFCNT_inc(re)     SvREFCNT_inc(re)
+#  define ReREFCNT_inc(re)     ((REGEXP *) SvREFCNT_inc(re))
 #endif
 
 /* FIXME for plugins. */