home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / a_utils / perl / perl5a1.lha / perl5alpha1 / debstack < prev    next >
Encoding:
Text File  |  1992-09-12  |  552 b   |  15 lines
  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.     }
  15.