Return to frame.h CVS log

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

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

1.1       root        1: /*                                     -[Sat Jan 29 13:55:13 1983 by jkf]-
                      2:  *     frame.h                         $Locker:  $
                      3:  * non local goto frame definition
                      4:  *
                      5:  * $Header: frame.h,v 1.3 83/09/12 15:29:08 sklower Exp $
                      6:  *
                      7:  * (c) copyright 1982, Regents of the University of California
                      8:  */
                      9:  
                     10: /* classes of frames: */
                     11: #define F_PROG         1
                     12: #define F_CATCH        2
                     13: #define F_RESET        3
                     14: #define F_EVAL         4
                     15: #define F_FUNCALL      5
                     16: #define F_TO_FORT      6
                     17: #define F_TO_LISP      7
                     18: 
                     19: /* classes of things thrown up */
                     20: #define C_INITIAL      0
                     21: #define C_GO           1
                     22: #define C_RET          2
                     23: #define C_THROW        3
                     24: #define C_RESET        4
                     25: #define C_FRETURN      5
                     26: 
                     27: 
                     28: /* the evaluation frame sits on the C runtime stack.  the global variable errp
                     29:    points to the newest frame. The base of the frame points in the middle
                     30:    of the frame, but in such a way that above the frame base the contents
                     31:    are the same for all implementation, and below it there are different
                     32:    saved registers for each machine. 
                     33: */
                     34: 
                     35: struct frame 
                     36: {
                     37:     struct argent *svlbot, *svnp;
                     38:     struct nament *svbnp;
                     39:     struct frame *olderrp;
                     40:     lispval retaddr;
                     41:     long class;
                     42:     lispval larg1;     /* optional */
                     43:     lispval larg2;     /* optional */
                     44: };
                     45: 
                     46: extern struct frame *errp, *Pushframe(), *Ipushf();
                     47: 
                     48: /* stuff for IBM, RIDGE, DEC-VMS CC, maybe Bellmac-32
                     49:  *
                     50:  * The non obvious requirement is that any new function
                     51:  * requiring a Pushframe must declare 
                     52:  *
                     53:  *     pbuf pb;
                     54:  *
                     55:  * as well.
                     56:  */
                     57: 
                     58: #ifdef SPISFP
                     59: #define Pushframe(a,b,c) Ipushf(a,b,c,&pb)
                     60: #endif
                     61: 
                     62: 
                     63: typedef struct pframe
                     64: {
                     65:        long regs[16];
                     66:        struct frame f;
                     67: } pbuf;

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