diff options
| author | Andy Lester <andy@petdance.com> | 2005-12-05 07:46:13 -0600 |
|---|---|---|
| committer | Rafael Garcia-Suarez <rgarciasuarez@gmail.com> | 2005-12-06 17:23:09 +0000 |
| commit | 0bd48802b00657d8da2da444a1c97fb25cb7d562 (patch) | |
| tree | 0843dbed7bc7b59e6c3926ed70780c7e9ae79a34 /deb.c | |
| parent | 05f9f7bb7728f3c6ba669b2c4adc66fe958a9b51 (diff) | |
| download | perl-0bd48802b00657d8da2da444a1c97fb25cb7d562.tar.gz | |
More consting, and putting stuff in embed.fnc
Message-ID: <20051205194613.GB7791@petdance.com>
p4raw-id: //depot/perl@26281
Diffstat (limited to 'deb.c')
| -rw-r--r-- | deb.c | 5 |
1 files changed, 3 insertions, 2 deletions
@@ -160,7 +160,7 @@ Perl_debstack(pTHX) #ifdef DEBUGGING -static const char * si_names[] = { +static const char * const si_names[] = { "UNKNOWN", "UNDEF", "MAIN", @@ -182,7 +182,7 @@ void Perl_deb_stack_all(pTHX) { #ifdef DEBUGGING - I32 ix, si_ix; + I32 si_ix; const PERL_SI *si; /* rewind to start of chain */ @@ -195,6 +195,7 @@ Perl_deb_stack_all(pTHX) { const int si_name_ix = si->si_type+1; /* -1 is a valid index */ const char * const si_name = (si_name_ix>= sizeof(si_names)) ? "????" : si_names[si_name_ix]; + I32 ix; PerlIO_printf(Perl_debug_log, "STACK %"IVdf": %s\n", (IV)si_ix, si_name); |