#include "l.h" voidspan(void){ Prog *p; Sym *setext; Optab *o; int m; long c; if(debug['v']) Bprint(&bso, "%5.2f span\n", cputime()); Bflush(&bso); c = INITTEXT; for(p = firstp; p != P; p = p->link) { p->pc = c; o = oplook(p); m = o->size; if(m == 0) { if(p->as == ATEXT) { curtext = p; autosize = p->to.offset + 4; if(p->from3.type == D_CONST) { if(p->from3.offset & 3) diag("illegal origin\n%P", p); if(c > p->from3.offset) diag("passed origin (#%lux)\n%P", c, p); else c = p->from3.offset; p->pc = c; } if(p->from.sym != S) p->from.sym->value = c; continue; } if(p->as != ANOP) diag("zero-width instruction\n%P\n", p); continue; } c += m; } c = rnd(c, 4); setext = lookup("etext", 0); if(setext != S) { setext->value = c; textsize = c - INITTEXT; } if(INITRND) INITDAT = rnd(c, INITRND); if(debug['v']) Bprint(&bso, "tsize = %lux\n", textsize); Bflush(&bso);} voidxdefine(char *p, int t, long v){ Sym *s; s = lookup(p, 0); if(s->type == 0 || s->type == SXREF) { s->type = t; s->value = v; }} longregoff(Adr *a){ offset = 0; aclass(a); return offset;} intaclass(Adr *a){ Sym *s; int t; switch(a->type) { case D_NONE: return C_NONE; case D_REG: return C_REG; case D_FREG: return C_FREG; case D_CREG: return C_CREG; case D_SPR: if(a->offset == D_LR) return C_LR; if(a->offset == D_XER) return C_XER; if(a->offset == D_CTR) return C_CTR; return C_SPR; case D_SREG: return C_SREG; case D_FPSCR: return C_FPSCR; case D_MSR: return C_MSR; case D_OREG: switch(a->name) { case D_EXTERN: case D_STATIC: if(a->sym == S) break; t = a->sym->type; if(t == 0 || t == SXREF) { diag("undefined external: %s in %s\n", a->sym->name, TNAME); a->sym->type = SDATA; } offset = a->sym->value + a->offset - BIG; if(offset >= -BIG && offset < BIG) return C_SEXT; return C_LEXT; case D_AUTO: offset = autosize + a->offset; if(offset >= -BIG && offset < BIG) return C_SAUTO; return C_LAUTO; case D_PARAM: offset = autosize + a->offset + 4L; if(offset >= -BIG && offset < BIG) return C_SAUTO; return C_LAUTO; case D_NONE: offset = a->offset; if(offset == 0) return C_ZOREG; if(offset >= -BIG && offset < BIG) return C_SOREG; return C_LOREG; } return C_GOK; case D_OPT: offset = a->offset & 31L; if(a->name == D_NONE) return C_SCON; return C_GOK; case D_CONST: switch(a->name) { case D_NONE: offset = a->offset; consize: if(offset >= 0) { if(offset <= 0x7fff) return C_SCON; if(offset <= 0xffff) return C_ANDCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; } if(offset >= -0x8000) return C_ADDCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; case D_EXTERN: case D_STATIC: s = a->sym; if(s == S) break; t = s->type; if(t == 0 || t == SXREF) { diag("undefined external: %s in %s\n", s->name, TNAME); s->type = SDATA; } if(s->type == STEXT || s->type == SLEAF) { offset = s->value + a->offset; return C_LCON; } if(s->type == SCONST) { offset = s->value + a->offset; goto consize; } offset = s->value + a->offset - BIG; if(offset >= -BIG && offset < BIG && offset != 0) return C_SECON; offset = s->value + a->offset + INITDAT;/* not sure why this barfs */return C_LCON; if(offset == 0) return C_ZCON; if(offset >= -0x8000 && offset <= 0xffff) return C_SCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; case D_AUTO: offset = autosize + a->offset; if(offset >= -BIG && offset < BIG) return C_SACON; return C_LACON; case D_PARAM: offset = autosize + a->offset + 4L; if(offset >= -BIG && offset < BIG) return C_SACON; return C_LACON; } return C_GOK; case D_BRANCH: return C_SBRA; } return C_GOK;} Optab*oplook(Prog *p){ int a1, a2, a3, a4, r; char *c1, *c3, *c4; Optab *o, *e; a1 = p->optab; if(a1) return optab+(a1-1); a1 = p->from.class; if(a1 == 0) { a1 = aclass(&p->from) + 1; p->from.class = a1; } a1--; a3 = p->from3.class; if(a3 == 0) { a3 = aclass(&p->from3) + 1; p->from3.class = a3; } a3--; a4 = p->to.class; if(a4 == 0) { a4 = aclass(&p->to) + 1; p->to.class = a4; } a4--; a2 = C_NONE; if(p->reg != NREG) a2 = C_REG; r = p->as; o = oprange[r].start; if(o == 0) o = oprange[r].stop; /* just generate an error */ e = oprange[r].stop; c1 = xcmp[a1]; c3 = xcmp[a3]; c4 = xcmp[a4]; for(; o<e; o++) if(o->a2 == a2) if(c1[o->a1]) if(c3[o->a3]) if(c4[o->a4]) { p->optab = (o-optab)+1; return o; } diag("illegal combination %A %R %R %R %R\n", p->as, a1, a2, a3, a4); if(1||!debug['a']) prasm(p); if(o == 0) errorexit(); return o;} intcmp(int a, int b){ if(a == b) return 1; switch(a) { case C_LCON: if(b == C_ZCON || b == C_SCON || b == C_UCON || b == C_ADDCON || b == C_ANDCON) return 1; break; case C_ADDCON: if(b == C_ZCON || b == C_SCON) return 1; break; case C_ANDCON: if(b == C_ZCON || b == C_SCON) return 1; break; case C_SPR: if(b == C_LR || b == C_XER || b == C_CTR) return 1; break; case C_UCON: if(b == C_ZCON) return 1; break; case C_SCON: if(b == C_ZCON) return 1; break; case C_LACON: if(b == C_SACON) return 1; break; case C_LBRA: if(b == C_SBRA) return 1; break; case C_LEXT: if(b == C_SEXT) return 1; break; case C_LAUTO: if(b == C_SAUTO) return 1; break; case C_REG: if(b == C_ZCON) return 1; break; case C_LOREG: if(b == C_ZOREG || b == C_SOREG) return 1; break; case C_SOREG: if(b == C_ZOREG) return 1; break; case C_ANY: return 1; } return 0;} intocmp(void *a1, void *a2){ Optab *p1, *p2; int n; p1 = a1; p2 = a2; n = p1->as - p2->as; if(n) return n; n = p1->a1 - p2->a1; if(n) return n; n = p1->a2 - p2->a2; if(n) return n; n = p1->a3 - p2->a3; if(n) return n; n = p1->a4 - p2->a4; if(n) return n; return 0;} voidbuildop(void){ int i, n, r; for(i=0; i<C_NCLASS; i++) for(n=0; n<C_NCLASS; n++) xcmp[i][n] = cmp(n, i); for(n=0; optab[n].as != AXXX; n++) ; qsort(optab, n, sizeof(optab[0]), ocmp); for(i=0; i<n; i++) { r = optab[i].as; oprange[r].start = optab+i; while(optab[i].as == r) i++; oprange[r].stop = optab+i; i--; switch(r) { default: diag("unknown op in build: %A\n", r); errorexit(); case ADCBF: /* unary indexed: op (b+a); op (b) */ oprange[ADCBI] = oprange[r]; oprange[ADCBST] = oprange[r]; oprange[ADCBT] = oprange[r]; oprange[ADCBTST] = oprange[r]; oprange[ADCBZ] = oprange[r]; oprange[AICBI] = oprange[r]; break; case AECOWX: /* indexed store: op s,(b+a); op s,(b) */ oprange[ASTWCCC] = oprange[r]; break; case AREM: /* macro */ oprange[AREMCC] = oprange[r]; oprange[AREMV] = oprange[r]; oprange[AREMVCC] = oprange[r]; oprange[AREMU] = oprange[r]; oprange[AREMUCC] = oprange[r]; oprange[AREMUV] = oprange[r]; oprange[AREMUVCC] = oprange[r]; break; case ADIVW: /* op Rb[,Ra],Rd */ oprange[AMULHW] = oprange[r]; oprange[AMULHWCC] = oprange[r]; oprange[AMULHWU] = oprange[r]; oprange[AMULHWUCC] = oprange[r]; oprange[AMULLWCC] = oprange[r]; oprange[AMULLWVCC] = oprange[r]; oprange[AMULLWV] = oprange[r]; oprange[ADIVWCC] = oprange[r]; oprange[ADIVWV] = oprange[r]; oprange[ADIVWVCC] = oprange[r]; oprange[ADIVWU] = oprange[r]; oprange[ADIVWUCC] = oprange[r]; oprange[ADIVWUV] = oprange[r]; oprange[ADIVWUVCC] = oprange[r]; oprange[AADDCC] = oprange[r]; oprange[AADDCV] = oprange[r]; oprange[AADDCVCC] = oprange[r]; oprange[AADDV] = oprange[r]; oprange[AADDVCC] = oprange[r]; oprange[AADDE] = oprange[r]; oprange[AADDECC] = oprange[r]; oprange[AADDEV] = oprange[r]; oprange[AADDEVCC] = oprange[r]; oprange[ACRAND] = oprange[r]; oprange[ACRANDN] = oprange[r]; oprange[ACREQV] = oprange[r]; oprange[ACRNAND] = oprange[r]; oprange[ACRNOR] = oprange[r]; oprange[ACROR] = oprange[r]; oprange[ACRORN] = oprange[r]; oprange[ACRXOR] = oprange[r]; break;/* floating point move *//* oprange[AFMR] = oprange[r]; oprange[AFMRCC] = oprange[r];*//**/ case AMOVBZ: /* lbz, stz, rlwm(r/r), lhz, lha, stz, and x variants */ oprange[AMOVH] = oprange[r]; oprange[AMOVHZ] = oprange[r]; break; case AMOVBZU: /* lbz[x]u, stb[x]u, lhz[x]u, lha[x]u, sth[u]x */ oprange[AMOVHU] = oprange[r]; oprange[AMOVHZU] = oprange[r]; oprange[AMOVWU] = oprange[r]; oprange[AMOVMW] = oprange[r]; break; case AAND: /* logical op Rb,Rs,Ra; no literal */ oprange[AANDN] = oprange[r]; oprange[AANDNCC] = oprange[r]; oprange[AEQV] = oprange[r]; oprange[AEQVCC] = oprange[r]; oprange[ANAND] = oprange[r]; oprange[ANANDCC] = oprange[r]; oprange[ANOR] = oprange[r]; oprange[ANORCC] = oprange[r]; oprange[AORCC] = oprange[r]; oprange[AORN] = oprange[r]; oprange[AORNCC] = oprange[r]; oprange[AXORCC] = oprange[r]; break; case AADDME: /* op Ra, Rd */ oprange[AADDMECC] = oprange[r]; oprange[AADDMEV] = oprange[r]; oprange[AADDMEVCC] = oprange[r]; oprange[AADDZE] = oprange[r]; oprange[AADDZECC] = oprange[r]; oprange[AADDZEV] = oprange[r]; oprange[AADDZEVCC] = oprange[r]; oprange[ASUBME] = oprange[r]; oprange[ASUBMECC] = oprange[r]; oprange[ASUBMEV] = oprange[r]; oprange[ASUBMEVCC] = oprange[r]; oprange[ASUBZE] = oprange[r]; oprange[ASUBZECC] = oprange[r]; oprange[ASUBZEV] = oprange[r];Lines 1–500 of 657. Load more
#include "l.h" void span(void) { Prog *p; Sym *setext; Optab *o; int m; long c; if(debug['v']) Bprint(&bso, "%5.2f span\n", cputime()); Bflush(&bso); c = INITTEXT; for(p = firstp; p != P; p = p->link) { p->pc = c; o = oplook(p); m = o->size; if(m == 0) { if(p->as == ATEXT) { curtext = p; autosize = p->to.offset + 4; if(p->from3.type == D_CONST) { if(p->from3.offset & 3) diag("illegal origin\n%P", p); if(c > p->from3.offset) diag("passed origin (#%lux)\n%P", c, p); else c = p->from3.offset; p->pc = c; } if(p->from.sym != S) p->from.sym->value = c; continue; } if(p->as != ANOP) diag("zero-width instruction\n%P\n", p); continue; } c += m; } c = rnd(c, 4); setext = lookup("etext", 0); if(setext != S) { setext->value = c; textsize = c - INITTEXT; } if(INITRND) INITDAT = rnd(c, INITRND); if(debug['v']) Bprint(&bso, "tsize = %lux\n", textsize); Bflush(&bso); } void xdefine(char *p, int t, long v) { Sym *s; s = lookup(p, 0); if(s->type == 0 || s->type == SXREF) { s->type = t; s->value = v; } } long regoff(Adr *a) { offset = 0; aclass(a); return offset; } int aclass(Adr *a) { Sym *s; int t; switch(a->type) { case D_NONE: return C_NONE; case D_REG: return C_REG; case D_FREG: return C_FREG; case D_CREG: return C_CREG; case D_SPR: if(a->offset == D_LR) return C_LR; if(a->offset == D_XER) return C_XER; if(a->offset == D_CTR) return C_CTR; return C_SPR; case D_SREG: return C_SREG; case D_FPSCR: return C_FPSCR; case D_MSR: return C_MSR; case D_OREG: switch(a->name) { case D_EXTERN: case D_STATIC: if(a->sym == S) break; t = a->sym->type; if(t == 0 || t == SXREF) { diag("undefined external: %s in %s\n", a->sym->name, TNAME); a->sym->type = SDATA; } offset = a->sym->value + a->offset - BIG; if(offset >= -BIG && offset < BIG) return C_SEXT; return C_LEXT; case D_AUTO: offset = autosize + a->offset; if(offset >= -BIG && offset < BIG) return C_SAUTO; return C_LAUTO; case D_PARAM: offset = autosize + a->offset + 4L; if(offset >= -BIG && offset < BIG) return C_SAUTO; return C_LAUTO; case D_NONE: offset = a->offset; if(offset == 0) return C_ZOREG; if(offset >= -BIG && offset < BIG) return C_SOREG; return C_LOREG; } return C_GOK; case D_OPT: offset = a->offset & 31L; if(a->name == D_NONE) return C_SCON; return C_GOK; case D_CONST: switch(a->name) { case D_NONE: offset = a->offset; consize: if(offset >= 0) { if(offset <= 0x7fff) return C_SCON; if(offset <= 0xffff) return C_ANDCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; } if(offset >= -0x8000) return C_ADDCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; case D_EXTERN: case D_STATIC: s = a->sym; if(s == S) break; t = s->type; if(t == 0 || t == SXREF) { diag("undefined external: %s in %s\n", s->name, TNAME); s->type = SDATA; } if(s->type == STEXT || s->type == SLEAF) { offset = s->value + a->offset; return C_LCON; } if(s->type == SCONST) { offset = s->value + a->offset; goto consize; } offset = s->value + a->offset - BIG; if(offset >= -BIG && offset < BIG && offset != 0) return C_SECON; offset = s->value + a->offset + INITDAT; /* not sure why this barfs */ return C_LCON; if(offset == 0) return C_ZCON; if(offset >= -0x8000 && offset <= 0xffff) return C_SCON; if((offset & 0xffff) == 0) return C_UCON; return C_LCON; case D_AUTO: offset = autosize + a->offset; if(offset >= -BIG && offset < BIG) return C_SACON; return C_LACON; case D_PARAM: offset = autosize + a->offset + 4L; if(offset >= -BIG && offset < BIG) return C_SACON; return C_LACON; } return C_GOK; case D_BRANCH: return C_SBRA; } return C_GOK; } Optab* oplook(Prog *p) { int a1, a2, a3, a4, r; char *c1, *c3, *c4; Optab *o, *e; a1 = p->optab; if(a1) return optab+(a1-1); a1 = p->from.class; if(a1 == 0) { a1 = aclass(&p->from) + 1; p->from.class = a1; } a1--; a3 = p->from3.class; if(a3 == 0) { a3 = aclass(&p->from3) + 1; p->from3.class = a3; } a3--; a4 = p->to.class; if(a4 == 0) { a4 = aclass(&p->to) + 1; p->to.class = a4; } a4--; a2 = C_NONE; if(p->reg != NREG) a2 = C_REG; r = p->as; o = oprange[r].start; if(o == 0) o = oprange[r].stop; /* just generate an error */ e = oprange[r].stop; c1 = xcmp[a1]; c3 = xcmp[a3]; c4 = xcmp[a4]; for(; o<e; o++) if(o->a2 == a2) if(c1[o->a1]) if(c3[o->a3]) if(c4[o->a4]) { p->optab = (o-optab)+1; return o; } diag("illegal combination %A %R %R %R %R\n", p->as, a1, a2, a3, a4); if(1||!debug['a']) prasm(p); if(o == 0) errorexit(); return o; } int cmp(int a, int b) { if(a == b) return 1; switch(a) { case C_LCON: if(b == C_ZCON || b == C_SCON || b == C_UCON || b == C_ADDCON || b == C_ANDCON) return 1; break; case C_ADDCON: if(b == C_ZCON || b == C_SCON) return 1; break; case C_ANDCON: if(b == C_ZCON || b == C_SCON) return 1; break; case C_SPR: if(b == C_LR || b == C_XER || b == C_CTR) return 1; break; case C_UCON: if(b == C_ZCON) return 1; break; case C_SCON: if(b == C_ZCON) return 1; break; case C_LACON: if(b == C_SACON) return 1; break; case C_LBRA: if(b == C_SBRA) return 1; break; case C_LEXT: if(b == C_SEXT) return 1; break; case C_LAUTO: if(b == C_SAUTO) return 1; break; case C_REG: if(b == C_ZCON) return 1; break; case C_LOREG: if(b == C_ZOREG || b == C_SOREG) return 1; break; case C_SOREG: if(b == C_ZOREG) return 1; break; case C_ANY: return 1; } return 0; } int ocmp(void *a1, void *a2) { Optab *p1, *p2; int n; p1 = a1; p2 = a2; n = p1->as - p2->as; if(n) return n; n = p1->a1 - p2->a1; if(n) return n; n = p1->a2 - p2->a2; if(n) return n; n = p1->a3 - p2->a3; if(n) return n; n = p1->a4 - p2->a4; if(n) return n; return 0; } void buildop(void) { int i, n, r; for(i=0; i<C_NCLASS; i++) for(n=0; n<C_NCLASS; n++) xcmp[i][n] = cmp(n, i); for(n=0; optab[n].as != AXXX; n++) ; qsort(optab, n, sizeof(optab[0]), ocmp); for(i=0; i<n; i++) { r = optab[i].as; oprange[r].start = optab+i; while(optab[i].as == r) i++; oprange[r].stop = optab+i; i--; switch(r) { default: diag("unknown op in build: %A\n", r); errorexit(); case ADCBF: /* unary indexed: op (b+a); op (b) */ oprange[ADCBI] = oprange[r]; oprange[ADCBST] = oprange[r]; oprange[ADCBT] = oprange[r]; oprange[ADCBTST] = oprange[r]; oprange[ADCBZ] = oprange[r]; oprange[AICBI] = oprange[r]; break; case AECOWX: /* indexed store: op s,(b+a); op s,(b) */ oprange[ASTWCCC] = oprange[r]; break; case AREM: /* macro */ oprange[AREMCC] = oprange[r]; oprange[AREMV] = oprange[r]; oprange[AREMVCC] = oprange[r]; oprange[AREMU] = oprange[r]; oprange[AREMUCC] = oprange[r]; oprange[AREMUV] = oprange[r]; oprange[AREMUVCC] = oprange[r]; break; case ADIVW: /* op Rb[,Ra],Rd */ oprange[AMULHW] = oprange[r]; oprange[AMULHWCC] = oprange[r]; oprange[AMULHWU] = oprange[r]; oprange[AMULHWUCC] = oprange[r]; oprange[AMULLWCC] = oprange[r]; oprange[AMULLWVCC] = oprange[r]; oprange[AMULLWV] = oprange[r]; oprange[ADIVWCC] = oprange[r]; oprange[ADIVWV] = oprange[r]; oprange[ADIVWVCC] = oprange[r]; oprange[ADIVWU] = oprange[r]; oprange[ADIVWUCC] = oprange[r]; oprange[ADIVWUV] = oprange[r]; oprange[ADIVWUVCC] = oprange[r]; oprange[AADDCC] = oprange[r]; oprange[AADDCV] = oprange[r]; oprange[AADDCVCC] = oprange[r]; oprange[AADDV] = oprange[r]; oprange[AADDVCC] = oprange[r]; oprange[AADDE] = oprange[r]; oprange[AADDECC] = oprange[r]; oprange[AADDEV] = oprange[r]; oprange[AADDEVCC] = oprange[r]; oprange[ACRAND] = oprange[r]; oprange[ACRANDN] = oprange[r]; oprange[ACREQV] = oprange[r]; oprange[ACRNAND] = oprange[r]; oprange[ACRNOR] = oprange[r]; oprange[ACROR] = oprange[r]; oprange[ACRORN] = oprange[r]; oprange[ACRXOR] = oprange[r]; break; /* floating point move *//* oprange[AFMR] = oprange[r]; oprange[AFMRCC] = oprange[r]; */ /**/ case AMOVBZ: /* lbz, stz, rlwm(r/r), lhz, lha, stz, and x variants */ oprange[AMOVH] = oprange[r]; oprange[AMOVHZ] = oprange[r]; break; case AMOVBZU: /* lbz[x]u, stb[x]u, lhz[x]u, lha[x]u, sth[u]x */ oprange[AMOVHU] = oprange[r]; oprange[AMOVHZU] = oprange[r]; oprange[AMOVWU] = oprange[r]; oprange[AMOVMW] = oprange[r]; break; case AAND: /* logical op Rb,Rs,Ra; no literal */ oprange[AANDN] = oprange[r]; oprange[AANDNCC] = oprange[r]; oprange[AEQV] = oprange[r]; oprange[AEQVCC] = oprange[r]; oprange[ANAND] = oprange[r]; oprange[ANANDCC] = oprange[r]; oprange[ANOR] = oprange[r]; oprange[ANORCC] = oprange[r]; oprange[AORCC] = oprange[r]; oprange[AORN] = oprange[r]; oprange[AORNCC] = oprange[r]; oprange[AXORCC] = oprange[r]; break; case AADDME: /* op Ra, Rd */ oprange[AADDMECC] = oprange[r]; oprange[AADDMEV] = oprange[r]; oprange[AADDMEVCC] = oprange[r]; oprange[AADDZE] = oprange[r]; oprange[AADDZECC] = oprange[r]; oprange[AADDZEV] = oprange[r]; oprange[AADDZEVCC] = oprange[r]; oprange[ASUBME] = oprange[r]; oprange[ASUBMECC] = oprange[r]; oprange[ASUBMEV] = oprange[r]; oprange[ASUBMEVCC] = oprange[r]; oprange[ASUBZE] = oprange[r]; oprange[ASUBZECC] = oprange[r]; oprange[ASUBZEV] = oprange[r];