1*2123Smckusick /* Copyright (c) 1979 Regents of the University of California */
2*2123Smckusick 
3*2123Smckusick static char sccsid[] = "@(#)CATCHERR.c 1.1 01/13/81";
4*2123Smckusick 
5*2123Smckusick #include "h00vars.h"
6*2123Smckusick 
7*2123Smckusick CATCHERR(err, todo)
8*2123Smckusick 	long err;		/* error to be caught */
9*2123Smckusick 	struct formalrtn todo;	/* procedure to call to catch error */
10*2123Smckusick {
11*2123Smckusick 	if (todo.cbn == 1)
12*2123Smckusick 		_entry[err].entryaddr = todo.entryaddr;
13*2123Smckusick 	else
14*2123Smckusick 		fputs("procedure not at level 1", stderr);
15*2123Smckusick }
16