[unix-history] / usr / src / cmd / lisp / h / catchfram.h

/* sccs id  @(#)catchfram.h	34.1  10/3/80  */

struct catchfr {		/* catch and errset frame */
    struct catchfr *link;	/* link to next catchframe */
	   lispval flag;		/* Do we print ?  */
	   lispval labl;	/* label caught at this point  */
    struct nament *svbnp;	/* saved bnp */
	   lispval retenv[11];  /* reset environment - actually a savblock */
	   lispval rs[4];	/* regis 6-11 and 13 */
       lispval (*retadr)();	/* address to continue execution */
};

struct savblock {
	lispval envir[10];
	struct savblock *savlnk;
};
Commit	Line	Data
31cef89c BJ	1	/* sccs id @(#)catchfram.h 34.1 10/3/80 */
31cef89c BJ	2
a22cc832 JF	3	struct catchfr { /* catch and errset frame */
	4	struct catchfr link; / link to next catchframe */
	5	lispval flag; /* Do we print ? */
	6	lispval labl; /* label caught at this point */
	7	struct nament svbnp; / saved bnp */
31cef89c	8	lispval retenv[11]; /* reset environment - actually a savblock */
a22cc832 JF	9	lispval rs[4]; /* regis 6-11 and 13 */
	10	lispval (retadr)(); / address to continue execution */
	11	};
31cef89c BJ	12
	13	struct savblock {
	14	lispval envir[10];
	15	struct savblock *savlnk;
	16	};