1 /*-
2  * Copyright (c) 1979, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * %sccs.include.redist.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)CATCHERR.c	8.1 (Berkeley) 06/06/93";
10 #endif /* not lint */
11 
12 #include "h00vars.h"
13 
14 CATCHERR(err, todo)
15 	long err;		/* error to be caught */
16 	struct formalrtn todo;	/* procedure to call to catch error */
17 {
18 	if (todo.fbn == 1)
19 		_entry[err].fentryaddr = todo.fentryaddr;
20 	else
21 		fputs("procedure not at level 1", stderr);
22 }
23