1 files changed, 1 insertions, 1 deletions
diff --git a/regen/reentr.pl b/regen/reentr.pl
index 49d7efa167..899e83b847 100644
--- a/regen/reentr.pl
+++ b/regen/reentr.pl
@@ -835,10 +835,10 @@ Perl_reentrant_free(pTHX) {
 void*
 Perl_reentrant_retry(const char *f, ...)
 {
-    dTHX;
     void *retptr = NULL;
     va_list ap;
 #ifdef USE_REENTRANT_API
+    dTHX;
     /* Easier to special case this here than in embed.pl. (Look at what it
        generates for proto.h) */
     PERL_ARGS_ASSERT_REENTRANT_RETRY;