Return to catchfram.h CVS log

Up to [CSRG BSD Unix] / 42BSD / ucb / lisp / franz / h

Annotation of 42BSD/ucb/lisp/franz/h/catchfram.h, revision 1.1.1.1

1.1       root        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: };

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.