| Commit | Line | Data |
|---|
| 79072805 |
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 |
| 79072805 |
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); |
| 463ee0b2 |
48 | fprintf(stderr, "(%s)", SvPV(sv, na)); |
| 8990e307 |
49 | SvREFCNT_dec(sv); |
| 79072805 |
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 | } |
projects / p5sagit/p5-mst-13.2.git / blame