static char sccsid
[] = "@(#)error.c 4.2 %G%";
* Bell Telephone Laboratories
/* ======== error handling ======== */
assnum(&exitadr
,exitval
);
/* Find out if it is time to go away.
* `trapnote' is set to SIGSET when fault is seen and
THEN
prs(colon
); prs(s2
);
newline(); exitsh(ERROR
);
/* Arrive here from `FATAL' errors
* c) fault with no trap set.
* Action is to return to command level or exit.
IF (flags
& (forked
|errflg
|ttyflg
)) != ttyflg
THEN trapcom
[0]=0; /*should free but not long */
DO
unlink(iotemp
->ioname
);