3 * Copyright (c) 1991-1999, Larry Wall
5 * You may distribute under the terms of either the GNU General Public
6 * License or the Artistic License, as specified in the README file.
11 * "Didst thou think that the eyes of the White Tower were blind? Nay, I
12 * have seen more than thou knowest, Gray Fool." --Denethor
19 #if defined(PERL_IMPLICIT_CONTEXT)
21 Perl_deb_nocontext(const char *pat, ...)
29 #endif /* DEBUGGING */
34 Perl_deb(pTHX_ const char *pat, ...)
41 #endif /* DEBUGGING */
45 Perl_vdeb(pTHX_ const char *pat, va_list *args)
50 GV* gv = PL_curcop->cop_filegv;
53 PerlIO_printf(Perl_debug_log, "0x%"UVxf" (%s:%ld)\t",
55 SvTYPE(gv) == SVt_PVGV ? SvPVX(GvSV(gv)) : "<free>",
56 (long)PL_curcop->cop_line);
58 PerlIO_printf(Perl_debug_log, "(%s:%ld)\t",
59 SvTYPE(gv) == SVt_PVGV ? SvPVX(GvSV(gv)) : "<free>",
60 (long)PL_curcop->cop_line);
61 #endif /* USE_THREADS */
62 (void) PerlIO_vprintf(Perl_debug_log, pat, *args);
63 #endif /* DEBUGGING */
67 Perl_debstackptrs(pTHX)
71 PerlIO_printf(Perl_debug_log,
72 "%8"UVxf" %8"UVxf" %8"IVdf" %8"IVdf" %8"IVdf"\n",
73 PTR2UV(PL_curstack), PTR2UV(PL_stack_base),
74 (IV)*PL_markstack_ptr, (IV)(PL_stack_sp-PL_stack_base),
75 (IV)(PL_stack_max-PL_stack_base));
76 PerlIO_printf(Perl_debug_log,
77 "%8"UVxf" %8"UVxf" %8"UVuf" %8"UVuf" %8"UVuf"\n",
78 PTR2UV(PL_mainstack), PTR2UV(AvARRAY(PL_curstack)),
79 PTR2UV(PL_mainstack), PTR2UV(AvFILLp(PL_curstack)),
80 PTR2UV(AvMAX(PL_curstack)));
81 #endif /* DEBUGGING */
90 I32 top = PL_stack_sp - PL_stack_base;
91 register I32 i = top - 30;
92 I32 *markscan = PL_curstackinfo->si_markbase;
97 while (++markscan <= PL_markstack_ptr)
102 PerlIO_printf(Perl_debug_log,
103 i ? "0x%"UVxf" => ... " : "0x%lx => ",
106 PerlIO_printf(Perl_debug_log, i ? " => ... " : " => ");
107 #endif /* USE_THREADS */
108 if (PL_stack_base[0] != &PL_sv_undef || PL_stack_sp < PL_stack_base)
109 PerlIO_printf(Perl_debug_log, " [STACK UNDERFLOW!!!]\n");
112 if (markscan <= PL_markstack_ptr && *markscan < i) {
115 PerlIO_putc(Perl_debug_log, '*');
117 while (markscan <= PL_markstack_ptr && *markscan < i);
118 PerlIO_printf(Perl_debug_log, " ");
122 PerlIO_printf(Perl_debug_log, "%-4s ", SvPEEK(PL_stack_base[i]));
125 PerlIO_printf(Perl_debug_log, "\n");
126 #endif /* DEBUGGING */