From: Gurusamy Sarathy <gsar@cpan.org>
Date: Sun, 7 Feb 1999 12:39:09 +0000 (+0000)
Subject: Ilya's idea for cleaning up failed regex allocs (substantive parts
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=34184a49c8a0771dbea73b3f0519126fd5b22c2f;p=p5sagit%2Fp5-mst-13.2.git

Ilya's idea for cleaning up failed regex allocs (substantive parts
disabled, fails tests)

p4raw-id: //depot/perl@2822
---

diff --git a/regcomp.h b/regcomp.h
index fef317a..1a139c5 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -186,8 +186,19 @@ struct regnode_2 {
 #define UCHARAT(p)	PL_regdummy
 #endif /* lint */
 
-#define	FAIL(m)		croak    ("/%.127s/: %s",  PL_regprecomp,m)
-#define	FAIL2(pat,m)	re_croak2("/%.127s/: ",pat,PL_regprecomp,m)
+#define	FAIL(m) \
+    STMT_START {					\
+	/*if (!SIZE_ONLY)				\
+	    ReREFCNT_dec(PL_regcomp_rx);*/		\
+	croak    ("/%.127s/: %s",  PL_regprecomp,m);	\
+    } STMT_END
+
+#define	FAIL2(pat,m) \
+    STMT_START {					\
+	/*if (!SIZE_ONLY)				\
+	    ReREFCNT_dec(PL_regcomp_rx);*/		\
+	re_croak2("/%.127s/: ",pat,PL_regprecomp,m);	\
+    } STMT_END
 
 #define EXTRA_SIZE(guy) ((sizeof(guy)-1)/sizeof(struct regnode))