run.c

   1 #include "EXTERN.h"
   2 #include "perl.h"
   3
   4 char **watchaddr = 0;
   5 char *watchok;
   6
   7 #ifndef DEBUGGING
   8
   9 run() {
  10     while ( op = (*op->op_ppaddr)() ) ;
  11 }
  12
  13 #else
  14
  15 run() {
  16     if (!op) {
  17         warn("NULL OP IN RUN");
  18         return;
  19     }
  20     do {
  21         if (debug) {
  22             if (watchaddr != 0 && *watchaddr != watchok)
  23                 fprintf(stderr, "WARNING: %lx changed from %lx to %lx\n",
  24                     watchaddr, watchok, *watchaddr);
  25             DEBUG_s(debstack());
  26             DEBUG_t(debop(op));
  27         }
  28     } while ( op = (*op->op_ppaddr)() );
  29 }
  30
  31 #endif
  32
  33 I32
  34 debop(op)
  35 OP *op;
  36 {
  37     SV *sv;
  38     deb("%s", op_name[op->op_type]);
  39     switch (op->op_type) {
  40     case OP_CONST:
  41         fprintf(stderr, "(%s)", SvPEEK(cSVOP->op_sv));
  42         break;
  43     case OP_GVSV:
  44     case OP_GV:
  45         if (cGVOP->op_gv) {
  46             sv = NEWSV(0,0);
  47             gv_fullname(sv, cGVOP->op_gv);
  48             fprintf(stderr, "(%s)", SvPV(sv, na));
  49             SvREFCNT_dec(sv);
  50         }
  51         else
  52             fprintf(stderr, "(NULL)");
  53         break;
  54     }
  55     fprintf(stderr, "\n");
  56     return 0;
  57 }
  58
  59 void
  60 watch(addr)
  61 char **addr;
  62 {
  63     watchaddr = addr;
  64     watchok = *addr;
  65     fprintf(stderr, "WATCHING, %lx is currently %lx\n",
  66         watchaddr, watchok);
  67 }