diff options
| author | Andy Lester <andy@petdance.com> | 2005-03-21 18:35:55 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-03-24 16:25:58 +0000 |
| commit | e1ec3a884f8d8c64eb7e391b2a363f47cbeed570 (patch) | |
| tree | 13e83e61449ed542f309f1cd88e7ed42778ca543 /deb.c | |
| parent | 2bbb3949e88673e7f0574ab70254a46d776242e9 (diff) | |
| download | perl-e1ec3a884f8d8c64eb7e391b2a363f47cbeed570.tar.gz | |
Third consting batch
Message-Id: <2f14220e7101a03f7659dbe79a03b115@petdance.com>
p4raw-id: //depot/perl@24074
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 11 |
1 files changed, 3 insertions, 8 deletions
@@ -173,7 +173,6 @@ Perl_deb_stack_all(pTHX) #ifdef DEBUGGING I32 ix, si_ix; PERL_SI *si; - PERL_CONTEXT *cx; /* rewind to start of chain */ si = PL_curstackinfo; @@ -183,18 +182,14 @@ Perl_deb_stack_all(pTHX) si_ix=0; for (;;) { - char *si_name; - int si_name_ix = si->si_type+1; /* -1 is a valid index */ - if (si_name_ix>= sizeof(si_names)) - si_name = "????"; - else - si_name = si_names[si_name_ix]; + const int si_name_ix = si->si_type+1; /* -1 is a valid index */ + const char *si_name = (si_name_ix>= sizeof(si_names)) ? "????" : si_names[si_name_ix]; PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n", (IV)si_ix, si_name); for (ix=0; ix<=si->si_cxix; ix++) { - cx = &(si->si_cxstack[ix]); + const PERL_CONTEXT *cx = &(si->si_cxstack[ix]); PerlIO_printf(Perl_debug_log, " CX %"IVdf": %-6s => ", (IV)ix, PL_block_type[CxTYPE(cx)] |