dump()
{
FRAME *frp;
ADDRESS prevpc;
LINENO line;
SYM *f;
if (pc == 0) {
error("program is not active");
}
prevpc = pc;
for (frp = curframe(); frp != NIL; frp = nextframe(frp)) {
f = whatblock(entry(frp));
line = srcline(prevpc);
printf("%s", name(f));
printparams(f, frp);
printf(", ");
printwhere(line, srcfilename(prevpc));
printf("\n");
dumpvars(f, frp);
putchar('\n');
prevpc = frp->save_pc;
}
line = srcline(prevpc);
printf("%s, ", name(program));
printwhere(line, srcfilename(prevpc));
printf("\n");
dumpvars(program, NIL);
}
printerror()
{
register PROCESS *p;
char *filename;
int c;
p = process;
if (p->signo != ESIGNAL && p->signo != SIGINT) {
error("signal %d at px pc %d, lc %d", p->signo, p->pc, pc);
}
curline = srcline(pc);
curfunc = whatblock(pc);
skimsource(srcfilename(pc));
if (p->signo == ESIGNAL) {
printf("\nerror at ");
printwhere(curline, cursource);
if (errnum != 0) {
printf(": %s", pxerrmsg[errnum]);
}
} else {
printf("\n\ninterrupt at ");
printwhere(curline, cursource);
}
putchar('\n');
printlines(curline, curline);
erecover();
}
printnews()
{
if (ss_variables) {
prvarnews();
}
if (trcond()) {
if (ss_lines && curline > 0) {
skimsource(srcfilename(pc));
printf("trace: ");
printlines(curline, curline);
}
if (ss_instructions) {
printf("inst trace: ");
printinst(pc, pc);
}
}
bpact();
if (stopcond()) {
isstopped = TRUE;
curline = srcline(pc);
printstatus();
}
}
