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

1 files changed, 1 insertions, 1 deletions

diff --git a/util.c b/util.c
index c0d10919ee..6ed1fbb4aa 100644
--- 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);