summaryrefslogtreecommitdiff
path: root/deb.c
diff options
context:
space:
mode:
authorJarkko Hietaniemi <jhi@iki.fi>2014-07-24 19:31:04 -0400
committerJarkko Hietaniemi <jhi@iki.fi>2014-07-24 21:54:14 -0400
commitc0de32e24cb35f30ec0d37406b19fcc377911df7 (patch)
treee4b81afaedc36a3b2750c7cbb728c4cf948909ff /deb.c
parent945b524a8cdacbf82557d751252e6546f48d21ae (diff)
downloadperl-c0de32e24cb35f30ec0d37406b19fcc377911df7.tar.gz
Unused dVARs found by g++ -DPERL_GLOBAL_STRUCT_PRIVATE.
Diffstat (limited to 'deb.c')
-rw-r--r--deb.c4
1 files changed, 0 insertions, 4 deletions
diff --git a/deb.c b/deb.c
index d1c3fe95bf..b93f12097d 100644
--- a/deb.c
+++ b/deb.c
@@ -59,7 +59,6 @@ void
Perl_vdeb(pTHX_ const char *pat, va_list *args)
{
#ifdef DEBUGGING
- dVAR;
const char* const file = PL_curcop ? OutCopFILE(PL_curcop) : "<null>";
const char* const display_file = file ? file : "<free>";
const long line = PL_curcop ? (long)CopLINE(PL_curcop) : 0;
@@ -83,7 +82,6 @@ I32
Perl_debstackptrs(pTHX)
{
#ifdef DEBUGGING
- dVAR;
PerlIO_printf(Perl_debug_log,
"%8"UVxf" %8"UVxf" %8"IVdf" %8"IVdf" %8"IVdf"\n",
PTR2UV(PL_curstack), PTR2UV(PL_stack_base),
@@ -115,7 +113,6 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max,
I32 mark_min, I32 mark_max)
{
#ifdef DEBUGGING
- dVAR;
I32 i = stack_max - 30;
const I32 *markscan = PL_markstack + mark_min;
@@ -205,7 +202,6 @@ void
Perl_deb_stack_all(pTHX)
{
#ifdef DEBUGGING
- dVAR;
I32 si_ix;
const PERL_SI *si;