#ifdef DEBUGGING
dTHX;
va_list args;
+ PERL_ARGS_ASSERT_DEB_NOCONTEXT;
va_start(args, pat);
vdeb(pat, &args);
va_end(args);
Perl_deb(pTHX_ const char *pat, ...)
{
va_list args;
+ PERL_ARGS_ASSERT_DEB;
va_start(args, pat);
#ifdef DEBUGGING
vdeb(pat, &args);
const char* const display_file = file ? file : "<free>";
const long line = PL_curcop ? (long)CopLINE(PL_curcop) : 0;
+ PERL_ARGS_ASSERT_VDEB;
+
if (DEBUG_v_TEST)
PerlIO_printf(Perl_debug_log, "(%ld:%s:%ld)\t",
(long)PerlProc_getpid(), display_file, line);
dVAR;
register I32 i = stack_max - 30;
const I32 *markscan = PL_markstack + mark_min;
+
+ PERL_ARGS_ASSERT_DEB_STACK_N;
+
if (i < stack_min)
i = stack_min;