4.3BSD - /usr/src/ucb/lisp/franz/h/catchfram.h

   1: /*					-[Sat Jan 29 13:56:53 1983 by jkf]-
   2:  * 	catchfram.h			$Locker:  $
   3:  * catch frame definition
   4:  *
   5:  * $Header: /na/franz/franz/h/catchfram.h,v 1.1 83/01/29 14:02:54 jkf Exp $
   6:  *
   7:  * (c) copyright 1982, Regents of the University of California
   8:  */
   9: 
  10: struct catchfr {        /* catch and errset frame */
  11:     struct catchfr *link;   /* link to next catchframe */
  12:        lispval flag;        /* Do we print ?  */
  13:        lispval labl;    /* label caught at this point  */
  14:     struct nament *svbnp;   /* saved bnp */
  15:        lispval retenv[11];  /* reset environment - actually a savblock */
  16:        lispval rs[4];   /* regis 6-11 and 13 */
  17:        lispval (*retadr)(); /* address to continue execution */
  18: };
  19: 
  20: struct savblock {
  21:     lispval envir[10];
  22:     struct savblock *savlnk;
  23: };

Defined struct's