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: }

Defined functions

CATCHERR defined in line 7; never used

Defined variables

sccsid defined in line 3; never used
Last modified: 1983-02-01
Generated: 2016-12-26
Generated by src2html V0.67
page hit count: 738
Valid CSS Valid XHTML 1.0 Strict