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