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