ref: faa625a1d5ab47ac0438b2cea5b2bde1ea747b8b
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"