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