diff options
| author | Jarkko Hietaniemi <jhi@iki.fi> | 2006-01-06 18:18:53 +0200 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2006-01-06 15:50:34 +0000 |
| commit | 97aff369fa5580e7a888d4fa4c86be74ab000409 (patch) | |
| tree | a53a9ed943c43c19b811a8b1776d88cd85667485 /deb.c | |
| parent | 3edf23ff129b6c5edde184cb3b63953432223591 (diff) | |
| download | perl-97aff369fa5580e7a888d4fa4c86be74ab000409.tar.gz | |
sprinkle dVAR
Message-ID: <43BE7C4D.1010302@gmail.com>
p4raw-id: //depot/perl@26675
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 5 |
1 files changed, 5 insertions, 0 deletions
@@ -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; |