#include #define EXTERN #include "a.h" #include "y.tab.h" void main(int argc, char *argv[]) { char ofile[100], incfile[20], *p; int nout, nproc, status, i, c, of; thechar = '7'; /* of 9 */ thestring = "alpha"; memset(debug, 0, sizeof(debug)); cinit(); outfile = 0; include[ninclude++] = "."; ARGBEGIN { default: c = ARGC(); if(c >= 0 || c < sizeof(debug)) debug[c] = 1; break; case 'o': outfile = ARGF(); break; case 'D': p = ARGF(); if(p) Dlist[nDlist++] = p; break; case 'I': p = ARGF(); if(p) include[ninclude++] = p; break; } ARGEND if(*argv == 0) { print("usage: %ca [-options] file.s\n", thechar); errorexit(); } nproc = 3; if(p = getenv("NPROC")) nproc = atol(p); if(argc > 1) { c = 0; nout = 0; for(;;) { while(nout < nproc && argc > 0) { i = fork(); if(i < 0) { i = mywait(&status); if(i < 0) errorexit(); if(status) c++; nout--; continue; } if(i == 0) { print("%s:\n", *argv); goto child; } nout++; argc--; argv++; } i = mywait(&status); if(i < 0) { if(c) errorexit(); exits(0); } if(status) c++; nout--; } } child: strecpy(ofile, ofile + sizeof(ofile), *argv); if(p = strrchr(ofile, '/')) { include[0] = ofile; *p++ = 0; } else p = ofile; if(outfile == 0) { outfile = p; if(p = strrchr(outfile, '.')) if(p[1] == 's' && p[2] == 0) p[0] = 0; p = strrchr(outfile, 0); p[0] = '.'; p[1] = thechar; p[2] = 0; } if(0) { strcpy(incfile, "/usr/%include"); p = strrchr(incfile, '%'); if(p) *p = thechar; } else { snprint(incfile, sizeof(incfile), "/%s/include", thestring); } include[ninclude++] = incfile; if(p = getenv("INCLUDE")) include[ninclude-1] = p; /* */ of = mycreat(outfile, 0664); if(of < 0) { yyerror("%ca: cannot create %s", thechar, outfile); errorexit(); } Binit(&obuf, of, OWRITE); pass = 1; pinit(*argv); for(i=0; ireg (incl special regs) */ "MOVQ", LTYPE4, AMOVQ, /* 5: integer load/store and reg->reg */ "MOVL", LTYPE5, AMOVL, "MOVQU", LTYPE5, AMOVQU, "MOVB", LTYPE5, AMOVB, "MOVBU", LTYPE5, AMOVBU, "MOVW", LTYPE5, AMOVW, "MOVWU", LTYPE5, AMOVWU, "MOVLP", LTYPE5, AMOVLP, "MOVQP", LTYPE5, AMOVQP, /* 6: integer load/store (only) */ "MOVA", LTYPE6, AMOVA, "MOVAH", LTYPE6, AMOVAH, "MOVLL", LTYPE6, AMOVLL, "MOVQL", LTYPE6, AMOVQL, "MOVLC", LTYPEK, AMOVLC, "MOVQC", LTYPEK, AMOVQC, /* 7: floating load/store and reg->reg */ "MOVS", LTYPE7, AMOVS, "MOVT", LTYPE7, AMOVT, /* 8,9: jumps */ "JMP", LTYPE8, AJMP, "JSR", LTYPE8, AJSR, "RET", LTYPE9, ARET, /* A: integer conditional branches */ "BEQ", LTYPEA, ABEQ, "BNE", LTYPEA, ABNE, "BLT", LTYPEA, ABLT, "BGE", LTYPEA, ABGE, "BLE", LTYPEA, ABLE, "BGT", LTYPEA, ABGT, "BLBC", LTYPEA, ABLBC, "BLBS", LTYPEA, ABLBS, /* B: floating conditional branches */ "FBEQ", LTYPEB, AFBEQ, "FBNE", LTYPEB, AFBNE, "FBLT", LTYPEB, AFBLT, "FBGE", LTYPEB, AFBGE, "FBLE", LTYPEB, AFBLE, "FBGT", LTYPEB, AFBGT, /* C-J: miscellaneous */ "TRAPB", LTYPEC, ATRAPB, "MB", LTYPEC, AMB, "REI", LTYPEC, AREI, "END", LTYPEC, AEND, "FETCH", LTYPED, AFETCH, "FETCHM", LTYPED, AFETCHM, "CALL_PAL", LTYPEE, ACALL_PAL, "TEXT", LTYPEF, ATEXT, "GLOBL", LTYPEF, AGLOBL, "DATA", LTYPEG, ADATA, "WORD", LTYPEH, AWORD, "NOP", LTYPEI, ANOP, 0 }; void cinit(void) { Sym *s; int i; nullgen.sym = S; nullgen.offset = 0; nullgen.type = D_NONE; nullgen.name = D_NONE; nullgen.reg = NREG; if(FPCHIP) nullgen.dval = 0; for(i=0; itype = itab[i].type; s->value = itab[i].value; } ALLOCN(pathname, 0, 100); if(getwd(pathname, 99) == 0) { ALLOCN(pathname, 100, 900); if(getwd(pathname, 999) == 0) strcpy(pathname, "/???"); } } void syminit(Sym *s) { s->type = LNAME; s->value = 0; } int isreg(Gen *g) { USED(g); return 1; } void cclean(void) { outcode(AEND, &nullgen, NREG, &nullgen); Bflush(&obuf); } void zname(char *n, int t, int s) { Bputc(&obuf, ANAME); Bputc(&obuf, t); /* type */ Bputc(&obuf, s); /* sym */ while(*n) { Bputc(&obuf, *n); n++; } Bputc(&obuf, 0); } void zaddr(Gen *a, int s) { vlong l; int i; char *n; Ieee e; Bputc(&obuf, a->type); Bputc(&obuf, a->reg); Bputc(&obuf, s); Bputc(&obuf, a->name); switch(a->type) { default: print("unknown type %d\n", a->type); exits("arg"); case D_NONE: case D_REG: case D_FREG: case D_PREG: case D_FCREG: case D_PCC: break; case D_OREG: case D_CONST: case D_BRANCH: l = a->offset; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); Bputc(&obuf, l>>32); Bputc(&obuf, l>>40); Bputc(&obuf, l>>48); Bputc(&obuf, l>>56); break; case D_SCONST: n = a->sval; for(i=0; idval); Bputc(&obuf, e.l); Bputc(&obuf, e.l>>8); Bputc(&obuf, e.l>>16); Bputc(&obuf, e.l>>24); Bputc(&obuf, e.h); Bputc(&obuf, e.h>>8); Bputc(&obuf, e.h>>16); Bputc(&obuf, e.h>>24); break; } } void outcode(int a, Gen *g1, int reg, Gen *g2) { int sf, st, t; Sym *s; if(pass == 1) goto out; jackpot: sf = 0; s = g1->sym; while(s != S) { sf = s->sym; if(sf < 0 || sf >= NSYM) sf = 0; t = g1->name; if(h[sf].type == t) if(h[sf].sym == s) break; zname(s->name, t, sym); s->sym = sym; h[sym].sym = s; h[sym].type = t; sf = sym; sym++; if(sym >= NSYM) sym = 1; break; } st = 0; s = g2->sym; while(s != S) { st = s->sym; if(st < 0 || st >= NSYM) st = 0; t = g2->name; if(h[st].type == t) if(h[st].sym == s) break; zname(s->name, t, sym); s->sym = sym; h[sym].sym = s; h[sym].type = t; st = sym; sym++; if(sym >= NSYM) sym = 1; if(st == sf) goto jackpot; break; } Bputc(&obuf, a); Bputc(&obuf, reg); Bputc(&obuf, lineno); Bputc(&obuf, lineno>>8); Bputc(&obuf, lineno>>16); Bputc(&obuf, lineno>>24); zaddr(g1, sf); zaddr(g2, st); out: if(a != AGLOBL && a != ADATA) pc++; } void outhist(void) { Gen g; Hist *h; char *p, *q, *op; int n; g = nullgen; for(h = hist; h != H; h = h->link) { p = h->name; op = 0; if(p && p[0] != '/' && h->offset == 0 && pathname && pathname[0] == '/') { op = p; p = pathname; } while(p) { q = strchr(p, '/'); if(q) { n = q-p; if(n == 0) n = 1; /* leading "/" */ q++; } else { n = strlen(p); q = 0; } if(n) { Bputc(&obuf, ANAME); Bputc(&obuf, D_FILE); /* type */ Bputc(&obuf, 1); /* sym */ Bputc(&obuf, '<'); Bwrite(&obuf, p, n); Bputc(&obuf, 0); } p = q; if(p == 0 && op) { p = op; op = 0; } } g.offset = h->offset; Bputc(&obuf, AHISTORY); Bputc(&obuf, 0); Bputc(&obuf, h->line); Bputc(&obuf, h->line>>8); Bputc(&obuf, h->line>>16); Bputc(&obuf, h->line>>24); zaddr(&nullgen, 0); zaddr(&g, 0); } } #include "../cc/lexbody" #include "../cc/macbody" #include "../cc/compat"