1 files changed, 8 insertions, 8 deletions
diff --git a/regcomp.h b/regcomp.h
index 1538f8ab58..5097d97169 100644
--- a/regcomp.h
+++ b/regcomp.h
@@ -187,17 +187,17 @@ struct regnode_2 {
 #endif /* lint */
 
 #define	FAIL(m) \
-    STMT_START {					\
-	if (!SIZE_ONLY)					\
-	    SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx);		\
-	croak    ("/%.127s/: %s",  PL_regprecomp,m);	\
+    STMT_START {							\
+	if (!SIZE_ONLY)							\
+	    SAVEDESTRUCTOR(S_clear_re,(void*)PL_regcomp_rx);		\
+	Perl_croak(aTHX_ "/%.127s/: %s",  PL_regprecomp,m);		\
     } STMT_END
 
 #define	FAIL2(pat,m) \
-    STMT_START {					\
-	if (!SIZE_ONLY)					\
-	    SAVEDESTRUCTOR(clear_re,(void*)PL_regcomp_rx);		\
-	re_croak2("/%.127s/: ",pat,PL_regprecomp,m);	\
+    STMT_START {							\
+	if (!SIZE_ONLY)							\
+	    SAVEDESTRUCTOR(S_clear_re,(void*)PL_regcomp_rx);		\
+	S_re_croak2(aTHX_ "/%.127s/: ",pat,PL_regprecomp,m);		\
     } STMT_END
 
 #define EXTRA_SIZE(guy) ((sizeof(guy)-1)/sizeof(struct regnode))