1: /* Copyright (c) 1979 Regents of the University of California */ 2: 3: static char sccsid[] = "@(#)CATCHERR.c 1.2 4/1/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: }