perl 5.0 alpha 3
[perl.git] / debstack
1     if (debug & 4) {
2 /*      fprintf(stderr, "%8lx %8lx %8ld %8ld %8ld\n",
3             stack, stack_base, *markstack_ptr, stack_sp-stack_base, stack_max-stack_base);
4         fprintf(stderr, "%8lx %8lx %8ld %l8d %8ld\n",
5             curstack, stack->av_array, curstack, stack->av_fill, stack->av_max);
6 */
7         fprintf(stderr, "STACK");
8         for (i = 0; i <= 30; i++) {
9             if (stack->av_array[i] || stack->av_array[i+1] || stack->av_array[i+2])
10                 fprintf(stderr, "\t%s%s", SvPEEK(stack->av_array[i]),
11                     stack_sp == &stack->av_array[i] ? " *" : "");
12         }
13         fprintf(stderr, "\n");
14     }