ref: f0ac2d01765f938a4f3656efef440cf2c1bca69d
dir: /sys/src/cmd/7a/lex.c/
#define EXTERN
#include "a.h"
#include "y.tab.h"
#include <ctype.h>
void
main(int argc, char *argv[])
{
char *p;
int nout, nproc, status, i, c;
thechar = '7';
thestring = "arm64";
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();
setinclude(p);
break;
} ARGEND
if(*argv == 0) {
print("usage: %Ca [-options] file.s\n", thechar);
errorexit();
}
if(argc > 1 && systemtype(Windows)){
print("can't assemble multiple files on windows\n");
errorexit();
}
if(argc > 1 && !systemtype(Windows)) {
nproc = 1;
if(p = getenv("NPROC"))
nproc = atol(p); /* */
c = 0;
nout = 0;
for(;;) {
while(nout < nproc && argc > 0) {
i = myfork();
if(i < 0) {
i = mywait(&status);
if(i < 0)
errorexit();
if(status)
c++;
nout--;
continue;
}
if(i == 0) {
print("%s:\n", *argv);
if(assemble(*argv))
errorexit();
exits(0);
}
nout++;
argc--;
argv++;
}
i = mywait(&status);
if(i < 0) {
if(c)
errorexit();
exits(0);
}
if(status)
c++;
nout--;
}
}
if(assemble(argv[0]))
errorexit();
exits(0);
}
int
assemble(char *file)
{
char *ofile, *p;
int i, of;
ofile = strdup(file);
p = utfrrune(ofile, pathchar());
if(p) {
include[0] = ofile;
*p++ = 0;
} else
p = ofile;
if(outfile == 0) {
if(p){
outfile = p;
p = utfrrune(outfile, '.');
if(p)
if(p[1] == 's' && p[2] == 0)
p[0] = 0;
outfile = smprint("%s.%C", outfile, thechar);
} else
outfile = "/dev/null";
}
p = getenv("INCLUDE");
if(p) {
setinclude(p);
} else {
if(systemtype(Plan9))
setinclude(smprint("/%s/include", thestring));
}
of = mycreat(outfile, 0664);
if(of < 0) {
yyerror("%Ca: cannot create %s", thechar, outfile);
errorexit();
}
Binit(&obuf, of, OWRITE);
pass = 1;
pinit(file);
for(i=0; i<nDlist; i++)
dodefine(Dlist[i]);
yyparse();
if(nerrors) {
cclean();
return nerrors;
}
pass = 2;
outhist();
pinit(file);
for(i=0; i<nDlist; i++)
dodefine(Dlist[i]);
yyparse();
cclean();
return nerrors;
}
struct
{
char *name;
ushort type;
ulong value;
} itab[] =
{
"SP", LSP, D_AUTO,
"SB", LSB, D_EXTERN,
"FP", LFP, D_PARAM,
"PC", LPC, D_BRANCH,
"R", LR, 0,
"R0", LREG, 0,
"R1", LREG, 1,
"R2", LREG, 2,
"R3", LREG, 3,
"R4", LREG, 4,
"R5", LREG, 5,
"R6", LREG, 6,
"R7", LREG, 7,
"R8", LREG, 8,
"R9", LREG, 9,
"R10", LREG, 10,
"R11", LREG, 11,
"R12", LREG, 12,
"R13", LREG, 13,
"R14", LREG, 14,
"R15", LREG, 15,
"R16", LREG, 16,
"R17", LREG, 17,
"R18", LREG, 18,
"R19", LREG, 19,
"R20", LREG, 20,
"R21", LREG, 21,
"R22", LREG, 22,
"R23", LREG, 23,
"R24", LREG, 24,
"R25", LREG, 25,
"R26", LREG, 26,
"R27", LREG, 27,
"R28", LREG, 28,
"R29", LREG, 29,
"R30", LREG, 30,
"LR", LREG, 30,
"ZR", LREG, 31,
"RARG", LREG, REGARG,
"RARG0", LREG, REGARG,
"RSP", LREG, 31,
"F", LF, 0,
"F0", LFREG, 0,
"F1", LFREG, 1,
"F2", LFREG, 2,
"F3", LFREG, 3,
"F4", LFREG, 4,
"F5", LFREG, 5,
"F6", LFREG, 6,
"F7", LFREG, 7,
"F8", LFREG, 8,
"F9", LFREG, 9,
"F10", LFREG, 10,
"F11", LFREG, 11,
"F12", LFREG, 12,
"F13", LFREG, 13,
"F14", LFREG, 14,
"F15", LFREG, 15,
"F16", LFREG, 16,
"F17", LFREG, 17,
"F18", LFREG, 18,
"F19", LFREG, 19,
"F20", LFREG, 20,
"F21", LFREG, 21,
"F22", LFREG, 22,
"F23", LFREG, 23,
"F24", LFREG, 24,
"F25", LFREG, 25,
"F26", LFREG, 26,
"F27", LFREG, 27,
"F28", LFREG, 28,
"F29", LFREG, 29,
"F30", LFREG, 30,
"F31", LFREG, 31,
"V", LV, 0,
"V0", LVREG, 0,
"V1", LVREG, 1,
"V2", LVREG, 2,
"V3", LVREG, 3,
"V4", LVREG, 4,
"V5", LVREG, 5,
"V6", LVREG, 6,
"V7", LVREG, 7,
"V8", LVREG, 8,
"V9", LVREG, 9,
"V10", LVREG, 10,
"V11", LVREG, 11,
"V12", LVREG, 12,
"V13", LVREG, 13,
"V14", LVREG, 14,
"V15", LVREG, 15,
"V16", LVREG, 16,
"V17", LVREG, 17,
"V18", LVREG, 18,
"V19", LVREG, 19,
"V20", LVREG, 20,
"V21", LVREG, 21,
"V22", LVREG, 22,
"V23", LVREG, 23,
"V24", LVREG, 24,
"V25", LVREG, 25,
"V26", LVREG, 26,
"V27", LVREG, 27,
"V28", LVREG, 28,
"V29", LVREG, 29,
"V30", LVREG, 30,
"V31", LVREG, 31,
"FPSR", LFCR, D_FPSR,
"FPCR", LFCR, D_FPCR,
"SPR", LSPR, D_SPR,
"NZCV", LSPREG, D_NZCV,
"ELR_EL1", LSPREG, D_ELR_EL1,
"ELR_EL2", LSPREG, D_ELR_EL2,
// "ELR_EL3", LSPREG, D_ELR_EL3,
// "LR_EL0", LSPREG, D_LR_EL0,
"DAIF", LSPREG, D_DAIF,
"CurrentEL", LSPREG, D_CurrentEL,
"SP_EL0", LSPREG, D_SP_EL0,
// "SP_EL1", LSPREG, D_SP_EL1,
// "SP_EL2", LSPREG, D_SP_EL2,
"SPSel", LSPREG, D_SPSel,
// "SPSR_abt", LSPREG, D_SPSR_abt,
"SPSR_EL1", LSPREG, D_SPSR_EL1,
"SPSR_EL2", LSPREG, D_SPSR_EL2,
// "SPSR_EL3", LSPREG, D_SPSR_EL3,
// "SPSR_fiq", LSPREG, D_SPSR_fiq,
// "SPSR_ieq", LSPREG, D_SPSR_ieq,
// "SPSR_und", LSPREG, D_SPSR_und,
"DAIFSet", LSPREG, D_DAIFSet,
"DAIFClr", LSPREG, D_DAIFClr,
"EQ", LCOND, 0,
"NE", LCOND, 1,
"CS", LCOND, 2,
"HS", LCOND, 2,
"CC", LCOND, 3,
"LO", LCOND, 3,
"MI", LCOND, 4,
"PL", LCOND, 5,
"VS", LCOND, 6,
"VC", LCOND, 7,
"HI", LCOND, 8,
"LS", LCOND, 9,
"GE", LCOND, 10,
"LT", LCOND, 11,
"GT", LCOND, 12,
"LE", LCOND, 13,
"AL", LCOND, 14,
".UXTB", LEXT, 0,
".UXTH", LEXT, 1,
".UXTW", LEXT, 2,
".UXTX", LEXT, 3,
".SXTB", LEXT, 4,
".SXTH", LEXT, 5,
".SXTW", LEXT, 6,
".SXTX", LEXT, 7,
".UB", LEXT, 0,
".UH", LEXT, 1,
".UW", LEXT, 2,
".UX", LEXT, 3,
".SB", LEXT, 4,
".SH", LEXT, 5,
".SW", LEXT, 6,
".SX", LEXT, 7,
"@", LAT, 0,
"ADC", LTYPE1, AADC,
"ADCS", LTYPE1, AADCS,
"ADCSW", LTYPE1, AADCSW,
"ADCW", LTYPE1, AADCW,
"ADD", LTYPE1, AADD,
"ADDS", LTYPE1, AADDS,
"ADDSW", LTYPE1, AADDSW,
"ADDW", LTYPE1, AADDW,
"ADR", LTYPEV, AADR,
"ADRP", LTYPEV, AADRP,
"AND", LTYPE1, AAND,
"ANDS", LTYPE1, AANDS,
"ANDSW", LTYPE1, AANDSW,
"ANDW", LTYPE1, AANDW,
"ASR", LTYPE1, AASR,
"ASRW", LTYPE1, AASRW,
"AT", LTYPEN, AAT,
"BFI", LTYPEY, ABFI,
"BFIW", LTYPEY, ABFIW,
"BFM", LTYPEY, ABFM,
"BFMW", LTYPEY, ABFMW,
"BFXIL", LTYPEY, ABFXIL,
"BFXILW", LTYPEY, ABFXILW,
"BIC", LTYPE1, ABIC,
"BICS", LTYPE1, ABICS,
"BICSW", LTYPE1, ABICSW,
"BICW", LTYPE1, ABICW,
"BRK", LTYPE6, ABRK,
"CBNZ", LTYPE8, ACBNZ,
"CBNZW", LTYPE8, ACBNZW,
"CBZ", LTYPE8, ACBZ,
"CBZW", LTYPE8, ACBZW,
"CCMN", LTYPEU, ACCMN,
"CCMNW", LTYPEU, ACCMNW,
"CCMP", LTYPEU, ACCMP,
"CCMPW", LTYPEU, ACCMPW,
"CINC", LTYPES, ACINC,
"CINCW", LTYPES, ACINCW,
"CINV", LTYPES, ACINV,
"CINVW", LTYPES, ACINVW,
"CLREX", LTYPE6, ACLREX,
"CLS", LTYPE2, ACLS,
"CLSW", LTYPE2, ACLSW,
"CLZ", LTYPE2, ACLZ,
"CLZW", LTYPE2, ACLZW,
"CMN", LTYPE7, ACMN,
"CMNW", LTYPE7, ACMNW,
"CMP", LTYPE7, ACMP,
"CMPW", LTYPE7, ACMPW,
"CNEG", LTYPES, ACNEG,
"CNEGW", LTYPES, ACNEGW,
"CRC32B", LTYPE1, ACRC32B,
"CRC32CB", LTYPE1, ACRC32CB,
"CRC32CH", LTYPE1, ACRC32CH,
"CRC32CW", LTYPE1, ACRC32CW,
"CRC32CX", LTYPE1, ACRC32CX,
"CRC32H", LTYPE1, ACRC32H,
"CRC32W", LTYPE1, ACRC32W,
"CRC32X", LTYPE1, ACRC32X,
"CSEL", LTYPES, ACSEL,
"CSELW", LTYPES, ACSELW,
"CSET", LTYPER, ACSET,
"CSETM", LTYPER, ACSETM,
"CSETMW", LTYPER, ACSETMW,
"CSETW", LTYPER, ACSETW,
"CSINC", LTYPES, ACSINC,
"CSINCW", LTYPES, ACSINCW,
"CSINV", LTYPES, ACSINV,
"CSINVW", LTYPES, ACSINVW,
"CSNEG", LTYPES, ACSNEG,
"CSNEGW", LTYPES, ACSNEGW,
"DC", LTYPEN, ADC,
"DCPS1", LTYPE6, ADCPS1,
"DCPS2", LTYPE6, ADCPS2,
"DCPS3", LTYPE6, ADCPS3,
"DMB", LDMB, ADMB,
"DRPS", LTYPE6, ADRPS,
"DSB", LDMB, ADSB,
"EON", LTYPE1, AEON,
"EONW", LTYPE1, AEONW,
"EOR", LTYPE1, AEOR,
"EORW", LTYPE1, AEORW,
"ERET", LTYPE0, AERET,
"EXTR", LTYPEP, AEXTR,
"EXTRW", LTYPEP, AEXTRW,
"HINT", LDMB, AHINT,
"HLT", LTYPE6, AHLT,
"HVC", LTYPE6, AHVC,
"IC", LTYPEN, AIC,
"ISB", LDMB, AISB,
"LSL", LTYPE1, ALSL,
"LSLW", LTYPE1, ALSLW,
"LSR", LTYPE1, ALSR,
"LSRW", LTYPE1, ALSRW,
"MADD", LTYPEM, AMADD,
"MADDW", LTYPEM, AMADDW,
"MNEG", LTYPE1, AMNEG,
"MNEGW", LTYPE1, AMNEGW,
"MRS", LTYPE3, AMRS,
"MSR", LTYPE3, AMSR,
"MSUB", LTYPEM, AMSUB,
"MSUBW", LTYPEM, AMSUBW,
"MUL", LTYPE1, AMUL,
"MULW", LTYPE1, AMULW,
"MVN", LTYPE1, AMVN,
"MVNW", LTYPE1, AMVNW,
"NEG", LTYPE1, ANEG,
"NEGS", LTYPE1, ANEGS,
"NEGSW", LTYPE1, ANEGSW,
"NEGW", LTYPE1, ANEGW,
"NGC", LTYPE2, ANGC,
"NGCS", LTYPE2, ANGCS,
"NGCSW", LTYPE2, ANGCSW,
"NGCW", LTYPE2, ANGCW,
"ORN", LTYPE1, AORN,
"ORNW", LTYPE1, AORNW,
"ORR", LTYPE1, AORR,
"ORRW", LTYPE1, AORRW,
"PRFM", LTYPE1, APRFM,
"PRFUM", LTYPE1, APRFUM,
"RBIT", LTYPE2, ARBIT,
"RBITW", LTYPE2, ARBITW,
"REM", LTYPE1, AREM,
"REMW", LTYPE1, AREMW,
"RET", LTYPEA, ARET,
"REV", LTYPE2, AREV,
"REV16", LTYPE2, AREV16,
"REV16W", LTYPE2, AREV16W,
"REV32", LTYPE2, AREV32,
"REVW", LTYPE2, AREVW,
"ROR", LTYPE1, AROR,
"RORW", LTYPE1, ARORW,
"SBC", LTYPE1, ASBC,
"SBCS", LTYPE1, ASBCS,
"SBCSW", LTYPE1, ASBCSW,
"SBCW", LTYPE1, ASBCW,
"SBFIZ", LTYPEY, ASBFIZ,
"SBFIZW", LTYPEY, ASBFIZW,
"SBFM", LTYPEY, ASBFM,
"SBFMW", LTYPEY, ASBFMW,
"SBFX", LTYPEY, ASBFX,
"SBFXW", LTYPEY, ASBFXW,
"SDIV", LTYPE1, ASDIV,
"SDIVW", LTYPE1, ASDIVW,
"SEV", LTYPE0, ASEV,
"SEVL", LTYPE0, ASEVL,
"SMADDL", LTYPEM, ASMADDL,
"SMC", LTYPE6, ASMC,
"SMNEGL", LTYPE1, ASMNEGL,
"SMSUBL", LTYPEM, ASMSUBL,
"SMULH", LTYPE1, ASMULH,
"SMULL", LTYPE1, ASMULL,
"STLR", LSTXR, ASTLR,
"STLRB", LSTXR, ASTLRB,
"STLRH", LSTXR, ASTLRH,
"STLRW", LSTXR, ASTLRW,
"STLXP", LSTXR, ASTLXP,
"STLXR", LSTXR, ASTLXR,
"STLXRB", LSTXR, ASTLXRB,
"STLXRH", LSTXR, ASTLXRH,
"STLXRW", LSTXR, ASTLXRW,
"STXR", LSTXR, ASTXR,
"STXRB", LSTXR, ASTXRB,
"STXRH", LSTXR, ASTXRH,
"STXP", LSTXR, ASTXP,
"STXPW", LSTXR, ASTXPW,
"STXRW", LSTXR, ASTXRW,
"SUB", LTYPE1, ASUB,
"SUBS", LTYPE1, ASUBS,
"SUBSW", LTYPE1, ASUBSW,
"SUBW", LTYPE1, ASUBW,
"SVC", LTYPE6, ASVC,
"SXTB", LTYPE2, ASXTB,
"SXTBW", LTYPE2, ASXTBW,
"SXTH", LTYPE2, ASXTH,
"SXTHW", LTYPE2, ASXTHW,
"SXTW", LTYPE2, ASXTW,
"SYS", LTYPEN, ASYS,
"SYSL", LTYPEO, ASYSL,
"TBNZ", LTYPET, ATBNZ,
"TBZ", LTYPET, ATBZ,
"TLBI", LTYPEN, ATLBI,
"TST", LTYPE7, ATST,
"TSTW", LTYPE7, ATSTW,
"UBFIZ", LTYPEY, AUBFIZ,
"UBFIZW", LTYPEY, AUBFIZW,
"UBFM", LTYPEY, AUBFM,
"UBFMW", LTYPEY, AUBFMW,
"UBFX", LTYPEY, AUBFX,
"UBFXW", LTYPEY, AUBFXW,
"UDIV", LTYPE1, AUDIV,
"UDIVW", LTYPE1, AUDIVW,
"UMADDL", LTYPEM, AUMADDL,
"UMNEGL", LTYPE1, AUMNEGL,
"UMSUBL", LTYPEM, AUMSUBL,
"UMULH", LTYPE1, AUMULH,
"UMULL", LTYPE1, AUMULL,
"UREM", LTYPE1, AUREM,
"UREMW", LTYPE1, AUREMW,
"UXTB", LTYPE2, AUXTB,
"UXTH", LTYPE2, AUXTH,
"UXTBW", LTYPE2, AUXTBW,
"UXTHW", LTYPE2, AUXTHW,
"UXTW", LTYPE2, AUXTW,
"WFE", LTYPE0, AWFE,
"WFI", LTYPE0, AWFI,
"YIELD", LTYPE0, AYIELD,
"LDXR", LTYPE3, ALDXR,
"LDXRB", LTYPE3, ALDXRB,
"LDXRH", LTYPE3, ALDXRH,
"LDXRW", LTYPE3, ALDXRW,
"LDAR", LTYPE3, ALDAR,
"LDARB", LTYPE3, ALDARB,
"LDARH", LTYPE3, ALDARH,
"LDARW", LTYPE3, ALDARW,
"LDXP", LTYPE3, ALDXP,
"LDXPW", LTYPE3, ALDXPW,
"LDAXP", LTYPE3, ALDAXP,
"LDAXPW", LTYPE3, ALDAXPW,
"LDAXR", LTYPE3, ALDAXR,
"LDAXRB", LTYPE3, ALDAXRB,
"LDAXRH", LTYPE3, ALDAXRH,
"LDAXRW", LTYPE3, ALDAXRW,
"MOVK", LMOVK, AMOVK,
"MOVKW", LMOVK, AMOVKW,
"MOVN", LMOVK, AMOVN,
"MOVNW", LMOVK, AMOVNW,
"MOVZ", LMOVK, AMOVZ,
"MOVZW", LMOVK, AMOVZW,
"MOVB", LTYPE3, AMOVB,
"MOVBU", LTYPE3, AMOVBU,
"MOVH", LTYPE3, AMOVH,
"MOVHU", LTYPE3, AMOVHU,
"MOVW", LTYPE3, AMOVW,
"MOVWU", LTYPE3, AMOVWU,
"MOV", LTYPE3, AMOV,
"MOVP", LTYPEJ, AMOVP,
"MOVPD", LTYPEJ, AMOVPD,
"MOVPQ", LTYPEJ, AMOVPQ,
"MOVPS", LTYPEJ, AMOVPS,
"MOVPSW", LTYPEJ, AMOVPSW,
"MOVPW", LTYPEJ, AMOVPW,
"MOVNP", LTYPEJ, AMOVNP,
"MOVNPW", LTYPEJ, AMOVNPW,
"FMOVD", LTYPE3, AFMOVD,
"FMOVS", LTYPE3, AFMOVS,
"SCVTFD", LTYPE3, ASCVTFD,
"SCVTFS", LTYPE3, ASCVTFS,
"SCVTFWD", LTYPE3, ASCVTFWD,
"SCVTFWS", LTYPE3, ASCVTFWS,
"UCVTFD", LTYPE3, AUCVTFD,
"UCVTFS", LTYPE3, AUCVTFS,
"UCVTFWD", LTYPE3, AUCVTFWD,
"UCVTFWS", LTYPE3, AUCVTFWS,
"FCVTSD", LTYPE3, AFCVTSD,
"FCVTDS", LTYPE3, AFCVTDS,
"FCVTZSD", LTYPE3, AFCVTZSD,
"FCVTZSDW", LTYPE3, AFCVTZSDW,
"FCVTZSS", LTYPE3, AFCVTZSS,
"FCVTZSSW", LTYPE3, AFCVTZSSW,
"FCVTZUD", LTYPE3, AFCVTZUD,
"FCVTZUDW", LTYPE3, AFCVTZUDW,
"FCVTZUS", LTYPE3, AFCVTZUS,
"FCVTZUSW", LTYPE3, AFCVTZUSW,
"FCMPS", LTYPEL, AFCMPS,
"FCMPD", LTYPEL, AFCMPD,
"FCMPES", LTYPEL, AFCMPES,
"FCMPED", LTYPEL, AFCMPED,
"FCCMPS", LTYPEF, AFCCMPS,
"FCCMPD", LTYPEF, AFCCMPD,
"FCCMPES", LTYPEF, AFCCMPES,
"FCCMPED", LTYPEF, AFCCMPED,
"FADDS", LTYPEK, AFADDS,
"FADDD", LTYPEK, AFADDD,
"FSUBS", LTYPEK, AFSUBS,
"FSUBD", LTYPEK, AFSUBD,
"FMULS", LTYPEK, AFMULS,
"FMULD", LTYPEK, AFMULD,
"FDIVS", LTYPEK, AFDIVS,
"FDIVD", LTYPEK, AFDIVD,
"FCSELS", LFCSEL, AFCSELS,
"FCSELD", LFCSEL, AFCSELD,
"FMAXS", LTYPEK, AFMAXS,
"FMINS", LTYPEK, AFMINS,
"FMAXD", LTYPEK, AFMAXD,
"FMIND", LTYPEK, AFMIND,
"FMAXNMS", LTYPEK, AFMAXNMS,
"FMAXNMD", LTYPEK, AFMAXNMD,
"FMINNMS", LTYPEK, AFMINNMS,
"FMINNMD", LTYPEK, AFMINNMD,
"FNMULS", LTYPEK, AFNMULS,
"FNMULD", LTYPEK, AFNMULD,
"FRINTNS", LTYPE3, AFRINTNS,
"FRINTND", LTYPE3, AFRINTND,
"FRINTPS", LTYPE3, AFRINTPS,
"FRINTPD", LTYPE3, AFRINTPD,
"FRINTMS", LTYPE3, AFRINTMS,
"FRINTMD", LTYPE3, AFRINTMD,
"FRINTZS", LTYPE3, AFRINTZS,
"FRINTZD", LTYPE3, AFRINTZD,
"FRINTAS", LTYPE3, AFRINTAS,
"FRINTAD", LTYPE3, AFRINTAD,
"FRINTXS", LTYPE3, AFRINTXS,
"FRINTXD", LTYPE3, AFRINTXD,
"FRINTIS", LTYPE3, AFRINTIS,
"FRINTID", LTYPE3, AFRINTID,
"FMADDS", LTYPEM, AFMADDS,
"FMADDD", LTYPEM, AFMADDD,
"FMSUBS", LTYPEM, AFMSUBS,
"FMSUBD", LTYPEM, AFMSUBD,
"FNMADDS", LTYPEM, AFNMADDS,
"FNMADDD", LTYPEM, AFNMADDD,
"FNMSUBS", LTYPEM, AFNMSUBS,
"FNMSUBD", LTYPEM, AFNMSUBD,
"FABSS", LTYPE3, AFABSS,
"FABSD", LTYPE3, AFABSD,
"FNEGS", LTYPE3, AFNEGS,
"FNEGD", LTYPE3, AFNEGD,
"FSQRTS", LTYPE3, AFSQRTS,
"FSQRTD", LTYPE3, AFSQRTD,
"FCVTDH", LTYPE3, AFCVTDH,
"FCVTHS", LTYPE3, AFCVTHS,
"FCVTHD", LTYPE3, AFCVTHD,
"FCVTSH", LTYPE3, AFCVTSH,
"AESD", LTYPEW, AAESD,
"AESE", LTYPEW, AAESE,
"AESIMC", LTYPEW, AAESIMC,
"AESMC", LTYPEW, AAESMC,
"SHA1C", LTYPEW, ASHA1C,
"SHA1H", LTYPEW, ASHA1H,
"SHA1M", LTYPEW, ASHA1M,
"SHA1P", LTYPEW, ASHA1P,
"SHA1SU0", LTYPEW, ASHA1SU0,
"SHA1SU1", LTYPEW, ASHA1SU1,
"SHA256H", LTYPEW, ASHA256H,
"SHA256H2", LTYPEW, ASHA256H2,
"SHA256SU0", LTYPEW, ASHA256SU0,
"SHA256SU1", LTYPEW, ASHA256SU1,
"B", LTYPE4, AB,
"BL", LTYPE4, ABL,
"BEQ", LTYPE5, ABEQ,
"BNE", LTYPE5, ABNE,
"BCS", LTYPE5, ABCS,
"BHS", LTYPE5, ABHS,
"BCC", LTYPE5, ABCC,
"BLO", LTYPE5, ABLO,
"BMI", LTYPE5, ABMI,
"BPL", LTYPE5, ABPL,
"BVS", LTYPE5, ABVS,
"BVC", LTYPE5, ABVC,
"BHI", LTYPE5, ABHI,
"BLS", LTYPE5, ABLS,
"BGE", LTYPE5, ABGE,
"BLT", LTYPE5, ABLT,
"BGT", LTYPE5, ABGT,
"BLE", LTYPE5, ABLE,
"BCASE", LTYPE5, ABCASE,
"TEXT", LTYPEB, ATEXT,
"GLOBL", LTYPEB, AGLOBL,
"DATA", LTYPEC, ADATA,
"CASE", LTYPED, ACASE,
"END", LTYPEE, AEND,
"WORD", LTYPEH, AWORD,
"DWORD", LTYPEH, ADWORD,
"NOP", LTYPEQ, ANOP,
"RETURN", LTYPEA, ARETURN,
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;
nullgen.xreg = NREG;
if(FPCHIP)
nullgen.dval = 0;
for(i=0; i<sizeof(nullgen.sval); i++)
nullgen.sval[i] = 0;
nerrors = 0;
iostack = I;
iofree = I;
peekc = IGN;
for(i=0; i<NHASH; i++)
hash[i] = S;
for(i=0; itab[i].name; i++) {
s = slookup(itab[i].name);
if(s->value != 0)
yyerror("internal: duplicate %s", s->name);
s->type = itab[i].type;
s->value = itab[i].value;
}
pathname = allocn(pathname, 0, 100);
if(getwd(pathname, 99) == 0) {
pathname = allocn(pathname, 100, 900);
if(getwd(pathname, 999) == 0)
strcpy(pathname, "/???");
}
}
void
syminit(Sym *s)
{
s->type = LNAME;
s->value = 0;
}
void
cclean(void)
{
outcode(AEND, &nullgen, NREG, &nullgen);
Bflush(&obuf);
}
void
zname(char *n, int t, int s)
{
Bputc(&obuf, ANAME);
Bputc(&obuf, ANAME>>8);
Bputc(&obuf, t); /* type */
Bputc(&obuf, s); /* sym */
while(*n) {
Bputc(&obuf, *n);
n++;
}
Bputc(&obuf, 0);
}
void
zaddr(Gen *a, int s)
{
long l;
int i;
char *n;
Ieee e;
if(a->type == D_CONST){
l = a->offset;
if((vlong)l != a->offset)
a->type = D_DCONST;
}
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_SP:
case D_FREG:
case D_VREG:
case D_COND:
break;
case D_DCONST:
l = a->offset;
Bputc(&obuf, l);
Bputc(&obuf, l>>8);
Bputc(&obuf, l>>16);
Bputc(&obuf, l>>24);
l = a->offset>>32;
Bputc(&obuf, l);
Bputc(&obuf, l>>8);
Bputc(&obuf, l>>16);
Bputc(&obuf, l>>24);
break;
case D_OREG:
case D_XPRE:
case D_XPOST:
case D_CONST:
case D_BRANCH:
case D_SHIFT:
case D_EXTREG:
case D_ROFF:
case D_SPR:
l = a->offset;
Bputc(&obuf, l);
Bputc(&obuf, l>>8);
Bputc(&obuf, l>>16);
Bputc(&obuf, l>>24);
break;
case D_SCONST:
n = a->sval;
for(i=0; i<NSNAME; i++) {
Bputc(&obuf, *n);
n++;
}
break;
case D_FCONST:
ieeedtod(&e, a->dval);
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;
}
}
static int
outsim(Gen *g)
{
Sym *s;
int sno, t;
s = g->sym;
if(s == S)
return 0;
sno = s->sym;
if(sno < 0 || sno >= NSYM)
sno = 0;
t = g->name;
if(h[sno].type == t && h[sno].sym == s)
return sno;
zname(s->name, t, sym);
s->sym = sym;
h[sym].sym = s;
h[sym].type = t;
sno = sym;
sym++;
if(sym >= NSYM)
sym = 1;
return sno;
}
void
outcode(int a, Gen *g1, int reg, Gen *g2)
{
int sf, st;
if(a != AGLOBL && a != ADATA)
pc++;
if(pass == 1)
return;
do{
sf = outsim(g1);
st = outsim(g2);
} while(sf != 0 && st == sf);
Bputc(&obuf, a);
Bputc(&obuf, a>>8);
Bputc(&obuf, reg);
Bputc(&obuf, lineno);
Bputc(&obuf, lineno>>8);
Bputc(&obuf, lineno>>16);
Bputc(&obuf, lineno>>24);
zaddr(g1, sf);
zaddr(g2, st);
}
void
outcode4(int a, Gen *g1, int reg, Gen *g2, Gen *g3)
{
int s1, s2, s3, flag;
if(a != AGLOBL && a != ADATA)
pc++;
if(pass == 1)
return;
do{
s1 = outsim(g1);
s2 = outsim(g2);
s3 = outsim(g3);
} while(s1 && (s2 && s1 == s2 || s3 && s1 == s3) || s2 && (s3 && s2 == s3));
flag = 0;
if(g2->type != D_NONE)
flag = 0x40; /* flags extra operand */
Bputc(&obuf, a);
Bputc(&obuf, a>>8);
Bputc(&obuf, reg | flag);
Bputc(&obuf, lineno);
Bputc(&obuf, lineno>>8);
Bputc(&obuf, lineno>>16);
Bputc(&obuf, lineno>>24);
zaddr(g1, s1);
if(flag)
zaddr(g2, s2);
zaddr(g3, s3);
}
void
outhist(void)
{
Gen g;
Hist *h;
char *p, *q, *op, c;
int n;
g = nullgen;
c = pathchar();
for(h = hist; h != H; h = h->link) {
p = h->name;
op = 0;
/* on windows skip drive specifier in pathname */
if(systemtype(Windows) && p && p[1] == ':'){
p += 2;
c = *p;
}
if(p && p[0] != c && h->offset == 0 && pathname){
/* on windows skip drive specifier in pathname */
if(systemtype(Windows) && pathname[1] == ':') {
op = p;
p = pathname+2;
c = *p;
} else if(pathname[0] == c){
op = p;
p = pathname;
}
}
while(p) {
q = strchr(p, c);
if(q) {
n = q-p;
if(n == 0){
n = 1; /* leading "/" */
*p = '/'; /* don't emit "\" on windows */
}
q++;
} else {
n = strlen(p);
q = 0;
}
if(n) {
Bputc(&obuf, ANAME);
Bputc(&obuf, ANAME>>8);
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, AHISTORY>>8);
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"