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