7 fmtprinst(Fmt *f, Reinst *inst)
11 r = fmtprint(f, "%p ", inst);
14 r += fmtprint(f, "ORUNE\t%C\n", inst->r);
17 r += fmtprint(f, "ONOTNL\n");
20 r += fmtprint(f, "OCLASS\t%C-%C %p\n", inst->r, inst->r1, inst->a);
23 r += fmtprint(f, "OSPLIT\t%p %p\n", inst->a, inst->b);
26 r += fmtprint(f, "OJMP \t%p\n", inst->a);
29 r += fmtprint(f, "OSAVE\t%d\n", inst->sub);
32 r += fmtprint(f, "OUNSAVE\t%d\n", inst->sub);
35 r += fmtprint(f, "OANY \t.\n");
38 r += fmtprint(f, "OEOL \t$\n");
41 r += fmtprint(f, "OBOL \t^\n");
48 fmtprprog(Fmt *f, Reprog *reprog)
54 for(inst = reprog->startinst; inst < reprog->startinst + reprog->len; inst++)
55 r += fmtprinst(f, inst);
64 r = va_arg(f->args, Reprog*);
65 return fmtprprog(f, r);