diff options
Diffstat (limited to 'debstack')
| -rw-r--r-- | debstack | 14 |
1 files changed, 14 insertions, 0 deletions
diff --git a/debstack b/debstack new file mode 100644 index 0000000000..f0af5eaa9f --- /dev/null +++ b/debstack @@ -0,0 +1,14 @@ + if (debug & 4) { +/* fprintf(stderr, "%8lx %8lx %8ld %8ld %8ld\n", + stack, stack_base, *markstack_ptr, stack_sp-stack_base, stack_max-stack_base); + fprintf(stderr, "%8lx %8lx %8ld %l8d %8ld\n", + curstack, stack->av_array, curstack, stack->av_fill, stack->av_max); +*/ + fprintf(stderr, "STACK"); + for (i = 0; i <= 30; i++) { + if (stack->av_array[i] || stack->av_array[i+1] || stack->av_array[i+2]) + fprintf(stderr, "\t%s%s", SvPEEK(stack->av_array[i]), + stack_sp == &stack->av_array[i] ? " *" : ""); + } + fprintf(stderr, "\n"); + } |