dTHX implies dVAR, using both fails to build under -DPERL_GLOBAL_STRUCT

diff --git a/util.c b/util.c
index c0d1091..6ed1fbb 100644 (file)
--- a/util.c
+++ b/util.c
@@ -1626,7 +1626,7 @@ void
 Perl_croak_no_mem()
 {
     dTHX;
-    dVAR;
+
     /* Can't use PerlIO to write as it allocates memory */
     PerlLIO_write(PerlIO_fileno(Perl_error_log),
                  PL_no_mem, sizeof(PL_no_mem)-1);