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     ! 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.