- p->lastused = p->lower+ptr->appetite;
- am = p->lower+1;
- p->M[ am ] = ptr->appetite;
- p->M[ am+PROTNUM ] = prot;
- for (i = PROTNUM+1; i < ptr->appetite; i++)
- p->M[ am+i ] = 0;
- p->M[ ah ] = am;
- p->M[ ah+1 ] = 0;
- p->prochead = am;
- p->procref.addr = ah;
- p->procref.mark = 0;
- p->c1 = am; /* initialize current object ptrs */
- p->c2 = am+ptr->span;
- apt = am+ptr->appetite;
- p->M[ apt+CHD ] = ah; /* initialize coroutine head ptr */
- p->M[ apt+CHD+1 ] = 0;
- p->M[ apt+SL ] = DUMMY; /* dummy SL for process */
- p->M[ 1 ] = 1; /* absolute none */
- for (i = MAINBLOCK; i <= lastprot; i++) /* initialize DISPLAY */
- p->M[ apt+dispoff+i ] = 0;
- p->M[ apt+disp2off+MAINBLOCK ] = DUMMY; /* dummmy entry for MAIN */
- j = ptr->preflist; /* set DISPLAY entries for process */
-
- for (i = j+ptr->lthpreflist-1; i >= j; i--)
- {
- p->M[ apt+dispoff+M[ i ] ] = am; /* physical address */
- p->M[ apt+disp2off+M[ i ] ] = ah; /* indirect address */
- }
-
- {
- virtaddr v;
- mess2obj( p, father, &v );
- p->M[ apt+DL ] = v.addr;
- p->M[ apt+DL+1 ] = v.mark;
- }
- p->msgqueue = qinit();
- p->rpcwait = qinit();
- p->rpcmask = sinit();
- pushmask(pix); /* initialy all RPCs are disabled */
- p->trlnumber = 0; /* trace line number */
- i = ptr->preflist; /* search for executable prefix */
- while (prototype[ p->M[ i ] ]->kind == RECORD) i++;
- p->ic = prototype[ M[ i ] ]->codeaddr; /* first instruction address */
- p->force_compactification=FALSE;
+ p->lastused = p->lower + ptr->appetite;
+ am = p->lower + 1;
+ p->M[am] = ptr->appetite;
+ p->M[am + PROTNUM] = prot;
+ for (i = PROTNUM + 1; i < ptr->appetite; i++)
+ p->M[am + i] = 0;
+ p->M[ah] = am;
+ p->M[ah + 1] = 0;
+ p->prochead = am;
+ p->procref.addr = ah;
+ p->procref.mark = 0;
+ /* initialize current object ptrs */
+ p->c1 = am;
+ p->c2 = am + ptr->span;
+ apt = am + ptr->appetite;
+ /* initialize coroutine head ptr */
+ p->M[apt + CHD] = ah;
+ p->M[apt + CHD + 1] = 0;
+ /* dummy SL for process */
+ p->M[apt + SL] = DUMMY;
+ /* absolute none */
+ p->M[1] = 1;
+ /* initialize DISPLAY */
+ for (i = MAINBLOCK; i <= lastprot; i++) {
+ /* dummmy entry for MAIN */
+ p->M[apt + dispoff + i] = 0;
+ }
+ p->M[apt + disp2off + MAINBLOCK] = DUMMY;
+ /* set DISPLAY entries for process */
+ j = ptr->preflist;
+
+ for (i = j + ptr->lthpreflist - 1; i >= j; i--) {
+ /* physical address */
+ p->M[apt + dispoff + M[i]] = am;
+ /* indirect address */
+ p->M[apt + disp2off + M[i]] = ah;
+ }
+
+ {
+ virtaddr v;
+ mess2obj(p, father, &v);
+ p->M[apt + DL] = v.addr;
+ p->M[apt + DL + 1] = v.mark;
+ }
+ p->msgqueue = qinit();
+ p->rpcwait = qinit();
+ p->rpcmask = sinit();
+ /* initialy all RPCs are disabled */
+ pushmask(pix);
+ /* trace line number */
+ p->trlnumber = 0;
+ /* search for executable prefix */
+ i = ptr->preflist;
+ while (prototype[p->M[i]]->kind == RECORD)
+ i++;
+
+ /* first instruction address */
+ p->ic = prototype[M[i]]->codeaddr;
+ p->force_compactification = FALSE;