![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to refresh.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSD / contrib / icon / operators|
Return to refresh.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / operators |
1.1 root 1: #include "../h/rt.h"
2: #ifdef VAX
3: /*
4: * ^x - return an entry block for co-expression x from the refresh block.
5: */
6:
7: refresh(nargs, arg1, arg0)
8: int nargs;
9: struct descrip arg1, arg0;
10: {
11: register int *ap, *sp, *tp;
12: struct descrip *dp, *dsp;
13: register struct b_estack *ep;
14: register struct b_eblock *hp;
15: int na, nl, *r5, *newap;
16: extern struct b_estack *alcestk();
17: extern interp();
18:
19: SetBound;
20: DeRef(arg1)
21: if (QUAL(arg1) || TYPE(arg1) != T_ESTACK)
22: runerr(118, &arg1);
23:
24: /*
25: * Get a new co-expression stack and initialize activator, result
26: * count, stack base, and fresh block location.
27: */
28: esneed();
29: ep = alcestk();
30: ep->activator = nulldesc;
31: ep->nresults = 0;
32: ep->freshblk = BLKLOC(arg1)->estack.freshblk;
33: ep->sbase = sp = (int *)ep;
34: /*
35: * Get number of arguments, number of locals, and a pointer to
36: * arg0 in the refresh block's argument list.
37: */
38: hp = (struct b_eblock *) BLKLOC(ep->freshblk);
39: na = hp->numargs;
40: nl = hp->numlocals;
41: ap = (int *) hp->elems;
42:
43: /*
44: * Copy arguments into new stack and refresh block.
45: */
46: dsp = (struct descrip *) sp;
47: dp = (struct descrip *) ap;
48: *--dsp = *dp++;
49: while (na-- > 0) {
50: *--dsp = *dp++;
51: }
52: sp = (int *) dsp;
53: ap = (int *) dp;
54:
55: /*
56: * Set up original procedure frame in new stack.
57: */
58: *--sp = hp->numargs; /* nargs */
59: *--sp = (hp->numargs*2) + 1; /* nwords */
60: newap = sp; /* save address of nwords */
61: *--sp = (int) interp; /* return pc */
62: *--sp = 0; /* saved r5 (frame pointer) */
63: *--sp = 0; /* saved ap */
64: *--sp = 0; /* psw/reg. mask */
65: *--sp = 0; /* condition handler */
66: r5 = sp; /* (save its address) */
67: *--sp = line; /* saved line number */
68: *--sp = (int) file; /* saved file name */
69:
70: /*
71: * Copy local variables into new stack.
72: */
73: dsp = (struct descrip *) sp;
74: dp = (struct descrip *) ap;
75: while (nl-- > 0) {
76: *--dsp = *dp++;
77: }
78: sp = (int *) dsp;
79: ap = (int *) dp;
80:
81: /*
82: * Set up dummy call to coact.
83: */
84: *--sp = nulldesc.type; /* place for result */
85: *--sp = INTVAL(nulldesc);
86: *--sp = nulldesc.type; /* place for activate coexpr */
87: *--sp = INTVAL(nulldesc);
88: *--sp = 1; /* nargs */
89: *--sp = 3; /* nwords */
90: tp = sp; /* save pointer to start of arg
91: list in this frame */
92: *--sp = (int) hp->ep; /* saved r9 (coexpr entry point) */
93: *--sp = (int) interp; /* return pc (entry point) */
94: *--sp = (int) r5; /* saved r5 */
95: *--sp = (int) newap; /* saved ap */
96: *--sp = 0x02000000; /* psw/reg mask with bit set to
97: restore r9, the ipc */
98: *--sp = 0;
99: ep->boundary = sp; /* (initial boundary) */
100: *--sp = line; /* saved line number */
101: *--sp = (int) file; /* saved file name */
102: ep->sp = sp; /* initial stack pointer */
103: ep->ap = tp;
104:
105: /*
106: * Return the new co-expression.
107: */
108: arg0.type = D_ESTACK;
109: BLKLOC(arg0) = (union block *) ep;
110: ClearBound;
111: }
112:
113: Opblock(refresh,1,"^")
114: #endif VAX
115:
116: #ifdef PORT
117: refresh()
118: {
119: syserr("Attempt to refresh a co-expression");
120: }
121: #endif PORT
122: #ifdef PDP11
123: /*
124: * ^x - return an entry block for co-expression x from the refresh block.
125: * NOTE: this code is highly dependent on stack frame layout.
126: */
127:
128: refresh(nargs, arg1, arg0)
129: int nargs;
130: struct descrip arg1, arg0;
131: {
132: register int *ap, *sp;
133: register struct b_estack *ep;
134: register struct b_eblock *hp;
135: int na, nl, *r5;
136: extern struct b_estack *alcestk();
137: extern interp();
138:
139: DeRef(arg1)
140: if (QUAL(arg1) || TYPE(arg1) != T_ESTACK)
141: runerr(118, &arg1);
142:
143: esneed(); /* check for room in stack space */
144: ep = alcestk(); /* allocate expression stack */
145: ep->activator = nulldesc;
146: ep->nresults = 0;
147: ep->freshblk = BLKLOC(arg1)->estack.freshblk;
148:
149: ep->sbase = sp = (int *)ep; /* initialize new stack pointer */
150: hp = BLKLOC(ep->freshblk);
151: na = hp->numargs; /* get value of nargs */
152: nl = hp->numlocals;
153: ap = hp->elems; /* find arg0 of caller */
154:
155: /* copy arguments into new stack and refresh block */
156: *--(struct descrip *)sp = *(struct descrip *)ap; /* copy arg0 */
157: while (na-- > 0)
158: *--(struct descrip *)sp = *++(struct descrip *)ap;
159:
160: /* set up original procedure frame in new stack */
161: *--sp = hp->numargs; /* copy nargs */
162: *--sp = 0; /* return pc */
163: *--sp = 0; /* saved r5 */
164: r5 = sp; /* (save its address) */
165: *--sp = 0; /* saved r4 */
166: *--sp = 0; /* saved r3 */
167: *--sp = 0; /* saved r2 */
168: *--sp = line; /* saved line number */
169: *--sp = file; /* saved file name */
170:
171: /* copy local variables into new stack */
172: while (nl-- > 0)
173: *--(struct descrip *)sp = *++(struct descrip *)ap;
174:
175: /* set up dummy call to activate */
176: *--(struct descrip *)sp = nulldesc; /* place for result */
177: *--(struct descrip *)sp = nulldesc; /* place for activate coexpr */
178: /* these values are the initial register state for the coexpression */
179: *--sp = 1; /* nargs */
180: *--sp = interp; /* return pc (entry point) */
181: *--sp = r5; /* saved r5 */
182: ep->boundary = sp; /* (initial boundary) */
183: *--sp = 0; /* saved r4 */
184: *--sp = 0; /* saved r3 */
185: *--sp = hp->ep; /* saved r2 */
186: *--sp = line; /* saved line number */
187: *--sp = file; /* saved file name */
188: ep->sp = sp; /* initial stack pointer */
189: arg0.type = D_ESTACK;
190: BLKLOC(arg0) = ep;
191: }
192: Opblock(refresh,1,"^")
193: #endif PDP11
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.