6 char *p=(char *)Malloc(n);
7 if(p==0) panic("Can't malloc %d bytes", n);
8 /* if(err){ pfmt(err, "malloc %d->%p\n", n, p); flush(err); } *//**/
13 /* pfmt(err, "free %p\n", p); flush(err); *//**/
15 else pfmt(err, "free 0\n");
17 extern int lastword, lastdol;
21 if(runq->cmdfile && !runq->iflag)
22 pfmt(err, "%s:%d: ", runq->cmdfile, runq->lineno);
23 else if(runq->cmdfile)
24 pfmt(err, "%s: ", runq->cmdfile);
26 pfmt(err, "line %d: ", runq->lineno);
27 if(tok[0] && tok[0]!='\n') pfmt(err, "token %q: ", tok);
32 while(lastc!='\n' && lastc!=EOF) advance();
34 setvar("status", newword(m, (word *)0));
40 n=-n; /* doesn't work for n==-inf */
46 void itoa(char *s, long n)
52 void panic(char *s, int n)