From 20b7effb9761caf5aee8475b6a6d731b40c80cd7 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Mon, 23 Jun 2014 07:01:34 -0400
Subject: Remove or downgrade unnecessary dVAR.

You need to configure with g++ *and* -Accflags=-DPERL_GLOBAL_STRUCT
or -Accflags=-DPERL_GLOBAL_STRUCT_PRIVATE to see any difference.
(g++ does not do the "post-annotation" form of "unused".)

The version code has some of these issues, reported upstream.
---
 caretx.c | 1 -
 1 file changed, 1 deletion(-)

(limited to 'caretx.c')

diff --git a/caretx.c b/caretx.c
index 047b9db8b7..bf5ba85503 100644
--- a/caretx.c
+++ b/caretx.c
@@ -52,7 +52,6 @@
 
 void
 Perl_set_caret_X(pTHX) {
-    dVAR;
     GV* tmpgv = gv_fetchpvs("\030", GV_ADD|GV_NOTQUAL, SVt_PV); /* $^X */
     if (tmpgv) {
         SV *const caret_x = GvSV(tmpgv);
-- 
cgit v1.2.1