Return to catchfram.h CVS log

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

Annotation of 41BSD/cmd/lisp/h/catchfram.h, revision 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.