BSD 4_1c_2 release

[unix-history] / usr / src / usr.lib / libpc / CATCHERR.c

/* Copyright (c) 1979 Regents of the University of California */

static char sccsid[] = "@(#)CATCHERR.c 1.2 4/1/81";

#include "h00vars.h"

CATCHERR(err, todo)
       long err;               /* error to be caught */
       struct formalrtn todo;  /* procedure to call to catch error */
{
       if (todo.fbn == 1)
               _entry[err].fentryaddr = todo.fentryaddr;
       else
               fputs("procedure not at level 1", stderr);
}