Return to catchfram.h CVS log

Up to [CSRG BSD Unix] / 40BSD / cmd / lisp / h

Annotation of 40BSD/cmd/lisp/h/catchfram.h, revision 1.1.1.1

1.1       root        1: /* sccs id  @(#)catchfram.h    34.1  10/3/80  */
                      2: 
                      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 */
                      8:           lispval retenv[11];  /* reset environment - actually a savblock */
                      9:           lispval rs[4];       /* regis 6-11 and 13 */
                     10:        lispval (*retadr)();    /* address to continue execution */
                     11: };
                     12: 
                     13: struct savblock {
                     14:        lispval envir[10];
                     15:        struct savblock *savlnk;
                     16: };

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