From 97aff369fa5580e7a888d4fa4c86be74ab000409 Mon Sep 17 00:00:00 2001
From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Fri, 6 Jan 2006 18:18:53 +0200
Subject: sprinkle dVAR Message-ID: <43BE7C4D.1010302@gmail.com>

p4raw-id: //depot/perl@26675
---
 deb.c | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'deb.c')

diff --git a/deb.c b/deb.c
index 933ae6cdab..681d8a2492 100644
--- a/deb.c
+++ b/deb.c
@@ -53,6 +53,7 @@ void
 Perl_vdeb(pTHX_ const char *pat, va_list *args)
 {
 #ifdef DEBUGGING
+    dVAR;
     char* file = OutCopFILE(PL_curcop);
 
     PerlIO_printf(Perl_debug_log, "(%s:%ld)\t", (file ? file : "<free>"),
@@ -68,6 +69,7 @@ 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),
@@ -97,6 +99,7 @@ S_deb_stack_n(pTHX_ SV** stack_base, I32 stack_min, I32 stack_max,
 	I32 mark_min, I32 mark_max)
 {
 #ifdef DEBUGGING
+    dVAR;
     register I32 i = stack_max - 30;
     const I32 *markscan = PL_markstack + mark_min;
     if (i < stack_min)
@@ -143,6 +146,7 @@ I32
 Perl_debstack(pTHX)
 {
 #ifndef SKIP_DEBUGGING
+    dVAR;
     if (CopSTASH_eq(PL_curcop, PL_debstash) && !DEBUG_J_TEST_)
 	return 0;
 
@@ -182,6 +186,7 @@ void
 Perl_deb_stack_all(pTHX)
 {
 #ifdef DEBUGGING
+    dVAR;
     I32 si_ix;
     const PERL_SI *si;
 
-- 
cgit v1.2.1