deb.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/* deb.c
*
* Copyright (c) 1991-2001, Larry Wall
*
* You may distribute under the terms of either the GNU General Public
* License or the Artistic License, as specified in the README file.
*
*/
/*
* "Didst thou think that the eyes of the White Tower were blind? Nay, I
* have seen more than thou knowest, Gray Fool." --Denethor
*/
#include "EXTERN.h"
#define PERL_IN_DEB_C
#include "perl.h"
#if defined(PERL_IMPLICIT_CONTEXT)
void
Perl_deb_nocontext(const char *pat, ...)
{
#ifdef DEBUGGING
dTHX;
#endif /* DEBUGGING */
}
#endif
void
{
#ifdef DEBUGGING
#endif /* DEBUGGING */
}
void
{
#ifdef DEBUGGING
#ifdef USE_THREADS
#else
#endif /* USE_THREADS */
#endif /* DEBUGGING */
}
{
#ifdef DEBUGGING
#endif /* DEBUGGING */
return 0;
}
{
#ifdef DEBUGGING
if (i < 0)
i = 0;
while (++markscan <= PL_markstack_ptr)
if (*markscan >= i)
break;
#ifdef USE_THREADS
#else
#endif /* USE_THREADS */
do {
++i;
do {
++markscan;
}
}
if (i > top)
break;
}
while (1);
#endif /* DEBUGGING */
return 0;
}