dTHX implies dVAR, using both fails to build under -DPERL_GLOBAL_STRUCT
authorTony Cook <tony@develop-help.com>
Tue, 13 Nov 2012 23:44:25 +0000 (10:44 +1100)
committerTony Cook <tony@develop-help.com>
Tue, 13 Nov 2012 23:44:25 +0000 (10:44 +1100)
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);