int f_stackdump(int arglist){
int arg1;
checkarg(LEN1_TEST, "hdmp", arglist);
arg1 = GET_NUMBER(car(arglist));
stackdump(arg1,arg1+10);
return(makeT());
}
void errprint(void) /* error message printer */
{
int savecd = numtabp[CD].val;
if (!nlflg)
numtabp[CD].val++;
fprintf(stderr, "%s: ", progname);
fputs(errbuf, stderr);
if (cfname[ifi][0])
fprintf(stderr, "; %s:%d", cfname[ifi], numtabp[CD].val);
fputs("\n", stderr);
if (cfname[ifi][0])
stackdump();
numtabp[CD].val = savecd;
}
void casepm(void)
{
int i, k;
int xx, cnt, tcnt, kk, tot;
Offset j;
kk = cnt = tcnt = 0;
tot = !skip();
stackdump();
for (i = 0; i < nm; i++) {
if ((xx = contabp[i].rq) == 0 || contabp[i].mx == 0)
continue;
tcnt++;
j = contabp[i].mx;
for (k = 1; (j = blist[bindex(j)].nextoff) != -1; )
k++;
cnt++;
kk += k;
if (!tot)
fprintf(stderr, "%-2.2s %d\n", unpair(xx), k);
}
fprintf(stderr, "pm: total %d, macros %d, space %d\n", tcnt, cnt, kk);
}