-runops() {
- dTHR;
- SAVEI32(runlevel);
- runlevel++;
-
- while ( op = (*op->op_ppaddr)(ARGS) ) ;
- return 0;
-}
-
-#else
-
-static void debprof _((OP*o));
-
-int
-runops() {
- dTHR;
- if (!op) {
- warn("NULL OP IN RUN");
- return 0;
- }
-
- SAVEI32(runlevel);
- runlevel++;
-
- do {
- if (debug) {
- if (watchaddr != 0 && *watchaddr != watchok)
- fprintf(stderr, "WARNING: %lx changed from %lx to %lx\n",
- (long)watchaddr, (long)watchok, (long)*watchaddr);
- DEBUG_s(debstack());
- DEBUG_t(debop(op));
- DEBUG_P(debprof(op));
-#ifdef USE_THREADS
- DEBUG_L(YIELD()); /* shake up scheduling a bit */
-#endif /* USE_THREADS */
- }
- } while ( op = (*op->op_ppaddr)(ARGS) );
- return 0;
-}
-
-I32
-debop(o)
-OP *o;