![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to create.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 / lib|
Return to create.c CVS log | Up to [CSRG BSD Unix] / 43BSD / contrib / icon / lib |
1.1 ! root 1: #include "../h/rt.h" ! 2: #ifdef VAX ! 3: /* ! 4: * create - return an entry block for a co-expression. ! 5: */ ! 6: ! 7: create(nargs, arg1) ! 8: int nargs; ! 9: struct descrip arg1; ! 10: { ! 11: register int *ap, *sp, *tp; ! 12: register struct descrip *dp; ! 13: register struct b_estack *ep; ! 14: register struct b_eblock *hp; ! 15: int na, nl, *r5, i, j, *newap; ! 16: extern interp(); ! 17: extern struct b_estack *alcestk(); ! 18: extern struct b_eblock *alceblk(); ! 19: ! 20: SetBound; ! 21: if (QUAL(arg1) || TYPE(arg1) != T_INTEGER) ! 22: syserr("create: illegal entry point"); ! 23: ! 24: /* ! 25: * Get a new co-expression stack and initialize activator, result ! 26: * count, and stack base. ! 27: */ ! 28: esneed(); ! 29: ep = alcestk(); ! 30: ep->activator = nulldesc; ! 31: ep->nresults = 0; ! 32: ep->sbase = sp = (int *)ep; ! 33: /* ! 34: * Move hardware ap of calling function into the variable ap. ! 35: */ ! 36: asm(" addl3 8(fp),$4,r11"); ! 37: /* ! 38: * Calculate number of arguments and number of local variables. ! 39: */ ! 40: na = *ap; ! 41: tp = ap + 1 + (2 * na); ! 42: nl = ((struct descrip *)tp)->value.bptr->proc.ndynam; ! 43: ! 44: /* ! 45: * Get a new co-expression heap block. Note that the "+ 1" in ! 46: * na + nl + 1 is for arg0, the calling procedure. ! 47: */ ! 48: hneed(sizeof(struct b_eblock) + (na + nl + 1) * sizeof(struct descrip)); ! 49: hp = alceblk(INTVAL(arg1),na,nl); ! 50: ep->freshblk.type = D_EBLOCK; ! 51: BLKLOC(ep->freshblk) = (union block *) hp; ! 52: ! 53: /* ! 54: * Copy arguments into refresh block. dp starts at arg0 and works down. ! 55: */ ! 56: dp = (struct descrip *) ((int *)(ap + 1 + (2 * na))); ! 57: i = 0; ! 58: hp->elems[0] = *dp--; ! 59: j = na; ! 60: while (j-- > 0) { ! 61: hp->elems[++i] = *dp--; ! 62: } ! 63: ! 64: /* ! 65: * Copy arguments into new stack. This is more painful than copying ! 66: * into the refresh block because the arguments are copied a word ! 67: * at a time. tp starts at the high word of arg0 and goes down. ! 68: */ ! 69: tp = ap + 2 + (2 * na); ! 70: *--sp = *tp--; ! 71: *--sp = *tp--; ! 72: j = na; ! 73: while (j-- > 0) { ! 74: *--sp = *tp--; ! 75: *--sp = *tp--; ! 76: } ! 77: ! 78: /* ! 79: * Set up original procedure frame in new stack. ! 80: */ ! 81: *--sp = *tp--; /* copy nargs */ ! 82: *--sp = *tp; /* copy nwords (argc) */ ! 83: newap = sp; /* and save a pointer to it. */ ! 84: *--sp = 0; /* return pc */ ! 85: *--sp = 0; /* saved r5 (frame pointer) */ ! 86: *--sp = 0; /* saved ap */ ! 87: *--sp = 0; /* psw/reg. mask */ ! 88: *--sp = 0; /* condition handler */ ! 89: r5 = sp; /* and save a pointer to it */ ! 90: *--sp = line; /* saved line number */ ! 91: *--sp = (int) file; /* saved file name */ ! 92: ! 93: /* ! 94: * Copy local variables into new stack. The asm sets tp to the ! 95: * address of the start of local region in caller's procedure frame. ! 96: */ ! 97: asm(" addl3 12(fp),$-12,r9"); ! 98: j = nl; ! 99: while (j-- > 0) { ! 100: *--sp = *tp--; ! 101: *--sp = *tp--; ! 102: } ! 103: /* ! 104: * Copy local variables into the refresh block. The asm sets dp to ! 105: * the address of the first local. ! 106: */ ! 107: asm(" addl3 12(fp),$-16,r8"); ! 108: j = nl; ! 109: while (j-- > 0) ! 110: hp->elems[++i] = *dp--; ! 111: ! 112: /* ! 113: * Set up dummy call to coact. ! 114: */ ! 115: *--sp = nulldesc.type; /* place for result */ ! 116: *--sp = INTVAL(nulldesc); ! 117: *--sp = nulldesc.type; /* place for activate coexpr */ ! 118: *--sp = INTVAL(nulldesc); ! 119: *--sp = 1; /* nargs */ ! 120: *--sp = 3; /* 3 longwords in nargs */ ! 121: tp = sp; /* save pointer to start of arg ! 122: list in this frame */ ! 123: *--sp = INTVAL(arg1); /* saved r9 (coexpr entry point) */ ! 124: *--sp = (int) interp; /* return pc */ ! 125: *--sp = (int) r5; /* saved r5 */ ! 126: *--sp = (int) newap; /* saved ap */ ! 127: *--sp = 0x02000000; /* psw/reg mask with bit set to ! 128: restore r9, the ipc */ ! 129: *--sp = 0; /* condition handler */ ! 130: ep->boundary = sp; /* (initial boundary) */ ! 131: *--sp = line; /* saved line number */ ! 132: *--sp = (int) file; /* saved file name */ ! 133: ep->sp = sp; /* initial stack pointer */ ! 134: ep->ap = tp; /* initial arg. pointer */ ! 135: ! 136: /* ! 137: * Return the new co-expression. ! 138: */ ! 139: arg1.type = D_ESTACK; ! 140: BLKLOC(arg1) = (union block *) ep; ! 141: ClearBound; ! 142: } ! 143: #endif VAX ! 144: #ifdef PORT ! 145: create() ! 146: { ! 147: syserr("Attempt to create a co-expression"); ! 148: } ! 149: #endif PORT ! 150: ! 151: #ifdef PDP11 ! 152: /* ! 153: * create - return an entry block for a co-expression ! 154: * ! 155: * NOTE: this code is highly dependent on stack frame layout. ! 156: */ ! 157: ! 158: create(nargs, arg1) ! 159: int nargs; ! 160: struct descrip arg1; ! 161: { ! 162: register int *ap, *sp; ! 163: register struct b_estack *ep; ! 164: register struct b_eblock *hp; ! 165: int na, nl, *r5, i; ! 166: extern interp(); ! 167: extern struct b_estack *alcestk(); ! 168: extern struct b_eblock *alceblk(); ! 169: ! 170: if (QUAL(arg1) || TYPE(arg1) != T_INTEGER) ! 171: syserr("create: illegal entry point"); ! 172: ! 173: esneed(); /* check for room in stack space */ ! 174: ep = alcestk(); /* allocate expression stack */ ! 175: ep->activator = nulldesc; ! 176: ep->nresults = 0; ! 177: ! 178: ep->sbase = sp = (int *)ep; /* initialize new stack pointer */ ! 179: ap = (int *)*(&nargs-2) + 2; /* find nargs of caller */ ! 180: na = *ap; /* get value of nargs */ ! 181: ap += 1 + 2 * na; /* find arg0 of caller */ ! 182: nl = ((struct descrip *)ap)->value.bptr->proc.ndynam; /* get # locals */ ! 183: ! 184: hneed(sizeof(struct b_eblock) + (na + nl + 1) * sizeof(struct descrip)); ! 185: hp = alceblk(INTVAL(arg1),na,nl); /* allocate refresh block */ ! 186: ep->freshblk.type = D_EBLOCK; ! 187: BLKLOC(ep->freshblk) = (union block *) hp; ! 188: ! 189: /* copy arguments into new stack and refresh block */ ! 190: i = 0; ! 191: hp->elems[i] = *--(struct descrip *)sp = *(struct descrip *)ap; ! 192: while (na-- > 0) ! 193: hp->elems[++i] = *--(struct descrip *)sp = *--(struct descrip *)ap; ! 194: ! 195: /* set up original procedure frame in new stack */ ! 196: *--sp = *--ap; /* copy nargs */ ! 197: *--sp = 0; /* return pc */ ! 198: *--sp = 0; /* saved r5 */ ! 199: r5 = sp; /* (save its address) */ ! 200: *--sp = 0; /* saved r4 */ ! 201: *--sp = 0; /* saved r3 */ ! 202: *--sp = 0; /* saved r2 */ ! 203: *--sp = line; /* saved line number */ ! 204: *--sp = (int) file; /* saved file name */ ! 205: ! 206: /* copy local variables into new stack */ ! 207: ap -= 7; ! 208: while (nl-- > 0) ! 209: hp->elems[++i] = *--(struct descrip *)sp = *--(struct descrip *)ap; ! 210: ! 211: /* set up dummy call to coact */ ! 212: *--(struct descrip *)sp = nulldesc; /* place for result */ ! 213: *--(struct descrip *)sp = nulldesc; /* place for activate coexpr */ ! 214: /* these values are the initial register state for the co-expression */ ! 215: *--sp = 1; /* nargs */ ! 216: *--sp = (int) interp; /* return pc */ ! 217: *--sp = (int) r5; /* saved r5 */ ! 218: ep->boundary = sp; /* (initial boundary) */ ! 219: *--sp = 0; /* saved r4 */ ! 220: *--sp = 0; /* saved r3 */ ! 221: *--sp = INTVAL(arg1); /* saved r2 (coexpr entry point) */ ! 222: *--sp = line; /* saved line number */ ! 223: *--sp = (int) file; /* saved file name */ ! 224: ep->sp = sp; /* initial stack pointer */ ! 225: arg1.type = D_ESTACK; ! 226: BLKLOC(arg1) = (union block *) ep; ! 227: } ! 228: #endif PDP11
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.