diff options
| author | Andy Lester <andy@petdance.com> | 2005-11-04 09:12:56 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-11-07 10:24:54 +0000 |
| commit | 7452cf6af2e38d62832bbd8762076e54fa12a70f (patch) | |
| tree | 0524ba69bff9e7ad05914f72650259df8302cee6 /deb.c | |
| parent | 21401c75f1c38e127fa870b81fca15879c466865 (diff) | |
| download | perl-7452cf6af2e38d62832bbd8762076e54fa12a70f.tar.gz | |
Consting and localizing: Part LXVIII
Message-ID: <20051104211256.GA12651@petdance.com>
p4raw-id: //depot/perl@26028
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 13 |
1 files changed, 6 insertions, 7 deletions
@@ -172,7 +172,7 @@ Perl_deb_stack_all(pTHX) { #ifdef DEBUGGING I32 ix, si_ix; - PERL_SI *si; + const PERL_SI *si; /* rewind to start of chain */ si = PL_curstackinfo; @@ -183,13 +183,13 @@ Perl_deb_stack_all(pTHX) for (;;) { 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]; + const char * const 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++) { - const PERL_CONTEXT *cx = &(si->si_cxstack[ix]); + const PERL_CONTEXT * const cx = &(si->si_cxstack[ix]); PerlIO_printf(Perl_debug_log, " CX %"IVdf": %-6s => ", (IV)ix, PL_block_type[CxTYPE(cx)] @@ -206,9 +206,8 @@ Perl_deb_stack_all(pTHX) */ I32 i, stack_min, stack_max, mark_min, mark_max; - PERL_CONTEXT *cx_n; - PERL_SI *si_n; - OP *retop; + const PERL_CONTEXT *cx_n; + const PERL_SI *si_n; cx_n = Null(PERL_CONTEXT*); @@ -270,7 +269,7 @@ Perl_deb_stack_all(pTHX) if (CxTYPE(cx) == CXt_EVAL || CxTYPE(cx) == CXt_SUB || CxTYPE(cx) == CXt_FORMAT) { - retop = (CxTYPE(cx) == CXt_EVAL) + const OP * const retop = (CxTYPE(cx) == CXt_EVAL) ? cx->blk_eval.retop : cx->blk_sub.retop; PerlIO_printf(Perl_debug_log, " retop=%s\n", |