-void
-watch(addr)
-char **addr;
-{
- watchaddr = addr;
- watchok = *addr;
- fprintf(stderr, "WATCHING, %lx is currently %lx\n",
- (long)watchaddr, (long)watchok);
-}
-
-static void
-debprof(op)
-OP* op;
-{
- if (!profiledata)
- New(000, profiledata, MAXO, U32);
- ++profiledata[op->op_type];
-}
-
-void
-debprofdump()
-{
- U32 i;
- if (!profiledata)
- return;
- for (i = 0; i < MAXO; i++) {
- if (profiledata[i])
- fprintf(stderr, "%d\t%lu\n", i, profiledata[i]);
- }