return NULL;
if (Tgettype (co) != T_CODE)
- panic (POS, "Eunit", "argument type is not T_CODE");
+ panic1 (POS, "Eunit", "argument type is not T_CODE");
m = Mpushmark (co);
PUSHJMP (oeljbufp, eljbufp, eljbuf);
/* NOT REACHED */
break;
default:
- panic (POS, "eeval", "unknown program token type %d", ctype);
+ panic1 (POS, "eeval", "unknown program token type %d", ctype);
}
return v1o;
}
sinfop[ownsinfoi].fco = fdo;
sinfop[ownsinfoi].fci = bi;
if (fid < 0 || fid >= Ifuncn)
- panic (POS, "efcall", "no such internal function: %d", fid);
+ panic1 (POS, "efcall", "no such internal function: %d", fid);
rtno = Ttrue;
if ((*Ifuncs[fid].func) (i, &lvarp[flvari]) == L_FAILURE) {
rtno = NULL;
case C_GT: return (r > 0) ? TRUE : FALSE;
case C_GE: return (r >= 0) ? TRUE : FALSE;
}
- panic (POS, "orderop", "bad op code");
+ panic1 (POS, "orderop", "bad op code");
return FALSE; /* NOT REACHED */
}
new->udata = 0;
/* HACK: should do a switch on type, but ... */
if (!(new->u.c = (Gcw_t *) malloc (wsizes[type])))
- panic (POS, "newwidget", "cannot allocate data");
+ panic1 (POS, "newwidget", "cannot allocate data");
return new;
}
return;
}
if (!(crp = malloc (sizeof (gfxrect_t))))
- panic (POS, "rectinsert", "rect malloc failed");
+ panic1 (POS, "rectinsert", "rect malloc failed");
crp->ko = ko;
crp->r.o.x = min (r.o.x, r.c.x);
return;
}
if (!(crp = malloc (sizeof (gfxrect_t))))
- panic (POS, "rectmerge", "rect malloc failed");
+ panic1 (POS, "rectmerge", "rect malloc failed");
crp->ko = ko;
crp->r.o.x = min (r.o.x, r.c.x);
return;
}
if (!(cmp = malloc (sizeof (gfxmenu_t))))
- panic (POS, "menuinsert", "menu malloc failed");
+ panic1 (POS, "menuinsert", "menu malloc failed");
cmp->ko = ko;
cmp->time = time;
int i;
if (!(bufp = malloc (BUFINCR * BUFSIZE)))
- panic (POS, "Iinit", "buf malloc failed");
+ panic1 (POS, "Iinit", "buf malloc failed");
bufn = BUFINCR;
for (i = 0; Ifuncs[i].name; i++)
Efunction (Pfunction (Ifuncs[i].name, i), Ifuncs[i].name);
if (!(bufp = realloc (
bufp, ((newsize + BUFINCR - 1) / BUFINCR) * BUFINCR * BUFSIZE
)))
- panic (POS, "growbufp", "buf realloc failed");
+ panic1 (POS, "growbufp", "buf realloc failed");
bufn = ((newsize + BUFINCR - 1) / BUFINCR) * BUFINCR;
}