123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323 |
- #include "l.h"
- long OFFSET;
- /*
- long BADOFFSET = -1;
- if(OFFSET <= BADOFFSET && OFFSET+4 > BADOFFSET)\
- abort();\
- OFFSET += 4;\
- if(OFFSET == BADOFFSET)\
- abort();\
- OFFSET++;\
- */
- #define LPUT(c)\
- {\
- cbp[0] = (c)>>24;\
- cbp[1] = (c)>>16;\
- cbp[2] = (c)>>8;\
- cbp[3] = (c);\
- cbp += 4;\
- cbc -= 4;\
- if(cbc <= 0)\
- cflush();\
- }
- #define CPUT(c)\
- {\
- cbp[0] = (c);\
- cbp++;\
- cbc--;\
- if(cbc <= 0)\
- cflush();\
- }
- long
- entryvalue(void)
- {
- char *a;
- Sym *s;
- a = INITENTRY;
- if(*a >= '0' && *a <= '9')
- return atolwhex(a);
- s = lookup(a, 0);
- if(s->type == 0)
- return INITTEXT;
- if(s->type != STEXT && s->type != SLEAF)
- diag("entry not text: %s", s->name);
- return s->value;
- }
- void
- asmb(void)
- {
- Prog *p;
- long t;
- Optab *o;
- if(debug['v'])
- Bprint(&bso, "%5.2f asm\n", cputime());
- Bflush(&bso);
- OFFSET = HEADR;
- seek(cout, OFFSET, 0);
- pc = INITTEXT;
- for(p = firstp; p != P; p = p->link) {
- if(p->as == ATEXT) {
- curtext = p;
- autosize = p->to.offset + 4;
- }
- if(p->pc != pc) {
- diag("phase error %lux sb %lux\n",
- p->pc, pc);
- if(!debug['a'])
- prasm(curp);
- pc = p->pc;
- }
- curp = p;
- o = oplook(p); /* could probably avoid this call */
- if(asmout(p, o, 0)) {
- p = p->link;
- pc += 4;
- }
- pc += o->size;
- }
- if(debug['a'])
- Bprint(&bso, "\n");
- Bflush(&bso);
- cflush();
- curtext = P;
- switch(HEADTYPE) {
- case 4:
- OFFSET = rnd(HEADR+textsize, 4096);
- seek(cout, OFFSET, 0);
- break;
- case 0:
- case 1:
- case 2:
- case 3:
- case 5:
- OFFSET = HEADR+textsize;
- seek(cout, OFFSET, 0);
- break;
- }
- for(t = 0; t < datsize; t += sizeof(buf)-100) {
- if(datsize-t > sizeof(buf)-100)
- datblk(t, sizeof(buf)-100);
- else
- datblk(t, datsize-t);
- }
- symsize = 0;
- lcsize = 0;
- if(!debug['s']) {
- if(debug['v'])
- Bprint(&bso, "%5.2f sym\n", cputime());
- Bflush(&bso);
- switch(HEADTYPE) {
- case 4:
- OFFSET = rnd(HEADR+textsize, 4096)+datsize;
- seek(cout, OFFSET, 0);
- break;
- case 0:
- case 3:
- case 2:
- case 1:
- case 5:
- OFFSET = HEADR+textsize+datsize;
- seek(cout, OFFSET, 0);
- break;
- }
- if(!debug['s'])
- asmsym();
- if(debug['v'])
- Bprint(&bso, "%5.2f pc\n", cputime());
- Bflush(&bso);
- if(!debug['s'])
- asmlc();
- cflush();
- }
- if(debug['v'])
- Bprint(&bso, "%5.2f header\n", cputime());
- Bflush(&bso);
- OFFSET = 0;
- seek(cout, OFFSET, 0);
- switch(HEADTYPE) {
- case 0:
- break;
- case 1:
- lput(0x160L<<16); /* magic and sections */
- lput(0L); /* time and date */
- lput(HEADR+textsize+datsize);
- lput(symsize); /* nsyms */
- lput((0x38L<<16)|7L); /* size of optional hdr and flags */
- lput((0407<<16)|0437L); /* magic and version */
- lput(textsize); /* sizes */
- lput(datsize);
- lput(bsssize);
- lput(entryvalue()); /* va of entry */
- lput(INITTEXT); /* va of base of text */
- lput(INITDAT); /* va of base of data */
- lput(INITDAT+datsize); /* va of base of bss */
- lput(~0L); /* gp reg mask */
- lput(lcsize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(~0L); /* gp value ?? */
- lput(0L); /* complete mystery */
- break;
- case 2:
- lput(1451); /* magic */
- lput(textsize); /* sizes */
- lput(datsize);
- lput(bsssize);
- lput(symsize); /* nsyms */
- lput(entryvalue()); /* va of entry */
- lput(0L);
- lput(lcsize);
- break;
- case 3:
- lput((0x160L<<16)|3L); /* magic and sections */
- lput(time(0)); /* time and date */
- lput(HEADR+textsize+datsize);
- lput(symsize); /* nsyms */
- lput((0x38L<<16)|7L); /* size of optional hdr and flags */
- lput((0407<<16)|0437L); /* magic and version */
- lput(textsize); /* sizes */
- lput(datsize);
- lput(bsssize);
- lput(entryvalue()); /* va of entry */
- lput(INITTEXT); /* va of base of text */
- lput(INITDAT); /* va of base of data */
- lput(INITDAT+datsize); /* va of base of bss */
- lput(~0L); /* gp reg mask */
- lput(lcsize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(~0L); /* gp value ?? */
- strnput(".text", 8); /* text segment */
- lput(INITTEXT); /* address */
- lput(INITTEXT);
- lput(textsize);
- lput(HEADR);
- lput(0L);
- lput(HEADR+textsize+datsize+symsize);
- lput(lcsize); /* line number size */
- lput(0x20L); /* flags */
- strnput(".data", 8); /* data segment */
- lput(INITDAT); /* address */
- lput(INITDAT);
- lput(datsize);
- lput(HEADR+textsize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0x40L); /* flags */
- strnput(".bss", 8); /* bss segment */
- lput(INITDAT+datsize); /* address */
- lput(INITDAT+datsize);
- lput(bsssize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0x80L); /* flags */
- break;
- case 4:
- lput((0x160L<<16)|3L); /* magic and sections */
- lput(time(0)); /* time and date */
- lput(rnd(HEADR+textsize, 4096)+datsize);
- lput(symsize); /* nsyms */
- lput((0x38L<<16)|7L); /* size of optional hdr and flags */
- lput((0413<<16)|01012L); /* magic and version */
- lput(textsize); /* sizes */
- lput(datsize);
- lput(bsssize);
- lput(entryvalue()); /* va of entry */
- lput(INITTEXT); /* va of base of text */
- lput(INITDAT); /* va of base of data */
- lput(INITDAT+datsize); /* va of base of bss */
- lput(~0L); /* gp reg mask */
- lput(lcsize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(~0L); /* gp value ?? */
- strnput(".text", 8); /* text segment */
- lput(INITTEXT); /* address */
- lput(INITTEXT);
- lput(textsize);
- lput(HEADR);
- lput(0L);
- lput(HEADR+textsize+datsize+symsize);
- lput(lcsize); /* line number size */
- lput(0x20L); /* flags */
- strnput(".data", 8); /* data segment */
- lput(INITDAT); /* address */
- lput(INITDAT);
- lput(datsize);
- lput(rnd(HEADR+textsize, 4096)); /* sizes */
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0x40L); /* flags */
- strnput(".bss", 8); /* bss segment */
- lput(INITDAT+datsize); /* address */
- lput(INITDAT+datsize);
- lput(bsssize);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0L);
- lput(0x80L); /* flags */
- break;
- case 5:
- strnput("\177ELF", 4); /* e_ident */
- CPUT(1); /* class = 32 bit */
- CPUT(2); /* data = MSB */
- CPUT(1); /* version = CURRENT */
- strnput("", 9);
- lput((2L<<16)|8L); /* type = EXEC; machine = MIPS */
- lput(1L); /* version = CURRENT */
- lput(entryvalue()); /* entry vaddr */
- lput(52L); /* offset to first phdr */
- lput(0L); /* offset to first shdr */
- lput(0L); /* flags = MIPS */
- lput((52L<<16)|32L); /* Ehdr & Phdr sizes*/
- lput((3L<<16)|0L); /* # Phdrs & Shdr size */
- lput((0L<<16)|0L); /* # Shdrs & shdr string size */
- lput(1L); /* text - type = PT_LOAD */
- lput(0L); /* file offset */
- lput(INITTEXT-HEADR); /* vaddr */
- lput(INITTEXT-HEADR); /* paddr */
- lput(HEADR+textsize); /* file size */
- lput(HEADR+textsize); /* memory size */
- lput(0x05L); /* protections = RWX */
- lput(0x10000L); /* alignment code?? */
- lput(1L); /* data - type = PT_LOAD */
- lput(HEADR+textsize); /* file offset */
- lput(INITDAT); /* vaddr */
- lput(INITDAT); /* paddr */
- lput(datsize); /* file size */
- lput(datsize+bsssize); /* memory size */
- lput(0x06L); /* protections = RW */
- lput(0x10000L); /* alignment code?? */
- lput(0L); /* data - type = PT_NULL */
- lput(HEADR+textsize+datsize); /* file offset */
- lput(0L);
- lput(0L);
- lput(symsize); /* symbol table size */
- lput(lcsize); /* line number size */
- lput(0x04L); /* protections = R */
- lput(0x04L); /* alignment code?? */
- }
- cflush();
- }
- void
- strnput(char *s, int n)
- {
- for(; *s; s++){
- CPUT(*s);
- n--;
- }
- for(; n > 0; n--)
- CPUT(0);
- }
- void
- lput(long l)
- {
- LPUT(l);
- }
- void
- cflush(void)
- {
- int n;
- n = sizeof(buf.cbuf) - cbc;
- if(n)
- write(cout, buf.cbuf, n);
- cbp = buf.cbuf;
- cbc = sizeof(buf.cbuf);
- }
- void
- nopstat(char *f, Count *c)
- {
- if(c->outof)
- Bprint(&bso, "%s delay %ld/%ld (%.2f)\n", f,
- c->outof - c->count, c->outof,
- (double)(c->outof - c->count)/c->outof);
- }
- void
- asmsym(void)
- {
- Prog *p;
- Auto *a;
- Sym *s;
- int h;
- s = lookup("etext", 0);
- if(s->type == STEXT)
- putsymb(s->name, 'T', s->value, s->version);
- for(h=0; h<NHASH; h++)
- for(s=hash[h]; s!=S; s=s->link)
- switch(s->type) {
- case SCONST:
- putsymb(s->name, 'D', s->value, s->version);
- continue;
- case SDATA:
- putsymb(s->name, 'D', s->value+INITDAT, s->version);
- continue;
- case SBSS:
- putsymb(s->name, 'B', s->value+INITDAT, s->version);
- continue;
- case SFILE:
- putsymb(s->name, 'f', s->value, s->version);
- continue;
- }
- for(p=textp; p!=P; p=p->cond) {
- s = p->from.sym;
- if(s->type != STEXT && s->type != SLEAF)
- continue;
- /* filenames first */
- for(a=p->to.autom; a; a=a->link)
- if(a->type == D_FILE)
- putsymb(a->sym->name, 'z', a->offset, 0);
- else
- if(a->type == D_FILE1)
- putsymb(a->sym->name, 'Z', a->offset, 0);
- if(s->type == STEXT)
- putsymb(s->name, 'T', s->value, s->version);
- else
- putsymb(s->name, 'L', s->value, s->version);
- /* frame, auto and param after */
- putsymb(".frame", 'm', p->to.offset+4, 0);
- for(a=p->to.autom; a; a=a->link)
- if(a->type == D_AUTO)
- putsymb(a->sym->name, 'a', -a->offset, 0);
- else
- if(a->type == D_PARAM)
- putsymb(a->sym->name, 'p', a->offset, 0);
- }
- if(debug['v'] || debug['n'])
- Bprint(&bso, "symsize = %lud\n", symsize);
- Bflush(&bso);
- }
- void
- putsymb(char *s, int t, long v, int ver)
- {
- int i, f;
- if(t == 'f')
- s++;
- LPUT(v);
- if(ver)
- t += 'a' - 'A';
- CPUT(t+0x80); /* 0x80 is variable length */
- if(t == 'Z' || t == 'z') {
- CPUT(s[0]);
- for(i=1; s[i] != 0 || s[i+1] != 0; i += 2) {
- CPUT(s[i]);
- CPUT(s[i+1]);
- }
- CPUT(0);
- CPUT(0);
- i++;
- }
- else {
- for(i=0; s[i]; i++)
- CPUT(s[i]);
- CPUT(0);
- }
- symsize += 4 + 1 + i + 1;
- if(debug['n']) {
- if(t == 'z' || t == 'Z') {
- Bprint(&bso, "%c %.8lux ", t, v);
- for(i=1; s[i] != 0 || s[i+1] != 0; i+=2) {
- f = ((s[i]&0xff) << 8) | (s[i+1]&0xff);
- Bprint(&bso, "/%x", f);
- }
- Bprint(&bso, "\n");
- return;
- }
- if(ver)
- Bprint(&bso, "%c %.8lux %s<%d>\n", t, v, s, ver);
- else
- Bprint(&bso, "%c %.8lux %s\n", t, v, s);
- }
- }
- #define MINLC 4
- void
- asmlc(void)
- {
- long oldpc, oldlc;
- Prog *p;
- long v, s;
- oldpc = INITTEXT;
- oldlc = 0;
- for(p = firstp; p != P; p = p->link) {
- if(p->line == oldlc || p->as == ATEXT || p->as == ANOP) {
- if(p->as == ATEXT)
- curtext = p;
- if(debug['L'])
- Bprint(&bso, "%6lux %P\n",
- p->pc, p);
- continue;
- }
- if(debug['L'])
- Bprint(&bso, "\t\t%6ld", lcsize);
- v = (p->pc - oldpc) / MINLC;
- while(v) {
- s = 127;
- if(v < 127)
- s = v;
- CPUT(s+128); /* 129-255 +pc */
- if(debug['L'])
- Bprint(&bso, " pc+%ld*%d(%ld)", s, MINLC, s+128);
- v -= s;
- lcsize++;
- }
- s = p->line - oldlc;
- oldlc = p->line;
- oldpc = p->pc + MINLC;
- if(s > 64 || s < -64) {
- CPUT(0); /* 0 vv +lc */
- CPUT(s>>24);
- CPUT(s>>16);
- CPUT(s>>8);
- CPUT(s);
- if(debug['L']) {
- if(s > 0)
- Bprint(&bso, " lc+%ld(%d,%ld)\n",
- s, 0, s);
- else
- Bprint(&bso, " lc%ld(%d,%ld)\n",
- s, 0, s);
- Bprint(&bso, "%6lux %P\n",
- p->pc, p);
- }
- lcsize += 5;
- continue;
- }
- if(s > 0) {
- CPUT(0+s); /* 1-64 +lc */
- if(debug['L']) {
- Bprint(&bso, " lc+%ld(%ld)\n", s, 0+s);
- Bprint(&bso, "%6lux %P\n",
- p->pc, p);
- }
- } else {
- CPUT(64-s); /* 65-128 -lc */
- if(debug['L']) {
- Bprint(&bso, " lc%ld(%ld)\n", s, 64-s);
- Bprint(&bso, "%6lux %P\n",
- p->pc, p);
- }
- }
- lcsize++;
- }
- while(lcsize & 1) {
- s = 129;
- CPUT(s);
- lcsize++;
- }
- if(debug['v'] || debug['L'])
- Bprint(&bso, "lcsize = %ld\n", lcsize);
- Bflush(&bso);
- }
- void
- datblk(long s, long n)
- {
- Prog *p;
- char *cast;
- long l, fl, j, d;
- int i, c;
- memset(buf.dbuf, 0, n+100);
- for(p = datap; p != P; p = p->link) {
- curp = p;
- l = p->from.sym->value + p->from.offset - s;
- c = p->reg;
- i = 0;
- if(l < 0) {
- if(l+c <= 0)
- continue;
- while(l < 0) {
- l++;
- i++;
- }
- }
- if(l >= n)
- continue;
- if(p->as != AINIT && p->as != ADYNT) {
- for(j=l+(c-i)-1; j>=l; j--)
- if(buf.dbuf[j]) {
- print("%P\n", p);
- diag("multiple initialization\n");
- break;
- }
- }
- switch(p->to.type) {
- default:
- diag("unknown mode in initialization\n%P\n", p);
- break;
- case D_FCONST:
- switch(c) {
- default:
- case 4:
- fl = ieeedtof(p->to.ieee);
- cast = (char*)&fl;
- for(; i<c; i++) {
- buf.dbuf[l] = cast[fnuxi8[i+4]];
- l++;
- }
- break;
- case 8:
- cast = (char*)p->to.ieee;
- for(; i<c; i++) {
- buf.dbuf[l] = cast[fnuxi8[i]];
- l++;
- }
- break;
- }
- break;
- case D_SCONST:
- for(; i<c; i++) {
- buf.dbuf[l] = p->to.sval[i];
- l++;
- }
- break;
- case D_CONST:
- d = p->to.offset;
- if(p->to.sym) {
- if(p->to.sym->type == STEXT ||
- p->to.sym->type == SLEAF)
- d += p->to.sym->value;
- if(p->to.sym->type == SDATA)
- d += p->to.sym->value + INITDAT;
- if(p->to.sym->type == SBSS)
- d += p->to.sym->value + INITDAT;
- }
- cast = (char*)&d;
- switch(c) {
- default:
- diag("bad nuxi %d %d\n%P\n", c, i, curp);
- break;
- case 1:
- for(; i<c; i++) {
- buf.dbuf[l] = cast[inuxi1[i]];
- l++;
- }
- break;
- case 2:
- for(; i<c; i++) {
- buf.dbuf[l] = cast[inuxi2[i]];
- l++;
- }
- break;
- case 4:
- for(; i<c; i++) {
- buf.dbuf[l] = cast[inuxi4[i]];
- l++;
- }
- break;
- }
- break;
- }
- }
- write(cout, buf.dbuf, n);
- }
- enum
- {
- BCONSTP = 0x03,
- BCONSTN = 0x01,
- BCONSTH = 0x02,
- BLOAD = 0x16,
- BSTORE = 0x1e,
- BLOADSET = 0x26,
- BLOADM = 0x36,
- BSTOREM = 0x3e,
- BJMP = 0xa0,
- BJMPF = 0xa4,
- BCALL = 0xa8,
- BJMPT = 0xac,
- };
- int
- opas(int a)
- {
- switch(a) {
- case AJMP: return BJMP;
- case ACALL: return BCALL;
- case AJMPF: return BJMPF;
- case AJMPT: return BJMPT;
- }
- diag("bad opas %A\n", a);
- return 0;
- }
- int
- asmout(Prog *p, Optab *o, int aflag)
- {
- long o1, o2, o3, o4, o5, v;
- Prog *ct;
- int r, a;
- o1 = 0;
- o2 = 0;
- o3 = 0;
- o4 = 0;
- o5 = 0;
- a = p->as;
- switch(o->type) {
- default:
- diag("unknown type %d\n%P\n", o->type, p);
- break;
- case 0: /* pseudo ops */
- if(aflag) {
- if(p->link) {
- if(a == ATEXT) {
- ct = curtext;
- o2 = autosize;
- curtext = p;
- autosize = p->to.offset + 4;
- o1 = asmout(p->link, oplook(p->link), aflag);
- curtext = ct;
- autosize = o2;
- } else
- o1 = asmout(p->link, oplook(p->link), aflag);
- }
- return o1;
- }
- break;
- case 1: /* mov r, r */
- r = p->from.reg;
- o1 = oprrr(AORL, r, r, p->to.reg);
- break;
- case 2: /* mov $[pn]con, r */
- v = regoff(&p->from);
- if(v >= 0)
- o1 = opir(BCONSTP, v, p->to.reg);
- else
- o1 = opir(BCONSTN, v, p->to.reg);
- break;
- case 3: /* mov $lcon, r */
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, p->to.reg);
- o2 = opir(BCONSTH, v>>16, p->to.reg);
- break;
- case 4: /* mov $sacon, r */
- v = regoff(&p->from);
- if(v >= 0)
- o1 = oprrr(AADDL, v, REGSP, p->to.reg);
- else
- o1 = oprrr(ASUBL, -v, REGSP, p->to.reg);
- o1 |= 1<<24;
- break;
- case 5: /* mov $pacon, r */
- v = regoff(&p->from);
- if(v >= 0)
- o1 = opir(BCONSTP, v, REGTMP);
- else
- o1 = opir(BCONSTN, v, REGTMP);
- o2 = oprrr(AADDL, REGTMP, REGSP, p->to.reg);
- break;
- case 6: /* mov $pacon, r */
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(AADDL, REGTMP, REGSP, p->to.reg);
- break;
- case 10: /* mov r,o(zcon) */
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- o1 = opmem(BSTORE, a, r, p->from.reg);
- break;
- case 11: /* mov r,o(scon) */
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- if(v >= 0)
- o1 = oprrr(AADDL, v, r, REGTMP);
- else
- o1 = oprrr(ASUBL, -v, r, REGTMP);
- o1 |= 1<<24;
- o2 = opmem(BSTORE, a, REGTMP, p->from.reg);
- break;
- case 12: /* mov r,o(pcon) */
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- if(v >= 0)
- o1 = opir(BCONSTP, v, REGTMP);
- else
- o1 = opir(BCONSTN, v, REGTMP);
- o2 = oprrr(AADDL, r, REGTMP, REGTMP);
- o3 = opmem(BSTORE, a, REGTMP, p->from.reg);
- break;
- case 13: /* mov r,o(lcon) */
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(AADDL, r, REGTMP, REGTMP);
- o4 = opmem(BSTORE, a, REGTMP, p->from.reg);
- break;
- case 14: /* mov r,sext */
- v = regoff(&p->to);
- if(v >= INITDAT && v <= INITDAT+0xff)
- o1 = oprrr(ASUBL, (INITDAT+0xff)-v, REGSB, REGTMP) | (1<<24);
- else
- if(v >= INITDAT+0xff && v <= INITDAT+0xff+0xff)
- o1 = oprrr(AADDL, v-(INITDAT+0xff), REGSB, REGTMP) | (1<<24);
- else
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opmem(BSTORE, a, REGTMP, p->from.reg);
- break;
- case 15: /* mov r,lext */
- v = regoff(&p->to);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = opmem(BSTORE, a, REGTMP, p->from.reg);
- break;
- case 20: /* mov o(zcon),r */
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o1 = opmem(BLOAD, a, r, p->to.reg);
- break;
- case 21: /* mov o(scon),r */
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- if(v >= 0)
- o1 = oprrr(AADDL, v, r, REGTMP);
- else
- o1 = oprrr(ASUBL, -v, r, REGTMP);
- o1 |= 1<<24;
- o2 = opmem(BLOAD, a, REGTMP, p->to.reg);
- break;
- case 22: /* mov o(pcon),r */
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- if(v >= 0)
- o1 = opir(BCONSTP, v, REGTMP);
- else
- o1 = opir(BCONSTN, v, REGTMP);
- o2 = oprrr(AADDL, r, REGTMP, REGTMP);
- o3 = opmem(BLOAD, a, REGTMP, p->to.reg);
- break;
- case 23: /* mov o(lcon),r */
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(AADDL, r, REGTMP, REGTMP);
- o4 = opmem(BLOAD, a, REGTMP, p->to.reg);
- break;
- case 24: /* mov sext,r */
- v = regoff(&p->from);
- if(v >= INITDAT && v <= INITDAT+0xff)
- o1 = oprrr(ASUBL, (INITDAT+0xff)-v, REGSB, REGTMP) | (1<<24);
- else
- if(v >= INITDAT+0xff && v <= INITDAT+0xff+0xff)
- o1 = oprrr(AADDL, v-(INITDAT+0xff), REGSB, REGTMP) | (1<<24);
- else
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opmem(BLOAD, a, REGTMP, p->to.reg);
- break;
- case 25: /* mov lext,r */
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = opmem(BLOAD, a, REGTMP, p->to.reg);
- break;
- case 30: /* add r,[r],r */
- r = p->reg;
- if(r == NREG)
- r = p->to.reg;
- o1 = oprrr(p->as, p->from.reg, r, p->to.reg);
- break;
- case 31: /* add $scon,r,r */
- r = p->reg;
- if(r == NREG)
- r = p->to.reg;
- v = regoff(&p->from);
- o1 = oprrr(p->as, v, r, p->to.reg);
- o1 |= 1<<24; /* const */
- break;
- case 32: /* add $pcon,r,r */
- r = p->reg;
- if(r == NREG)
- r = p->to.reg;
- v = regoff(&p->from);
- if(v >= 0)
- o1 = opir(BCONSTP, v, REGTMP);
- else
- o1 = opir(BCONSTN, v, REGTMP);
- o2 = oprrr(p->as, REGTMP, r, p->to.reg);
- break;
- case 33: /* add $lcon,r,r */
- r = p->reg;
- if(r == NREG)
- r = p->to.reg;
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(p->as, REGTMP, r, p->to.reg);
- break;
- case 40: /* jmp [r],sbra */
- if(aflag)
- return 0;
- v = 0;
- if(p->cond != P)
- v = (p->cond->pc - p->pc) >> 2;
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o1 = opir(opas(a), v, r);
- if(0 && !debug['Y'] && p->link && p->cond && isnop(p->link)) {
- nop.branch.count--;
- nop.branch.outof--;
- nop.jump.outof++;
- o2 = asmout(p->cond, oplook(p->cond), 1);
- if(o2) {
- o1 += 1;
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux %.8lux%P\n",
- p->pc, o1, o2, p);
- LPUT(o1);
- LPUT(o2);
- return 1;
- }
- }
- break;
- case 41: /* jmpf [r],sbra */
- if(aflag)
- return 0;
- v = 0;
- if(p->cond != P)
- v = (p->cond->pc - p->pc) >> 2;
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o1 = opir(opas(a), v, r);
- break;
- case 42: /* jmp [r],lbra */
- v = p->pc;
- if(p->cond != P)
- v = p->cond->pc;
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(a, REGTMP, r, 0);
- break;
- case 43: /* jmp [r],zoreg */
- if(aflag)
- return 0;
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o1 = oprrr(a, p->to.reg, r, 0);
- break;
- case 50: /* delay */
- o1 = oprrr(AASEQ, 1, 1, 0x40);
- break;
- case 51: /* emulate */
- o1 = oprrr(AEMULATE, 0, 0, 0);
- break;
- case 52: /* mtsr */
- o1 = oprrr(a, p->from.reg, p->to.reg, 0);
- break;
- case 53: /* mtsrim $con, r */
- v = regoff(&p->from);
- o1 = ((0x04)<<24) | ((v & 0xff00)<<8) | (p->to.reg<<8) | (v & 0xff);
- break;
- case 54: /* mtsr $lcon, r */
- v = regoff(&p->from);
- o1 = opir(BCONSTP, v, REGTMP);
- o2 = opir(BCONSTH, v>>16, REGTMP);
- o3 = oprrr(a, REGTMP, p->to.reg, 0);
- break;
- case 55: /* mfsr */
- o1 = oprrr(a, 0, p->from.reg, p->to.reg);
- break;
- case 56: /* iret, halt, etc */
- o1 = oprrr(a, 0, 0, 0);
- break;
- case 57: /* inv */
- o1 = oprrr(a, 0, 0, p->to.offset & 0x3);
- break;
- case 60: /* movd r,o(zcon) */
- o1 = opir(BCONSTP, 1, 135);
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- o2 = opmem(BSTORE, ASTOREM, r, p->from.reg);
- break;
- case 61: /* movd r,o(scon) */
- o1 = opir(BCONSTP, 1, 135);
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- if(v >= 0)
- o2 = oprrr(AADDL, v, r, REGTMP);
- else
- o2 = oprrr(ASUBL, -v, r, REGTMP);
- o2 |= 1<<24;
- o3 = opmem(BSTORE, ASTOREM, REGTMP, p->from.reg);
- break;
- case 62: /* movd r,o(pcon) */
- o1 = opir(BCONSTP, 1, 135);
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- if(v >= 0)
- o2 = opir(BCONSTP, v, REGTMP);
- else
- o2 = opir(BCONSTN, v, REGTMP);
- o3 = oprrr(AADDL, r, REGTMP, REGTMP);
- o4 = opmem(BSTORE, ASTOREM, REGTMP, p->from.reg);
- break;
- case 63: /* movd r,o(lcon) */
- o1 = opir(BCONSTP, 1, 135);
- r = p->to.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->to);
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opir(BCONSTH, v>>16, REGTMP);
- o4 = oprrr(AADDL, r, REGTMP, REGTMP);
- o5 = opmem(BSTORE, ASTOREM, REGTMP, p->from.reg);
- break;
- case 64: /* movd r,sext */
- o1 = opir(BCONSTP, 1, 135);
- v = regoff(&p->to);
- if(v >= INITDAT && v <= INITDAT+0xff)
- o2 = oprrr(ASUBL, (INITDAT+0xff)-v, REGSB, REGTMP) | (1<<24);
- else
- if(v >= INITDAT+0xff && v <= INITDAT+0xff+0xff)
- o2 = oprrr(AADDL, v-(INITDAT+0xff), REGSB, REGTMP) | (1<<24);
- else
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opmem(BSTORE, ASTOREM, REGTMP, p->from.reg);
- break;
- case 65: /* movd r,lext */
- o1 = opir(BCONSTP, 1, 135);
- v = regoff(&p->to);
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opir(BCONSTH, v>>16, REGTMP);
- o4 = opmem(BSTORE, ASTOREM, REGTMP, p->from.reg);
- break;
- case 66: /* word */
- o1 = p->to.offset;
- break;
- case 70: /* mov o(zcon),r */
- o1 = opir(BCONSTP, 1, 135);
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- o2 = opmem(BLOAD, ALOADM, r, p->to.reg);
- break;
- case 71: /* movd o(scon),r */
- o1 = opir(BCONSTP, 1, 135);
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- if(v >= 0)
- o2 = oprrr(AADDL, v, r, REGTMP);
- else
- o2 = oprrr(ASUBL, -v, r, REGTMP);
- o2 |= 1<<24;
- o3 = opmem(BLOAD, ALOADM, REGTMP, p->to.reg);
- break;
- case 72: /* movd o(pcon),r */
- o1 = opir(BCONSTP, 1, 135);
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- if(v >= 0)
- o2 = opir(BCONSTP, v, REGTMP);
- else
- o2 = opir(BCONSTN, v, REGTMP);
- o3 = oprrr(AADDL, r, REGTMP, REGTMP);
- o4 = opmem(BLOAD, ALOADM, REGTMP, p->to.reg);
- break;
- case 73: /* movd o(lcon),r */
- o1 = opir(BCONSTP, 1, 135);
- r = p->from.reg;
- if(r == NREG)
- r = o->param;
- v = regoff(&p->from);
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opir(BCONSTH, v>>16, REGTMP);
- o4 = oprrr(AADDL, r, REGTMP, REGTMP);
- o5 = opmem(BLOAD, ALOADM, REGTMP, p->to.reg);
- break;
- case 74: /* movd sext,r */
- o1 = opir(BCONSTP, 1, 135);
- v = regoff(&p->from);
- if(v >= INITDAT && v <= INITDAT+0xff)
- o2 = oprrr(ASUBL, (INITDAT+0xff)-v, REGSB, REGTMP) | (1<<24);
- else
- if(v >= INITDAT+0xff && v <= INITDAT+0xff+0xff)
- o2 = oprrr(AADDL, v-(INITDAT+0xff), REGSB, REGTMP) | (1<<24);
- else
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opmem(BLOAD, ALOADM, REGTMP, p->to.reg);
- break;
- case 75: /* movd lext,r */
- o1 = opir(BCONSTP, 1, 135);
- v = regoff(&p->from);
- o2 = opir(BCONSTP, v, REGTMP);
- o3 = opir(BCONSTH, v>>16, REGTMP);
- o4 = opmem(BLOAD, ALOADM, REGTMP, p->to.reg);
- break;
- case 76: /* movd r, r */
- r = p->from.reg;
- o1 = oprrr(AORL, r+0, r+0, p->to.reg+0);
- o2 = oprrr(AORL, r+1, r+1, p->to.reg+1);
- break;
- }
- if(aflag)
- return o1;
- v = p->pc;
- switch(o->size) {
- default:
- if(debug['a'])
- Bprint(&bso, " %.8lux:\t\t\t%P\n", v, p);
- break;
- case 4:
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux\t\t%P\n", v, o1, p);
- LPUT(o1);
- break;
- case 8:
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux %.8lux\t%P\n", v, o1, o2, p);
- LPUT(o1);
- LPUT(o2);
- break;
- case 12:
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux%P\n", v, o1, o2, o3, p);
- LPUT(o1);
- LPUT(o2);
- LPUT(o3);
- break;
- case 16:
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %.8lux%P\n",
- v, o1, o2, o3, o4, p);
- LPUT(o1);
- LPUT(o2);
- LPUT(o3);
- LPUT(o4);
- break;
- case 20:
- if(debug['a'])
- Bprint(&bso, " %.8lux: %.8lux %.8lux %.8lux %.8lux %.8lux%P\n",
- v, o1, o2, o3, o4, o5, p);
- LPUT(o1);
- LPUT(o2);
- LPUT(o3);
- LPUT(o4);
- LPUT(o5);
- break;
- }
- return 0;
- }
- int
- isnop(Prog *p)
- {
- if(p->as == ADELAY)
- return 1;
- return 0;
- }
- long
- oprrr(int a, int rb, int ra, int rc)
- {
- long o;
- switch(a) {
- default:
- diag("bad oprrr %A\n", a);
- case AMOVL: o = 0x00<<24; break;
- case AADDL: o = 0x14<<24; break;
- case ASUBL: o = 0x24<<24; break;
- case AMULL: o = 0xe0<<24; break;
- case AMULUL: o = 0xe2<<24; break;
- case AMULML: o = 0xde<<24; break;
- case AMULMUL: o = 0xdf<<24; break;
- case AISUBL: o = 0x34<<24; break;
- case AORL: o = 0x92<<24; break;
- case AANDL: o = 0x90<<24; break;
- case AXORL: o = 0x94<<24; break;
- case AXNORL: o = 0x96<<24; break;
- case ASRAL: o = 0x86<<24; break;
- case ASRLL: o = 0x82<<24; break;
- case ASLLL: o = 0x80<<24; break;
- case ACPEQL: o = 0x60<<24; break;
- case ACPGEL: o = 0x4c<<24; break;
- case ACPGEUL: o = 0x4e<<24; break;
- case ACPGTL: o = 0x48<<24; break;
- case ACPGTUL: o = 0x4a<<24; break;
- case ACPLEL: o = 0x44<<24; break;
- case ACPLEUL: o = 0x46<<24; break;
- case ACPLTL: o = 0x40<<24; break;
- case ACPLTUL: o = 0x42<<24; break;
- case ACPNEQL: o = 0x62<<24; break;
- case AADDD: o = 0xf1<<24; break;
- case ASUBD: o = 0xf3<<24; break;
- case AMULD: o = 0xf5<<24; break;
- case ADIVD: o = 0xf7<<24; break;
- case AADDF: o = 0xf0<<24; break;
- case ASUBF: o = 0xf2<<24; break;
- case AMULF: o = 0xf4<<24; break;
- case ADIVF: o = 0xf6<<24; break;
- case AEQD: o = 0xeb<<24; break;
- case AGED: o = 0xef<<24; break;
- case AGTD: o = 0xed<<24; break;
- case AEQF: o = 0xea<<24; break;
- case AGEF: o = 0xee<<24; break;
- case AGTF: o = 0xec<<24; break;
- case AMSTEPL: o = 0x64<<24; break;
- case AMSTEPUL: o = 0x74<<24; break;
- case AMSTEPLL: o = 0x66<<24; break;
- case ADSTEPL: o = 0x6a<<24; break;
- case ADSTEP0L: o = 0x68<<24; break;
- case ADSTEPLL: o = 0x6c<<24; break;
- case ADSTEPRL: o = 0x6e<<24; break;
- case AJMP: o = 0xc0<<24; break;
- case AJMPF: o = 0xc4<<24; break;
- case AJMPT: o = 0xcc<<24; break;
- case ACALL: o = 0xc8<<24; break;
- case AEMULATE: o = 0xd7<<24; break;
- case ASETIP: o = 0x9e<<24; break;
- case AMFSR: o = 0xc6<<24; break;
- case AMTSR: o = 0xce<<24; break;
- case AIRET: o = 0x88<<24; break;
- case AINV: o = 0x9f<<24; break;
- case AASEQ: o = 0x70<<24; break;
- }
- return o | ((rb&0xff)<<0) | ((ra&0xff)<<8) | ((rc&0xff)<<16);
- }
- long
- opir(int o, int i, int r)
- {
- return oprrr(AMOVL, i, r, i>>8) | (o<<24);
- }
- long
- opmem(int m, int a, int ir, int r)
- {
- long o;
- switch(a) {
- default:
- diag("bad opmem %A\n", a);
- case ALOADSET:
- if(m != BLOAD)
- diag("bad loadset code %A\n", a);
- o = 0x00<<16;
- m = BLOADSET;
- break;
- case ALOADM:
- if(m != BLOAD)
- diag("bad loadm code %A\n", a);
- o = 0x00<<16;
- m = BLOADM;
- break;
- case ASTOREM:
- if(m != BSTORE)
- diag("bad storem code %A\n", a);
- o = 0x00<<16;
- m = BSTOREM;
- break;
- case AMOVF:
- case AMOVL: o = 0x00<<16; break;
- case AMOVH: o = 0x12<<16; break;
- case AMOVHU: o = 0x02<<16; break;
- case AMOVB: o = 0x11<<16; break;
- case AMOVBU: o = 0x01<<16; break;
- }
- return o | ((ir&0xff) << 0) | ((r&0xff) << 8) | (m << 24);
- }
|