12123Smckusick /* Copyright (c) 1979 Regents of the University of California */
22123Smckusick 
3*3434Smckusic static char sccsid[] = "@(#)CATCHERR.c 1.2 04/01/81";
42123Smckusick 
52123Smckusick #include "h00vars.h"
62123Smckusick 
72123Smckusick CATCHERR(err, todo)
82123Smckusick 	long err;		/* error to be caught */
92123Smckusick 	struct formalrtn todo;	/* procedure to call to catch error */
102123Smckusick {
11*3434Smckusic 	if (todo.fbn == 1)
12*3434Smckusic 		_entry[err].fentryaddr = todo.fentryaddr;
132123Smckusick 	else
142123Smckusick 		fputs("procedure not at level 1", stderr);
152123Smckusick }
16