X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=reentr.c;h=25fccf858b52704ae98c3665a8cbbf5ab3161d08;hb=1cd66f7c5bbf47a0c9c6f45b3eae3670bbe447db;hp=bae687679d991d6c8b51c8acd7b9dd1a8e15f48f;hpb=369ec4b2ef122823029d112a671816cf933b9b89;p=p5sagit%2Fp5-mst-13.2.git

diff --git a/reentr.c b/reentr.c
index bae6876..25fccf8 100644
--- a/reentr.c
+++ b/reentr.c
@@ -314,6 +314,11 @@ Perl_reentrant_retry(const char *f, ...)
     dTHX;
     void *retptr = NULL;
     va_list ap;
+#ifdef USE_REENTRANT_API
+    /* Easier to special case this here than in embed.pl. (Look at what it
+       generates for proto.h) */
+    PERL_ARGS_ASSERT_REENTRANT_RETRY;
+#endif
     va_start(ap, f);
     {
 #ifdef USE_REENTRANT_API