summaryrefslogtreecommitdiff
path: root/deb.c
diff options
context:
space:
mode:
Diffstat (limited to 'deb.c')
-rw-r--r--deb.c13
1 files changed, 6 insertions, 7 deletions
diff --git a/deb.c b/deb.c
index 878b7cb9c5..a3b67b4168 100644
--- a/deb.c
+++ b/deb.c
@@ -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",