run.c revision 7c478bd95313f5f23a4c958a745db2134aa03244
/* run.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.
*
*/
#include "EXTERN.h"
#define PERL_IN_RUN_C
#include "perl.h"
/*
* "Away now, Shadowfax! Run, greatheart, run as you have never run before!
* Now we are come to the lands where you were foaled, and every stone you
* know. Run now! Hope is in speed!" --Gandalf
*/
int
{
}
return 0;
}
int
{
#ifdef DEBUGGING
if (!PL_op) {
if (ckWARN_d(WARN_DEBUGGING))
return 0;
}
do {
if (PL_debug) {
PTR2UV(*PL_watchaddr));
}
return 0;
#else
return runops_standard();
#endif /* DEBUGGING */
}
{
#ifdef DEBUGGING
switch (o->op_type) {
case OP_CONST:
break;
case OP_GVSV:
case OP_GV:
if (cGVOPo_gv) {
}
else
break;
case OP_PADSV:
case OP_PADAV:
case OP_PADHV:
/* print the lexical's name */
if (svp)
else
break;
default:
break;
}
#endif /* DEBUGGING */
return 0;
}
void
{
#ifdef DEBUGGING
PL_watchaddr = addr;
PL_watchok = *addr;
#endif /* DEBUGGING */
}
STATIC void
{
#ifdef DEBUGGING
if (!PL_profiledata)
++PL_profiledata[o->op_type];
#endif /* DEBUGGING */
}
void
{
#ifdef DEBUGGING
unsigned i;
if (!PL_profiledata)
return;
for (i = 0; i < MAXO; i++) {
if (PL_profiledata[i])
"%5lu %s\n", (unsigned long)PL_profiledata[i],
PL_op_name[i]);
}
#endif /* DEBUGGING */
}