[I don't get warnings about void context here, but I'm sure someone
will :-(]
p4raw-id: //depot/perl@32890
({ \
/* 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) \
({ \
})
#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. */