ref: 1dbb193077af7ba6ff7fb70a4dd465480764382e
dir: /libinterp/comp-sparc.c/
#include "lib9.h" #include "isa.h" #include "interp.h" #include "raise.h" enum { R8 = 8, /* SUN calls these %o0 - %o7 */ R9 = 9, R10 = 10, R11 = 11, R12 = 12, R13 = 13, R14 = 14, /* SUN %sp */ R15 = 15, /* R15/%o7 is the default link register */ R16 = 16, /* SUN calls these %l0 - %l7 */ R17 = 17, R18 = 18, R19 = 19, R20 = 20, R21 = 21, R22 = 22, R23 = 23, RLINK = 15, RZ = 0, /* Always 0 */ RFP = R23, /* Frame Pointer */ RMP = R22, /* Module Pointer */ RTA = R21, /* Intermediate address for double indirect */ RREG = R20, /* Pointer to REG */ RA3 = R19, /* gpr 3 */ RA2 = R18, /* gpr 2 2+3 = L */ RA1 = R17, /* gpr 1 */ RA0 = R16, /* gpr 0 0+1 = L */ RCON = R8, /* Constant builder */ FA2 = 2, /* Floating */ FA3 = 3, FA4 = 4, FA5 = 5, Olea = (1<<20), /* Pseudo op */ Owry = 48, Omul = 11, Oumul = 10, Osdiv = 15, Osll = 37, Osra = 39, Osrl = 38, Osethi = 4, Oadd = 0, Oaddcc = 16, Oaddx = 8, Osub = 4, Osubcc = 20, Osubx = 12, Oor = 2, Oand = 1, Oxor = 3, Oldw = 0, Oldsh = 10, Ostw = 4, Osth = 6, Ojmpl = 56, Ocall = 1, Ocmp = 20, /* subcc */ Oldbu = 1, Ostb = 5, Oba = 8, Obn = 0, Obne = 9, Obe = 1, Obg = 10, Oble = 2, Obge = 11, Obl = 3, Obgu = 12, Obleu = 4, Obcc = 13, Obcs = 5, Obpos = 14, Obneg = 6, Obvc = 15, Obvs = 7, OfaddD = 66, OfsubD = 70, OfdivD = 78, OfmulD = 74, Oldf = 32, Ostf = 36, OfDtoQ = 206, OfnegS = 5, OfcmpD = 82, Ofba = 8, Ofbe = 9, Ofbg = 6, Ofbge = 11, Ofbl = 4, Ofble = 13, Ofbne = 1, OfWtoD = 200, OfDtoW = 210, Osave = 60, Orestore= 61, SRCOP = (1<<0), DSTOP = (1<<1), WRTPC = (1<<2), TCHECK = (1<<3), NEWPC = (1<<4), DBRAN = (1<<5), THREOP = (1<<6), ANDAND = 1, OROR = 2, EQAND = 3, MacFRP = 0, MacRET = 1, MacCASE = 2, MacCOLR = 3, MacMCAL = 4, MacFRAM = 5, MacMFRA = 6, NMACRO }; #define OP(n) (n<<30) #define I13(i) ((i)&0x1fff) #define D22(i) ((i)&0x3fffff) #define PC30(pc) (((ulong)(pc) - (ulong)code)>>2) #define CALL(addr) *code=OP(1)|PC30(addr); code++ #define FM2I(op2, i, rd) *code=OP(0)|(rd<<25)|(op2<<22)|D22(i); code++ #define BRA(cond, disp) *code=OP(0)|(cond<<25)|(2<<22)|D22((disp)); code++ #define BRAF(cond, disp) *code=OP(0)|(cond<<25)|(6<<22)|D22((disp)); code++ #define BRADIS(r, o) BRA(r, ((ulong)(base+patch[o])-(ulong)code)>>2) #define BRAFDIS(r, o) BRAF(r, ((ulong)(base+patch[o])-(ulong)code)>>2) #define BRAMAC(r, o) BRA(r, ((ulong)(base+macro[o])-(ulong)code)>>2); #define FM3I(op, op3, i, rs1, rd) *code++=OP(op)|(rd<<25)|(op3<<19)|(rs1<<14)|\ (1<<13)|I13(i) #define FM3(op, op3, rs2, rs1, rd) *code++=OP(op)|(rd<<25)|(op3<<19)|(rs1<<14)|rs2 #define FMF1(opf, rs2, rs1, rd) *code++=OP(2)|(rd<<25)|(52<<19)|(rs1<<14)|(opf<<5)|rs2 #define FMF2(opf, rs2, rs1, rd) *code++=OP(2)|(rd<<25)|(53<<19)|(rs1<<14)|(opf<<5)|rs2 #define NOOP *code++=(4<<22) #define RETURN FM3I(2, Ojmpl, 8, RLINK, RZ); #define MOV(s, d) FM3(2, Oor, s, RZ, d) #define RELPC(pc) (ulong)(base+pc) #define PATCH(ptr) *ptr |= (code-ptr) & 0x3fffff static ulong* code; static ulong* base; static ulong* patch; static int pass; static int puntpc = 1; static Module* mod; static uchar* tinit; static ulong* litpool; static int nlit; static void macfrp(void); static void macret(void); static void maccase(void); static void maccolr(void); static void macmcal(void); static void macfram(void); static void macmfra(void); static ulong macro[NMACRO]; void (*comvec)(void); extern void das(ulong*, int); #define T(r) *((void**)(R.r)) struct { int idx; void (*gen)(void); char* name; } mactab[] = { MacFRP, macfrp, "FRP", /* decrement and free pointer */ MacRET, macret, "RET", /* return instruction */ MacCASE, maccase, "CASE", /* case instruction */ MacCOLR, maccolr, "COLR", /* increment and color pointer */ MacMCAL, macmcal, "MCAL", /* mcall bottom half */ MacFRAM, macfram, "FRAM", /* frame instruction */ MacMFRA, macmfra, "MFRA", /* punt mframe because t->initialize==0 */ }; static void rdestroy(void) { destroy(R.s); } static void rmcall(void) { Prog *p; Frame *f; f = (Frame*)R.FP; if(f == H) error(exModule); f->mr = nil; ((void(*)(Frame*))R.dt)(f); R.SP = (uchar*)f; R.FP = f->fp; if(f->t == nil) unextend(f); else freeptrs(f, f->t); p = currun(); if(p->kill != nil) error(p->kill); } static void rmfram(void) { Type *t; Frame *f; uchar *nsp; if(R.d == H) error(exModule); t = (Type*)R.s; if(t == H) error(exModule); nsp = R.SP + t->size; if(nsp >= R.TS) { R.s = t; extend(); T(d) = R.s; return; } f = (Frame*)R.SP; R.SP = nsp; f->t = t; f->mr = nil; initmem(t, f); T(d) = f; } static void urk(void) { error(exCompile); } static int bc(long c) { c &= ~0xfffL; if (c == 0 || c == ~0xfffL) return 1; return 0; } static void con(ulong o, int r, int opt) { if(opt != 0) { if(bc(o)) { FM3I(2, Oadd, o & 0x1fff, RZ, r); return; } if((o & 0x3ff) == 0) { FM2I(Osethi, o>>10, r); return; } } FM2I(Osethi, o>>10, r); FM3I(2, Oadd, o & 0x3ff, r, r); } static void mem(int inst, ulong disp, int rm, int r) { int op; op = 3; if(inst == Olea) { op = 2; inst = Oadd; } if(bc(disp)) { FM3I(op, inst, disp, rm, r); return; } con(disp, RCON, 1); FM3(op, inst, RCON, rm, r); } static void opwld(Inst *i, int mi, int r) { int ir, rta; switch(UXSRC(i->add)) { default: print("%D\n", i); urk(); case SRC(AFP): mem(mi, i->s.ind, RFP, r); return; case SRC(AMP): mem(mi, i->s.ind, RMP, r); return; case SRC(AIMM): con(i->s.imm, r, 1); if(mi == Olea) { mem(Ostw, O(REG, st), RREG, r); con((ulong)&R.st, r, 1); } return; case SRC(AIND|AFP): ir = RFP; break; case SRC(AIND|AMP): ir = RMP; break; } rta = RTA; if(mi == Olea) rta = r; mem(Oldw, i->s.i.f, ir, rta); mem(mi, i->s.i.s, rta, r); } static void opwst(Inst *i, int mi, int r) { int ir, rta; switch(UXDST(i->add)) { default: print("%D\n", i); urk(); case DST(AIMM): con(i->d.imm, r, 1); return; case DST(AFP): mem(mi, i->d.ind, RFP, r); return; case DST(AMP): mem(mi, i->d.ind, RMP, r); return; case DST(AIND|AFP): ir = RFP; break; case DST(AIND|AMP): ir = RMP; break; } rta = RTA; if(mi == Olea) rta = r; mem(Oldw, i->d.i.f, ir, rta); mem(mi, i->d.i.s, rta, r); } static void opfl(Adr *a, int am, int mi, int r) { int ir; switch(am) { default: urk(); case AFP: mem(mi, a->ind, RFP, r); mem(mi, a->ind+4, RFP, r+1); return; case AMP: mem(mi, a->ind, RMP, r); mem(mi, a->ind+4, RMP, r+1); return; case AIND|AFP: ir = RFP; break; case AIND|AMP: ir = RMP; break; } mem(Oldw, a->i.f, ir, RTA); mem(mi, a->i.s, RTA, r); mem(mi, a->i.s+4, RTA, r+1); } static void opflld(Inst *i, int mi, int r) { opfl(&i->s, USRC(i->add), mi, r); } static void opflst(Inst *i, int mi, int r) { opfl(&i->d, UDST(i->add), mi, r); } static void literal(ulong imm, int roff) { nlit++; con((ulong)litpool, RTA, 0); mem(Ostw, roff, RREG, RTA); if(pass == 0) return; *litpool = imm; litpool++; } static void punt(Inst *i, int m, void (*fn)(void)) { ulong pc; if(m & SRCOP) { if(UXSRC(i->add) == SRC(AIMM)) literal(i->s.imm, O(REG, s)); else { opwld(i, Olea, RA0); mem(Ostw, O(REG, s), RREG, RA0); } } if(m & DSTOP) { opwst(i, Olea, RA0); mem(Ostw, O(REG, d), RREG, RA0); } if(m & WRTPC) { con(RELPC(patch[i-mod->prog+1]), RA0, 0); mem(Ostw, O(REG, PC), RREG, RA0); } if(m & DBRAN) { pc = patch[(Inst*)i->d.imm-mod->prog]; literal(RELPC(pc), O(REG, d)); } switch(i->add&ARM) { case AXNON: if(m & THREOP) { mem(Oldw, O(REG, d), RREG, RA0); mem(Ostw, O(REG, m), RREG, RA0); } break; case AXIMM: literal((short)i->reg, O(REG, m)); break; case AXINF: mem(Olea, i->reg, RFP, RA0); mem(Ostw, O(REG, m), RREG, RA0); break; case AXINM: mem(Olea, i->reg, RMP, RA0); mem(Ostw, O(REG, m), RREG, RA0); break; } CALL(fn); mem(Ostw, O(REG, FP), RREG, RFP); con((ulong)&R, RREG, 1); if(m & TCHECK) { mem(Oldw, O(REG, t), RREG, RA0); FM3I(2, Ocmp, 0, RA0, RZ); BRA(Obe, 5); NOOP; mem(Oldw, O(REG, xpc), RREG, RLINK); RETURN; NOOP; } mem(Oldw, O(REG, FP), RREG, RFP); mem(Oldw, O(REG, MP), RREG, RMP); if(m & NEWPC) { mem(Oldw, O(REG, PC), RREG, RA0); FM3I(2, Ojmpl, 0, RA0, RZ); NOOP; } } static void midfl(Inst *i, int mi, int r) { int ir; switch(i->add&ARM) { default: opflst(i, mi, r); return; case AXIMM: con((short)i->reg, r, 1); return; case AXINF: ir = RFP; break; case AXINM: ir = RMP; break; } mem(mi, i->reg, ir, r); mem(mi, i->reg+4, ir, r+1); } static void mid(Inst *i, int mi, int r) { int ir; switch(i->add&ARM) { default: opwst(i, mi, r); return; case AXIMM: con((short)i->reg, r, 1); return; case AXINF: ir = RFP; break; case AXINM: ir = RMP; break; } mem(mi, i->reg, ir, r); } static void cbral(Inst *i, int jmsw, int jlsw, int mode) { ulong dst, *label; opwld(i, Olea, RA1); mid(i, Olea, RA3); mem(Oldw, 0, RA1, RA2); mem(Oldw, 0, RA3, RA0); FM3(2, Ocmp, RA0, RA2, RZ); label = nil; dst = i->d.ins-mod->prog; switch(mode) { case ANDAND: label = code; BRA(jmsw, 0); break; case OROR: BRADIS(jmsw, dst); break; case EQAND: BRADIS(jmsw, dst); NOOP; label = code; BRA(Obne, 0); break; } NOOP; mem(Oldw, 4, RA3, RA0); mem(Oldw, 4, RA1, RA2); FM3(2, Ocmp, RA0, RA2, RZ); BRADIS(jlsw, dst); if(label != nil) PATCH(label); } static void comcase(Inst *i, int w) { int l; WORD *t, *e; if(w != 0) { opwld(i, Oldw, RA0); // v opwst(i, Olea, RCON); // table BRAMAC(Oba, MacCASE); NOOP; } t = (WORD*)(mod->origmp+i->d.ind+4); l = t[-1]; /* have to take care not to relocate the same table twice - * the limbo compiler can duplicate a case instruction * during its folding phase */ if(pass == 0) { if(l >= 0) t[-1] = -l-1; /* Mark it not done */ return; } if(l >= 0) /* Check pass 2 done */ return; t[-1] = -l-1; /* Set real count */ e = t + t[-1]*3; while(t < e) { t[2] = RELPC(patch[t[2]]); t += 3; } t[0] = RELPC(patch[t[0]]); } static void comcasel(Inst *i) { int l; WORD *t, *e; t = (WORD*)(mod->origmp+i->d.ind+8); l = t[-2]; if(pass == 0) { if(l >= 0) t[-2] = -l-1; /* Mark it not done */ return; } if(l >= 0) /* Check pass 2 done */ return; t[-2] = -l-1; /* Set real count */ e = t + t[-2]*6; while(t < e) { t[4] = RELPC(patch[t[4]]); t += 6; } t[0] = RELPC(patch[t[0]]); } static void commframe(Inst *i) { int o; ulong *punt, *mlnil; opwld(i, Oldw, RA0); FM3I(2, Ocmp, -1, RA0, RZ); mlnil = code; BRA(Obe, 0); NOOP; if((i->add&ARM) == AXIMM) { o = OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, frame); mem(Oldw, o, RA0, RA3); } else { mid(i, Oldw, RA1); FM3I(2, Osll, 3, RA1, RA1); // assumes sizeof(Modl) == 8 FM3(2, Oadd, RA0, RA1, RA1); o = OA(Modlink, links)+O(Modl, frame); mem(Oldw, o, RA1, RA3); } mem(Oldw, O(Type, initialize), RA3, RA1); FM3I(2, Ocmp, 0, RA1, RZ); punt = code; BRA(Obne, 0); NOOP; opwst(i, Olea, RA0); /* Type in RA3, destination in RA0 */ PATCH(mlnil); con(RELPC(patch[i-mod->prog+1])-8, RLINK, 0); BRAMAC(Oba, MacMFRA); NOOP; /* Type in RA3 */ PATCH(punt); CALL(base+macro[MacFRAM]); NOOP; opwst(i, Ostw, RA2); } static void commcall(Inst *i) { opwld(i, Oldw, RA2); con(RELPC(patch[i-mod->prog+1]), RA0, 0); mem(Ostw, O(Frame, lr), RA2, RA0); mem(Ostw, O(Frame, fp), RA2, RFP); mem(Oldw, O(REG, M), RREG, RA3); mem(Ostw, O(Frame, mr), RA2, RA3); opwst(i, Oldw, RA3); if((i->add&ARM) == AXIMM) { CALL(base+macro[MacMCAL]); mem(Oldw, OA(Modlink, links)+i->reg*sizeof(Modl)+O(Modl, u.pc), RA3, RA0); } else { mid(i, Oldw, RA1); FM3I(2, Osll, 3, RA1, RA1); // assumes sizeof(Modl) == 8 FM3(2, Oadd, RA1, RA3, RA0); CALL(base+macro[MacMCAL]); mem(Oldw, OA(Modlink, links)+O(Modl, u.pc), RA0, RA0); } } static void larith(Inst *i, int op, int opc) { opflld(i, Oldw, RA0); midfl(i, Oldw, RA2); FM3(2, op, RA1, RA3, RA1); FM3(2, opc, RA0, RA2, RA0); opflst(i, Ostw, RA0); } static void movloop(Inst *i, int ld, int st) { int s; s = 1; if(ld == Oldw) s = 4; opwld(i, Olea, RA1); opwst(i, Olea, RA2); mem(ld, 0, RA1, RA0); mem(st, 0, RA2, RA0); FM3I(2, Oadd, s, RA2, RA2); FM3I(2, Oaddcc, -1, RA3, RA3); BRA(Obne, -4); FM3I(2, Oadd, s, RA1, RA1); } static void compdbg(void) { print("%s:%d@%.8ux\n", R.M->m->name, R.t, R.st); } static void shll(Inst *i) { ulong *lab0, *lab1, *lab2; opwld(i, Oldw, RA2); midfl(i, Oldw, RA0); FM3I(2, Ocmp, RZ, RA2, RZ); lab0 = code; BRA(Obe, 0); FM3I(2, Ocmp, 32, RA2, RZ); lab1 = code; BRA(Obl, 0); NOOP; FM3I(2, Osub, 32, RA2, RA2); FM3(2, Osll, RA2, RA1, RA0); lab2 = code; BRA(Oba, 0); MOV(RZ, RA1); PATCH(lab1); FM3(2, Osll, RA2, RA0, RA0); con(32, RA3, 1); FM3(2, Osub, RA2, RA3, RA3); FM3(2, Osrl, RA3, RA1, RA3); FM3(2, Oor, RA0, RA3, RA0); FM3(2, Osll, RA2, RA1, RA1); PATCH(lab0); PATCH(lab2); opflst(i, Ostw, RA0); } static void comp(Inst *i) { int r; WORD *t, *e; char buf[64]; if(0) { Inst xx; xx.add = AXIMM|SRC(AIMM); xx.s.imm = (ulong)code; xx.reg = i-mod->prog; puntpc = 0; punt(&xx, SRCOP, compdbg); puntpc = 1; } switch(i->op) { default: snprint(buf, sizeof buf, "%s compile, no '%D'", mod->name, i); error(buf); break; case IMCALL: if((i->add&ARM) == AXIMM) commcall(i); else punt(i, SRCOP|DSTOP|THREOP|WRTPC|NEWPC, optab[i->op]); break; case ISEND: case IRECV: case IALT: punt(i, SRCOP|DSTOP|TCHECK|WRTPC, optab[i->op]); break; case ISPAWN: punt(i, SRCOP|DBRAN, optab[i->op]); break; case IBNEC: case IBEQC: case IBLTC: case IBLEC: case IBGTC: case IBGEC: punt(i, SRCOP|DBRAN|NEWPC|WRTPC, optab[i->op]); break; case ICASEC: comcase(i, 0); punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]); break; case ICASEL: comcasel(i); punt(i, SRCOP|DSTOP|NEWPC, optab[i->op]); break; case IADDC: case IMULL: case IDIVL: case IMODL: case IMODW: case IMODB: case IMNEWZ: punt(i, SRCOP|DSTOP|THREOP, optab[i->op]); break; case ILOAD: case INEWA: case INEWAZ: case INEW: case INEWZ: case ISLICEA: case ISLICELA: case ICONSB: case ICONSW: case ICONSL: case ICONSF: case ICONSM: case ICONSMP: case ICONSP: case IMOVMP: case IHEADMP: case IHEADM: case IHEADB: case IHEADW: case IHEADL: case IHEADF: case IINDC: case ILENC: case IINSC: case ICVTAC: case ICVTCW: case ICVTWC: case ICVTLC: case ICVTCL: case ICVTFC: case ICVTCF: case ICVTRF: case ICVTFR: case IMSPAWN: case ICVTCA: case ISLICEC: case INBALT: punt(i, SRCOP|DSTOP, optab[i->op]); break; case INEWCM: case INEWCMP: punt(i, SRCOP|DSTOP|THREOP, optab[i->op]); break; case IMFRAME: if((i->add&ARM) == AXIMM) commframe(i); else punt(i, SRCOP|DSTOP|THREOP, optab[i->op]); break; case ICASE: comcase(i, 1); break; case IGOTO: opwld(i, Oldw, RA1); opwst(i, Olea, RA0); FM3I(2, Osll, 2, RA1, RA1); FM3(3, Oldw, RA1, RA0, RA0); FM3I(2, Ojmpl, 0, RA0, RZ); NOOP; if(pass == 0) break; t = (WORD*)(mod->origmp+i->d.ind); e = t + t[-1]; t[-1] = 0; while(t < e) { t[0] = RELPC(patch[t[0]]); t++; } break; case IMOVL: movl: opflld(i, Oldw, RA0); opflst(i, Ostw, RA0); break; case IMOVM: if((i->add&ARM) == AXIMM) { if(i->reg == 8) goto movl; if((i->reg&3) == 0) { con(i->reg>>2, RA3, 1); movloop(i, Oldw, Ostw); break; } } mid(i, Oldw, RA3); movloop(i, Oldbu, Ostb); break; case IFRAME: if(UXSRC(i->add) != SRC(AIMM)) { punt(i, SRCOP|DSTOP, optab[i->op]); break; } tinit[i->s.imm] = 1; con((ulong)mod->type[i->s.imm], RA3, 1); CALL(base+macro[MacFRAM]); NOOP; opwst(i, Ostw, RA2); break; case INEWCB: case INEWCW: case INEWCF: case INEWCP: case INEWCL: punt(i, DSTOP|THREOP, optab[i->op]); break; case IEXIT: punt(i, 0, optab[i->op]); break; case ICVTBW: opwld(i, Oldbu, RA0); opwst(i, Ostw, RA0); break; case ICVTWB: opwld(i, Oldw, RA0); opwst(i, Ostb, RA0); break; case ILEA: opwld(i, Olea, RA0); opwst(i, Ostw, RA0); break; case IMOVW: opwld(i, Oldw, RA0); opwst(i, Ostw, RA0); break; case IMOVB: opwld(i, Oldbu, RA0); opwst(i, Ostb, RA0); break; case ICVTSW: opwld(i, Oldsh, RA0); opwst(i, Ostw, RA0); break; case ICVTWS: opwld(i, Oldw, RA0); opwst(i, Osth, RA0); break; case ITAIL: opwld(i, Oldw, RA0); mem(Oldw, O(List, tail), RA0, RA1); goto movp; case IMOVP: case IHEADP: opwld(i, Oldw, RA1); if(i->op == IHEADP) mem(Oldw, OA(List, data), RA1, RA1); movp: FM3I(2, Ocmp, (ulong)H, RA1, RZ); BRA(Obe, 5); con((ulong)&mutator, RA2, 1); CALL(base+macro[MacCOLR]); mem(Oldw, O(Heap, ref)-sizeof(Heap), RA1, RA0); opwst(i, Oldw, RA0); opwst(i, Ostw, RA1); CALL(base+macro[MacFRP]); NOOP; break; case ILENA: opwld(i, Oldw, RA1); FM3I(2, Ocmp, (ulong)H, RA1, RZ); BRA(Obe, 3); con(0, RA0, 1); mem(Oldw, O(Array, len), RA1, RA0); opwst(i, Ostw, RA0); break; case ILENL: con(0, RA0, 1); opwld(i, Oldw, RA1); FM3I(2, Ocmp, (ulong)H, RA1, RZ); BRA(Obe, 5); NOOP; mem(Oldw, O(List, tail), RA1, RA1); BRA(Oba, -4); FM3I(2, Oadd, 1, RA0, RA0); opwst(i, Ostw, RA0); break; case ICALL: opwld(i, Oldw, RA0); con(RELPC(patch[i-mod->prog+1]), RA1, 0); mem(Ostw, O(Frame, lr), RA0, RA1); mem(Ostw, O(Frame, fp), RA0, RFP); BRADIS(Oba, i->d.ins-mod->prog); MOV(RA0, RFP); break; case IJMP: BRADIS(Oba, i->d.ins-mod->prog); NOOP; break; case IBEQW: r = Obe; braw: opwld(i, Oldw, RA1); mid(i, Oldw, RA0); FM3(2, Ocmp, RA0, RA1, RZ); BRADIS(r, i->d.ins-mod->prog); NOOP; break; case IBNEW: r = Obne; goto braw; case IBLTW: r = Obl; goto braw; case IBLEW: r = Oble; goto braw; case IBGTW: r = Obg; goto braw; case IBGEW: r = Obge; goto braw; case IBEQB: r = Obe; brab: opwld(i, Oldbu, RA1); mid(i, Oldbu, RA0); FM3(2, Ocmp, RA0, RA1, RZ); BRADIS(r, i->d.ins-mod->prog); NOOP; break; case IBNEB: r = Obne; goto brab; case IBLTB: r = Obl; goto brab; case IBLEB: r = Oble; goto brab; case IBGTB: r = Obg; goto brab; case IBGEB: r = Obge; goto brab; case IBEQF: r = Ofbe; braf: opflld(i, Oldf, FA4); midfl(i, Oldf, FA2); FMF2(OfcmpD, FA2, FA4, 0); NOOP; BRAFDIS(r, i->d.ins-mod->prog); NOOP; break; case IBNEF: r = Ofbne; goto braf; case IBLTF: r = Ofbl; goto braf; case IBLEF: r = Ofble; goto braf; case IBGTF: r = Ofbg; goto braf; case IBGEF: r = Ofbge; goto braf; case IRET: BRAMAC(Oba, MacRET); mem(Oldw, O(Frame,t), RFP, RA1); break; case IORW: r = Oor; goto arithw; case IANDW: r = Oand; goto arithw; case IXORW: r = Oxor; goto arithw; case ISUBW: r = Osub; goto arithw; case ISHRW: r = Osra; goto arithw; case ISHLW: r = Osll; goto arithw; case ILSRW: r = Osrl; goto arithw; case IMULW: r = Omul; goto arithw; case IDIVW: r = Osdiv; goto arithw; case IADDW: r = Oadd; arithw: mid(i, Oldw, RA1); if(i->op == IDIVW) { FM3I(2, Osra, 31, RA1, RA0); FM3(2, Owry, RZ, RA0, 0); } if(UXSRC(i->add) == SRC(AIMM) && bc(i->s.imm)) FM3I(2, r, i->s.imm, RA1, RA0); else { opwld(i, Oldw, RA0); FM3(2, r, RA0, RA1, RA0); } opwst(i, Ostw, RA0); break; case IORB: r = Oor; goto arithb; case IANDB: r = Oand; goto arithb; case IXORB: r = Oxor; goto arithb; case ISUBB: r = Osub; goto arithb; case IMULB: r = Omul; goto arithb; case IDIVB: FM3(2, Owry, RZ, RZ, 0); r = Osdiv; goto arithb; case IADDB: r = Oadd; arithb: mid(i, Oldbu, RA1); opwld(i, Oldbu, RA0); FM3(2, r, RA0, RA1, RA0); opwst(i, Ostb, RA0); break; case ISHRB: r = Osra; goto shiftb; case ISHLB: r = Osll; shiftb: mid(i, Oldbu, RA1); if(UXSRC(i->add) == SRC(AIMM) && bc(i->s.imm)) FM3I(2, r, i->s.imm, RA1, RA0); else { opwld(i, Oldw, RA0); FM3(2, r, RA0, RA1, RA0); } opwst(i, Ostb, RA0); break; case IINDL: case IINDF: case IINDW: case IINDB: opwld(i, Oldw, RA0); /* a */ r = 0; switch(i->op) { case IINDL: case IINDF: r = 3; break; case IINDW: r = 2; break; } if(UXDST(i->add) == DST(AIMM) && bc(i->d.imm<<r)) { mem(Oldw, O(Array, data), RA0, RA0); FM3I(2, Oadd, (i->d.imm<<r), RA0, RA0); } else { opwst(i, Oldw, RA1); mem(Oldw, O(Array, data), RA0, RA0); if(r != 0) FM3I(2, Osll, r, RA1, RA1); FM3(2, Oadd, RA0, RA1, RA0); } r = RMP; if((i->add&ARM) == AXINF) r = RFP; mem(Ostw, i->reg, r, RA0); break; case IINDX: opwld(i, Oldw, RA0); /* a */ /* r = 0; if(UXDST(i->add) == DST(AIMM) && bc(i->d.imm<<r)) r = i->d.imm<<r; else */ opwst(i, Oldw, RA1); /* i */ mem(Oldw, O(Array, t), RA0, RA2); mem(Oldw, O(Array, data), RA0, RA0); mem(Oldw, O(Type, size), RA2, RA2); /* if(r != 0) FM3I(2, Oumul, r, RA2, RA1); else */ FM3(2, Oumul, RA1, RA2, RA1); FM3(2, Oadd, RA0, RA1, RA0); r = RMP; if((i->add&ARM) == AXINF) r = RFP; mem(Ostw, i->reg, r, RA0); break; case IADDL: larith(i, Oaddcc, Oaddx); break; case ISUBL: larith(i, Osubcc, Osubx); break; case IORL: larith(i, Oor, Oor); break; case IANDL: larith(i, Oand, Oand); break; case IXORL: larith(i, Oxor, Oxor); break; case ICVTWL: opwld(i, Oldw, RA1); FM3I(2, Osra, 31, RA1, RA0); opflst(i, Ostw, RA0); break; case ICVTLW: opwld(i, Olea, RA0); mem(Oldw, 4, RA0, RA0); opwst(i, Ostw, RA0); break; case IBEQL: cbral(i, Obne, Obe, ANDAND); break; case IBNEL: cbral(i, Obne, Obne, OROR); break; case IBLEL: cbral(i, Obl, Obleu, EQAND); break; case IBGTL: cbral(i, Obg, Obgu, EQAND); break; case IBLTL: cbral(i, Obl, Obcs, EQAND); break; case IBGEL: cbral(i, Obg, Obcc, EQAND); break; case IMOVF: opflld(i, Oldf, FA2); opflst(i, Ostf, FA2); break; case IDIVF: r = OfdivD; goto arithf; case IMULF: r = OfmulD; goto arithf; case ISUBF: r = OfsubD; goto arithf; case IADDF: r = OfaddD; arithf: opflld(i, Oldf, FA2); midfl(i, Oldf, FA4); FMF1(r, FA2, FA4, FA4); opflst(i, Ostf, FA4); break; case INEGF: opflld(i, Oldf, FA2); FMF1(OfnegS, FA2, 0, FA2); opflst(i, Ostf, FA2); break; case ICVTFL: // >= Sparc 8 // opflld(i, Oldf, FA2); // FMF1(OfDtoQ, FA2, 0, FA2); // opflst(i, Ostf, FA2); punt(i, SRCOP|DSTOP, optab[i->op]); break; case ICVTLF: // >= Sparc 8 // opflld(i, Oldf, FA2); // FMF1(OfQtoD, FA2, 0, FA2); // opflst(i, Ostf, FA2); punt(i, SRCOP|DSTOP, optab[i->op]); break; case ICVTWF: opwld(i, Oldf, FA2); FMF1(OfWtoD, FA2, 0, FA2); opflst(i, Ostf, FA2); break; case ICVTFW: opflld(i, Oldf, FA2); FMF1(OfDtoW, FA2, 0, FA2); opwst(i, Ostf, FA2); break; case ISHLL: shll(i); break; case ISHRL: case ILSRL: punt(i, SRCOP|DSTOP|THREOP, optab[i->op]); break; case IRAISE: punt(i, SRCOP|WRTPC|NEWPC, optab[i->op]); break; case IMULX: case IDIVX: case ICVTXX: case IMULX0: case IDIVX0: case ICVTXX0: case IMULX1: case IDIVX1: case ICVTXX1: case ICVTFX: case ICVTXF: case IEXPW: case IEXPL: case IEXPF: punt(i, SRCOP|DSTOP|THREOP, optab[i->op]); break; case ISELF: punt(i, DSTOP, optab[i->op]); break; } } static void preamble(void) { ulong *start; if(comvec) return; comvec = malloc(10 * sizeof(*code)); if(comvec == nil) error(exNomem); code = (ulong*)comvec; start = code; con((ulong)&R, RREG, 1); mem(Ostw, O(REG, xpc), RREG, RLINK); mem(Oldw, O(REG, PC), RREG, RA0); mem(Oldw, O(REG, FP), RREG, RFP); FM3I(2, Ojmpl, 0, RA0, RZ); mem(Oldw, O(REG, MP), RREG, RMP); segflush(comvec, 10 * sizeof(*code)); if(cflag > 4) { print("comvec:\n"); das(start, code-start); } } static void maccase(void) { ulong *loop, *def, *lab1; mem(Oldw, 0, RCON, RA3); // n = t[0] FM3I(2, Oadd, 4, RCON, RCON); MOV(RA3, RA1); FM3I(2, Osll, 1, RA1, RA1); FM3(2, Oadd, RA3, RA1, RA1); FM3I(2, Osll, 2, RA1, RA1); FM3(3, Oldw, RCON, RA1, RLINK); loop = code; FM3(2, Ocmp, RZ, RA3, RZ); def = code; BRA(Oble, 0); NOOP; MOV(RA3, RA2); // MOVL DX, CX n2 = n FM3I(2, Osra, 1, RA2, RA2); // SHR CX,1 n2 = n2>>1 MOV(RA2, RA1); FM3I(2, Osll, 1, RA1, RA1); FM3(2, Oadd, RA2, RA1, RA1); FM3I(2, Osll, 2, RA1, RA1); FM3(3, Oldw, RA1, RCON, RTA); // MOV (RA1+RCON), RTA FM3(2, Ocmp, RTA, RA0, RZ); lab1 = code; BRA(Obge, 0); NOOP; MOV(RA2, RA3); // n = n2 BRA(Oba, loop-code); NOOP; PATCH(lab1); FM3I(2, Oadd, 4, RA1, RTA); FM3(3, Oldw, RTA, RCON, RTA); // MOV (RA1+RCON), RTA FM3(2, Ocmp, RTA, RA0, RZ); lab1 = code; BRA(Obl, 0); NOOP; FM3I(2, Oadd, 12, RA1, RTA); FM3(2, Oadd, RTA, RCON, RCON); FM3(2, Osub, RA2, RA3, RA3); // SUBL CX, DX n -= n2 FM3I(2, Oadd, -1, RA3, RA3); // DECL DX n -= 1 BRA(Oba, loop-code); NOOP; PATCH(lab1); FM3I(2, Oadd, 8, RA1, RTA); FM3(3, Oldw, RTA, RCON, RLINK); PATCH(def); FM3I(2, Ojmpl, 0, RLINK, RZ); NOOP; } static void macfrp(void) { ulong *lab1, *lab2; /* destroy the pointer in RA0 */ FM3I(2, Ocmp, -1, RA0, RZ); lab1 = code; BRA(Obe, 0); NOOP; mem(Oldw, O(Heap, ref)-sizeof(Heap), RA0, RA2); FM3I(2, Oadd, -1, RA2, RA2); FM3I(2, Ocmp, 0, RA2, RZ); lab2 = code; BRA(Obne, 0); NOOP; mem(Ostw, O(REG, FP), RREG, RFP); mem(Ostw, O(REG, st), RREG, RLINK); CALL(rdestroy); mem(Ostw, O(REG, s), RREG, RA0); con((ulong)&R, RREG, 1); mem(Oldw, O(REG, st), RREG, RLINK); mem(Oldw, O(REG, FP), RREG, RFP); RETURN; mem(Oldw, O(REG, MP), RREG, RMP); PATCH(lab2); mem(Ostw, O(Heap, ref)-sizeof(Heap), RA0, RA2); PATCH(lab1); RETURN; NOOP; } static void macret(void) { Inst i; ulong *cp1, *cp2, *cp3, *cp4, *cp5, *cp6; FM3I(2, Ocmp, 0, RA1, RZ); cp1 = code; BRA(Obe, 0); // t(Rfp) == 0 NOOP; mem(Oldw, O(Type,destroy),RA1, RA0); FM3I(2, Ocmp, 0, RA0, RZ); cp2 = code; BRA(Obe, 0); // destroy(t(fp)) == 0 NOOP; mem(Oldw, O(Frame,fp),RFP, RA2); FM3I(2, Ocmp, 0, RA2, RZ); cp3 = code; BRA(Obe, 0); // fp(Rfp) == 0 NOOP; mem(Oldw, O(Frame,mr),RFP, RA3); FM3I(2, Ocmp, 0, RA3, RZ); cp4 = code; BRA(Obe, 0); // mr(Rfp) == 0 NOOP; mem(Oldw, O(REG,M),RREG, RA2); mem(Oldw, O(Heap,ref)-sizeof(Heap),RA2, RA3); FM3I(2, Oaddcc, -1, RA3, RA3); cp5 = code; BRA(Obe, 0); // --ref(arg) == 0 NOOP; mem(Ostw, O(Heap,ref)-sizeof(Heap),RA2, RA3); mem(Oldw, O(Frame,mr),RFP, RA1); mem(Ostw, O(REG,M),RREG, RA1); mem(Oldw, O(Modlink,compiled),RA1, RA2); // check for uncompiled code mem(Oldw, O(Modlink,MP),RA1, RMP); FM3I(2, Ocmp, 0, RA2, RZ); cp6 = code; BRA(Obe, 0); NOOP; mem(Ostw, O(REG,MP),RREG, RMP); PATCH(cp4); FM3I(2, Ojmpl, 0, RA0, RLINK); // call destroy(t(fp)) NOOP; mem(Ostw, O(REG,SP),RREG, RFP); mem(Oldw, O(Frame,lr),RFP, RA1); mem(Oldw, O(Frame,fp),RFP, RFP); mem(Ostw, O(REG,FP),RREG, RFP); FM3I(2, Ojmpl, 0, RA1, RZ); // goto lr(Rfp) NOOP; PATCH(cp6); FM3I(2, Ojmpl, 0, RA0, RLINK); // call destroy(t(fp)) NOOP; mem(Ostw, O(REG,SP),RREG, RFP); mem(Oldw, O(Frame,lr),RFP, RA1); mem(Oldw, O(Frame,fp),RFP, RFP); mem(Ostw, O(REG,FP),RREG, RFP); mem(Oldw, O(REG,xpc),RREG, RA2); FM3I(2, Oadd, 0x8, RA2, RA2); FM3I(2, Ojmpl, 0, RA2, RZ); // return to uncompiled code mem(Ostw, O(REG,PC),RREG, RA1); PATCH(cp1); PATCH(cp2); PATCH(cp3); PATCH(cp5); i.add = AXNON; punt(&i, TCHECK|NEWPC, optab[IRET]); } static void maccolr(void) { ulong *br; /* color the pointer in RA1 */ FM3I(2, Oadd, 1, RA0, RA0); mem(Ostw, O(Heap, ref)-sizeof(Heap), RA1, RA0); mem(Oldw, O(Heap, color)-sizeof(Heap), RA1, RA0); mem(Oldw, 0, RA2, RA2); FM3(2, Ocmp, RA0, RA2, RZ); br = code; BRA(Obe, 0); con(propagator, RA2, 1); mem(Ostw, O(Heap, color)-sizeof(Heap), RA1, RA2); con((ulong)&nprop, RA2, 1); RETURN; mem(Ostw, 0, RA2, RA2); PATCH(br); RETURN; NOOP; } static void macmcal(void) { ulong *lab1, *lab2; mem(Oldw, O(Modlink, prog), RA3, RA1); FM3I(2, Ocmp, 0, RA1, RZ); lab1 = code; BRA(Obne, 0); NOOP; mem(Ostw, O(REG, st), RREG, RLINK); mem(Ostw, O(REG, FP), RREG, RA2); CALL(rmcall); // CALL rmcall mem(Ostw, O(REG, dt), RREG, RA0); con((ulong)&R, RREG, 1); // MOVL $R, RREG mem(Oldw, O(REG, st), RREG, RLINK); mem(Oldw, O(REG, FP), RREG, RFP); mem(Oldw, O(REG, MP), RREG, RMP); RETURN; NOOP; PATCH(lab1); // patch: FM3(2, Oor, RA2, RZ, RFP); mem(Ostw, O(REG, M), RREG, RA3); // MOVL RA3, R.M mem(Oldw, O(Heap, ref)-sizeof(Heap), RA3, RA1); FM3I(2, Oadd, 1, RA1, RA1); mem(Ostw, O(Heap, ref)-sizeof(Heap), RA3, RA1); mem(Oldw, O(Modlink, compiled), RA3, RA1); mem(Oldw, O(Modlink, MP), RA3, RMP); // MOVL R.M->MP, RMP FM3I(2, Ocmp, 0, RA1, RZ); lab2 = code; BRA(Obe, 0); mem(Ostw, O(REG, MP), RREG, RMP); // MOVL RA3, R.MP R.MP = ml->MP FM3I(2, Ojmpl, 0, RA0, RZ); NOOP; PATCH(lab2); mem(Ostw, O(REG,FP),RREG, RFP); mem(Oldw, O(REG,xpc),RREG, RA1); FM3I(2, Oadd, 0x8, RA1, RA1); FM3I(2, Ojmpl, 0, RA1, RZ); // call to uncompiled code mem(Ostw, O(REG,PC),RREG, RA0); } static void macfram(void) { ulong *lab1; mem(Oldw, O(REG, SP), RREG, RA0); // MOVL R.SP, RA0 mem(Oldw, O(Type, size), RA3, RA1); FM3(2, Oadd, RA0, RA1, RA0); mem(Oldw, O(REG, TS), RREG, RA1); FM3(2, Ocmp, RA1, RA0, RZ); lab1 = code; BRA(Obl, 0); NOOP; mem(Ostw, O(REG, s), RREG, RA3); mem(Ostw, O(REG, st), RREG, RLINK); CALL(extend); // CALL extend mem(Ostw, O(REG, FP), RREG, RFP); // MOVL RFP, R.FP con((ulong)&R, RREG, 1); mem(Oldw, O(REG, st), RREG, RLINK); mem(Oldw, O(REG, FP), RREG, RFP); // MOVL R.MP, RMP mem(Oldw, O(REG, s), RREG, RA2); // MOVL R.s, *R.d mem(Oldw, O(REG, MP), RREG, RMP); // MOVL R.MP, RMP RETURN; // RET NOOP; PATCH(lab1); mem(Oldw, O(REG, SP), RREG, RA2); // MOVL R.SP, RA2 mem(Ostw, O(REG, SP), RREG, RA0); // MOVL RA0, R.SP mem(Ostw, O(Frame, t), RA2, RA3); // MOVL RA3, t(RA2) f->t = t mem(Oldw, O(Type, initialize), RA3, RA3); FM3I(2, Ojmpl, 0, RA3, RZ); mem(Ostw, REGMOD*4, RA2, RZ); // MOVL $0, mr(RA2) f->mr } static void macmfra(void) { mem(Ostw, O(REG, st), RREG, RLINK); mem(Ostw, O(REG, s), RREG, RA3); // Save type mem(Ostw, O(REG, d), RREG, RA0); // Save destination CALL(rmfram); // CALL rmfram mem(Ostw, O(REG, FP), RREG, RFP); con((ulong)&R, RREG, 1); mem(Oldw, O(REG, st), RREG, RLINK); mem(Oldw, O(REG, FP), RREG, RFP); mem(Oldw, O(REG, MP), RREG, RMP); RETURN; NOOP; } void comd(Type *t) { int i, j, m, c; mem(Ostw, O(REG, dt), RREG, RLINK); for(i = 0; i < t->np; i++) { c = t->map[i]; j = i<<5; for(m = 0x80; m != 0; m >>= 1) { if(c & m) { CALL(base+macro[MacFRP]); mem(Oldw, j, RFP, RA0); } j += sizeof(WORD*); } } mem(Oldw, O(REG, dt), RREG, RLINK); RETURN; NOOP; } void comi(Type *t) { int i, j, m, c; con((ulong)H, RA0, 1); for(i = 0; i < t->np; i++) { c = t->map[i]; j = i<<5; for(m = 0x80; m != 0; m >>= 1) { if(c & m) mem(Ostw, j, RA2, RA0); j += sizeof(WORD*); } } RETURN; NOOP; } void typecom(Type *t) { int n; ulong *tmp, *start; if(t == nil || t->initialize != 0) return; tmp = mallocz(4096*sizeof(ulong), 0); if(tmp == nil) error(exNomem); code = tmp; comi(t); n = code - tmp; code = tmp; comd(t); n += code - tmp; free(tmp); n *= sizeof(*code); code = mallocz(n, 0); if(code == nil) return; start = code; t->initialize = code; comi(t); t->destroy = code; comd(t); segflush(start, n); if(cflag > 1) print("typ= %.8p %4d i %.8p d %.8p asm=%d\n", t, t->size, t->initialize, t->destroy, n); } static void patchex(Module *m, ulong *p) { Handler *h; Except *e; if((h = m->htab) == nil) return; for( ; h->etab != nil; h++){ h->pc1 = p[h->pc1]; h->pc2 = p[h->pc2]; for(e = h->etab; e->s != nil; e++) e->pc = p[e->pc]; if(e->pc != -1) e->pc = p[e->pc]; } } int compile(Module *m, int size, Modlink *ml) { Link *l; Modl *e; int i, n; ulong *s, *tmp; base = nil; patch = mallocz(size*sizeof(*patch), 0); tinit = malloc(m->ntype*sizeof(*tinit)); tmp = mallocz(1024*sizeof(ulong), 0); if(tinit == nil || patch == nil || tmp == nil) goto bad; preamble(); mod = m; n = 0; pass = 0; nlit = 0; for(i = 0; i < size; i++) { code = tmp; comp(&m->prog[i]); patch[i] = n; n += code - tmp; } for(i = 0; i < nelem(mactab); i++) { code = tmp; mactab[i].gen(); macro[mactab[i].idx] = n; n += code - tmp; } base = mallocz((n+nlit)*sizeof(*code), 0); if(base == nil) goto bad; if(cflag > 1) print("dis=%5d %5d sparc=%5d asm=%.8p lit=%d: %s\n", size, size*sizeof(Inst), n, base, nlit, m->name); pass++; nlit = 0; litpool = base+n; code = base; for(i = 0; i < size; i++) { s = code; comp(&m->prog[i]); if(cflag > 2) { print("%d %D\n", i, &m->prog[i]); das(s, code-s); } } for(i = 0; i < nelem(mactab); i++) { s = code; mactab[i].gen(); if(cflag > 2) { print("%s:\n", mactab[i].name); das(s, code-s); } } if(n != (code - base)) error(exCphase); for(l = m->ext; l->name; l++) { l->u.pc = (Inst*)RELPC(patch[l->u.pc-m->prog]); typecom(l->frame); } if(ml != nil) { e = &ml->links[0]; for(i = 0; i < ml->nlinks; i++) { e->u.pc = (Inst*)RELPC(patch[e->u.pc-m->prog]); typecom(e->frame); e++; } } for(i = 0; i < m->ntype; i++) { if(tinit[i] != 0) typecom(m->type[i]); } patchex(m, patch); m->entry = (Inst*)RELPC(patch[mod->entry-mod->prog]); free(patch); free(tinit); free(tmp); free(m->prog); m->prog = (Inst*)base; m->compiled = 1; segflush(base, n*sizeof(*base)); return 1; bad: free(patch); free(tinit); free(tmp); free(base); return 0; }