ref: 12e226ac6798412271020d42645f69138715c519
dir: /utils/6a/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 = '6'; thestring = "amd64"; 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[100], incfile[20], *p; int i, of; strcpy(ofile, file); p = utfrrune(ofile, pathchar()); if(p) { include[0] = ofile; *p++ = 0; } else p = ofile; if(outfile == 0) { outfile = p; if(outfile){ p = utfrrune(outfile, '.'); if(p) if(p[1] == 's' && p[2] == 0) p[0] = 0; p = utfrune(outfile, 0); p[0] = '.'; p[1] = thechar; p[2] = 0; } else outfile = "/dev/null"; } p = getenv("INCLUDE"); if(p) { setinclude(p); } else { if(systemtype(Plan9)) { sprint(incfile,"/%s/include", thestring); setinclude(strdup(incfile)); } } 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; ushort value; } itab[] = { "SP", LSP, D_AUTO, "SB", LSB, D_EXTERN, "FP", LFP, D_PARAM, "PC", LPC, D_BRANCH, "AL", LBREG, D_AL, "CL", LBREG, D_CL, "DL", LBREG, D_DL, "BL", LBREG, D_BL, /* "SPB", LBREG, D_SPB, */ "SIB", LBREG, D_SIB, "DIB", LBREG, D_DIB, "BPB", LBREG, D_BPB, "R8B", LBREG, D_R8B, "R9B", LBREG, D_R9B, "R10B", LBREG, D_R10B, "R11B", LBREG, D_R11B, "R12B", LBREG, D_R12B, "R13B", LBREG, D_R13B, "R14B", LBREG, D_R14B, "R15B", LBREG, D_R15B, "AH", LBREG, D_AH, "CH", LBREG, D_CH, "DH", LBREG, D_DH, "BH", LBREG, D_BH, "AX", LLREG, D_AX, "CX", LLREG, D_CX, "DX", LLREG, D_DX, "BX", LLREG, D_BX, /* "SP", LLREG, D_SP, */ "BP", LLREG, D_BP, "SI", LLREG, D_SI, "DI", LLREG, D_DI, "R8", LLREG, D_R8, "R9", LLREG, D_R9, "R10", LLREG, D_R10, "R11", LLREG, D_R11, "R12", LLREG, D_R12, "R13", LLREG, D_R13, "R14", LLREG, D_R14, "R15", LLREG, D_R15, "RARG", LLREG, REGARG, "F0", LFREG, D_F0+0, "F1", LFREG, D_F0+1, "F2", LFREG, D_F0+2, "F3", LFREG, D_F0+3, "F4", LFREG, D_F0+4, "F5", LFREG, D_F0+5, "F6", LFREG, D_F0+6, "F7", LFREG, D_F0+7, "M0", LMREG, D_M0+0, "M1", LMREG, D_M0+1, "M2", LMREG, D_M0+2, "M3", LMREG, D_M0+3, "M4", LMREG, D_M0+4, "M5", LMREG, D_M0+5, "M6", LMREG, D_M0+6, "M7", LMREG, D_M0+7, "X0", LXREG, D_X0+0, "X1", LXREG, D_X0+1, "X2", LXREG, D_X0+2, "X3", LXREG, D_X0+3, "X4", LXREG, D_X0+4, "X5", LXREG, D_X0+5, "X6", LXREG, D_X0+6, "X7", LXREG, D_X0+7, "X8", LXREG, D_X0+8, "X9", LXREG, D_X0+9, "X10", LXREG, D_X0+10, "X11", LXREG, D_X0+11, "X12", LXREG, D_X0+12, "X13", LXREG, D_X0+13, "X14", LXREG, D_X0+14, "X15", LXREG, D_X0+15, "CS", LSREG, D_CS, "SS", LSREG, D_SS, "DS", LSREG, D_DS, "ES", LSREG, D_ES, "FS", LSREG, D_FS, "GS", LSREG, D_GS, "GDTR", LBREG, D_GDTR, "IDTR", LBREG, D_IDTR, "LDTR", LBREG, D_LDTR, "MSW", LBREG, D_MSW, "TASK", LBREG, D_TASK, "CR0", LBREG, D_CR+0, "CR1", LBREG, D_CR+1, "CR2", LBREG, D_CR+2, "CR3", LBREG, D_CR+3, "CR4", LBREG, D_CR+4, "CR5", LBREG, D_CR+5, "CR6", LBREG, D_CR+6, "CR7", LBREG, D_CR+7, "CR8", LBREG, D_CR+8, "CR9", LBREG, D_CR+9, "CR10", LBREG, D_CR+10, "CR11", LBREG, D_CR+11, "CR12", LBREG, D_CR+12, "CR13", LBREG, D_CR+13, "CR14", LBREG, D_CR+14, "CR15", LBREG, D_CR+15, "DR0", LBREG, D_DR+0, "DR1", LBREG, D_DR+1, "DR2", LBREG, D_DR+2, "DR3", LBREG, D_DR+3, "DR4", LBREG, D_DR+4, "DR5", LBREG, D_DR+5, "DR6", LBREG, D_DR+6, "DR7", LBREG, D_DR+7, "TR0", LBREG, D_TR+0, "TR1", LBREG, D_TR+1, "TR2", LBREG, D_TR+2, "TR3", LBREG, D_TR+3, "TR4", LBREG, D_TR+4, "TR5", LBREG, D_TR+5, "TR6", LBREG, D_TR+6, "TR7", LBREG, D_TR+7, "AAA", LTYPE0, AAAA, "AAD", LTYPE0, AAAD, "AAM", LTYPE0, AAAM, "AAS", LTYPE0, AAAS, "ADCB", LTYPE3, AADCB, "ADCL", LTYPE3, AADCL, "ADCQ", LTYPE3, AADCQ, "ADCW", LTYPE3, AADCW, "ADDB", LTYPE3, AADDB, "ADDL", LTYPE3, AADDL, "ADDQ", LTYPE3, AADDQ, "ADDW", LTYPE3, AADDW, "ADJSP", LTYPE2, AADJSP, "ANDB", LTYPE3, AANDB, "ANDL", LTYPE3, AANDL, "ANDQ", LTYPE3, AANDQ, "ANDW", LTYPE3, AANDW, "ARPL", LTYPE3, AARPL, "BOUNDL", LTYPE3, ABOUNDL, "BOUNDW", LTYPE3, ABOUNDW, "BSFL", LTYPE3, ABSFL, "BSFQ", LTYPE3, ABSFQ, "BSFW", LTYPE3, ABSFW, "BSRL", LTYPE3, ABSRL, "BSRQ", LTYPE3, ABSRQ, "BSRW", LTYPE3, ABSRW, "BTCL", LTYPE3, ABTCL, "BTCQ", LTYPE3, ABTCQ, "BTCW", LTYPE3, ABTCW, "BTL", LTYPE3, ABTL, "BTQ", LTYPE3, ABTQ, "BTRL", LTYPE3, ABTRL, "BTRQ", LTYPE3, ABTRQ, "BTRW", LTYPE3, ABTRW, "BTSL", LTYPE3, ABTSL, "BTSQ", LTYPE3, ABTSQ, "BTSW", LTYPE3, ABTSW, "BTW", LTYPE3, ABTW, "BYTE", LTYPE2, ABYTE, "CALL", LTYPEC, ACALL, "CLC", LTYPE0, ACLC, "CLD", LTYPE0, ACLD, "CLI", LTYPE0, ACLI, "CLTS", LTYPE0, ACLTS, "CMC", LTYPE0, ACMC, "CMPB", LTYPE4, ACMPB, "CMPL", LTYPE4, ACMPL, "CMPQ", LTYPE4, ACMPQ, "CMPW", LTYPE4, ACMPW, "CMPSB", LTYPE0, ACMPSB, "CMPSL", LTYPE0, ACMPSL, "CMPSQ", LTYPE0, ACMPSQ, "CMPSW", LTYPE0, ACMPSW, "CMPXCHG8B", LTYPE1, ACMPXCHG8B, "CMPXCHGB", LTYPE3, ACMPXCHGB, /* LTYPE3? */ "CMPXCHGL", LTYPE3, ACMPXCHGL, "CMPXCHGQ", LTYPE3, ACMPXCHGQ, "CMPXCHGW", LTYPE3, ACMPXCHGW, "CPUID", LTYPE0, ACPUID, "DAA", LTYPE0, ADAA, "DAS", LTYPE0, ADAS, "DATA", LTYPED, ADATA, "DECB", LTYPE1, ADECB, "DECL", LTYPE1, ADECL, "DECQ", LTYPE1, ADECQ, "DECW", LTYPE1, ADECW, "DIVB", LTYPE2, ADIVB, "DIVL", LTYPE2, ADIVL, "DIVQ", LTYPE2, ADIVQ, "DIVW", LTYPE2, ADIVW, "EMMS", LTYPE0, AEMMS, "END", LTYPE0, AEND, "ENTER", LTYPE2, AENTER, "GLOBL", LTYPET, AGLOBL, "HLT", LTYPE0, AHLT, "IDIVB", LTYPE2, AIDIVB, "IDIVL", LTYPE2, AIDIVL, "IDIVQ", LTYPE2, AIDIVQ, "IDIVW", LTYPE2, AIDIVW, "IMULB", LTYPEI, AIMULB, "IMULL", LTYPEI, AIMULL, "IMULQ", LTYPEI, AIMULQ, "IMULW", LTYPEI, AIMULW, "INB", LTYPE0, AINB, "INL", LTYPE0, AINL, "INW", LTYPE0, AINW, "INCB", LTYPE1, AINCB, "INCL", LTYPE1, AINCL, "INCQ", LTYPE1, AINCQ, "INCW", LTYPE1, AINCW, "INSB", LTYPE0, AINSB, "INSL", LTYPE0, AINSL, "INSW", LTYPE0, AINSW, "INT", LTYPE2, AINT, "INTO", LTYPE0, AINTO, "INVD", LTYPE0, AINVD, "INVLPG", LTYPE2, AINVLPG, "IRETL", LTYPE0, AIRETL, "IRETQ", LTYPE0, AIRETQ, "IRETW", LTYPE0, AIRETW, "JOS", LTYPER, AJOS, "JO", LTYPER, AJOS, /* alternate */ "JOC", LTYPER, AJOC, "JNO", LTYPER, AJOC, /* alternate */ "JCS", LTYPER, AJCS, "JB", LTYPER, AJCS, /* alternate */ "JC", LTYPER, AJCS, /* alternate */ "JNAE", LTYPER, AJCS, /* alternate */ "JLO", LTYPER, AJCS, /* alternate */ "JCC", LTYPER, AJCC, "JAE", LTYPER, AJCC, /* alternate */ "JNB", LTYPER, AJCC, /* alternate */ "JNC", LTYPER, AJCC, /* alternate */ "JHS", LTYPER, AJCC, /* alternate */ "JEQ", LTYPER, AJEQ, "JE", LTYPER, AJEQ, /* alternate */ "JZ", LTYPER, AJEQ, /* alternate */ "JNE", LTYPER, AJNE, "JNZ", LTYPER, AJNE, /* alternate */ "JLS", LTYPER, AJLS, "JBE", LTYPER, AJLS, /* alternate */ "JNA", LTYPER, AJLS, /* alternate */ "JHI", LTYPER, AJHI, "JA", LTYPER, AJHI, /* alternate */ "JNBE", LTYPER, AJHI, /* alternate */ "JMI", LTYPER, AJMI, "JS", LTYPER, AJMI, /* alternate */ "JPL", LTYPER, AJPL, "JNS", LTYPER, AJPL, /* alternate */ "JPS", LTYPER, AJPS, "JP", LTYPER, AJPS, /* alternate */ "JPE", LTYPER, AJPS, /* alternate */ "JPC", LTYPER, AJPC, "JNP", LTYPER, AJPC, /* alternate */ "JPO", LTYPER, AJPC, /* alternate */ "JLT", LTYPER, AJLT, "JL", LTYPER, AJLT, /* alternate */ "JNGE", LTYPER, AJLT, /* alternate */ "JGE", LTYPER, AJGE, "JNL", LTYPER, AJGE, /* alternate */ "JLE", LTYPER, AJLE, "JNG", LTYPER, AJLE, /* alternate */ "JGT", LTYPER, AJGT, "JG", LTYPER, AJGT, /* alternate */ "JNLE", LTYPER, AJGT, /* alternate */ "JCXZ", LTYPER, AJCXZ, "JMP", LTYPEC, AJMP, "LAHF", LTYPE0, ALAHF, "LARL", LTYPE3, ALARL, "LARW", LTYPE3, ALARW, "LEAL", LTYPE3, ALEAL, "LEAQ", LTYPE3, ALEAQ, "LEAW", LTYPE3, ALEAW, "LEAVEL", LTYPE0, ALEAVEL, "LEAVEQ", LTYPE0, ALEAVEQ, "LEAVEW", LTYPE0, ALEAVEW, "LFENCE", LTYPE0, ALFENCE, "LOCK", LTYPE0, ALOCK, "LODSB", LTYPE0, ALODSB, "LODSL", LTYPE0, ALODSL, "LODSQ", LTYPE0, ALODSQ, "LODSW", LTYPE0, ALODSW, "LONG", LTYPE2, ALONG, "LOOP", LTYPER, ALOOP, "LOOPEQ", LTYPER, ALOOPEQ, "LOOPNE", LTYPER, ALOOPNE, "LSLL", LTYPE3, ALSLL, "LSLW", LTYPE3, ALSLW, "MFENCE", LTYPE0, AMFENCE, "MODE", LTYPE2, AMODE, "MOVB", LTYPE3, AMOVB, "MOVL", LTYPEM, AMOVL, "MOVQ", LTYPEM, AMOVQ, "MOVW", LTYPEM, AMOVW, "MOVBLSX", LTYPE3, AMOVBLSX, "MOVBLZX", LTYPE3, AMOVBLZX, "MOVBQSX", LTYPE3, AMOVBQSX, "MOVBQZX", LTYPE3, AMOVBQZX, "MOVBWSX", LTYPE3, AMOVBWSX, "MOVBWZX", LTYPE3, AMOVBWZX, "MOVLQSX", LTYPE3, AMOVLQSX, "MOVLQZX", LTYPE3, AMOVLQZX, "MOVNTIL", LTYPE3, AMOVNTIL, "MOVNTIQ", LTYPE3, AMOVNTIQ, "MOVWLSX", LTYPE3, AMOVWLSX, "MOVWLZX", LTYPE3, AMOVWLZX, "MOVWQSX", LTYPE3, AMOVWQSX, "MOVWQZX", LTYPE3, AMOVWQZX, "MOVSB", LTYPE0, AMOVSB, "MOVSL", LTYPE0, AMOVSL, "MOVSQ", LTYPE0, AMOVSQ, "MOVSW", LTYPE0, AMOVSW, "MULB", LTYPE2, AMULB, "MULL", LTYPE2, AMULL, "MULQ", LTYPE2, AMULQ, "MULW", LTYPE2, AMULW, "NEGB", LTYPE1, ANEGB, "NEGL", LTYPE1, ANEGL, "NEGQ", LTYPE1, ANEGQ, "NEGW", LTYPE1, ANEGW, "NOP", LTYPEN, ANOP, "NOTB", LTYPE1, ANOTB, "NOTL", LTYPE1, ANOTL, "NOTQ", LTYPE1, ANOTQ, "NOTW", LTYPE1, ANOTW, "ORB", LTYPE3, AORB, "ORL", LTYPE3, AORL, "ORQ", LTYPE3, AORQ, "ORW", LTYPE3, AORW, "OUTB", LTYPE0, AOUTB, "OUTL", LTYPE0, AOUTL, "OUTW", LTYPE0, AOUTW, "OUTSB", LTYPE0, AOUTSB, "OUTSL", LTYPE0, AOUTSL, "OUTSW", LTYPE0, AOUTSW, "POPAL", LTYPE0, APOPAL, "POPAW", LTYPE0, APOPAW, "POPFL", LTYPE0, APOPFL, "POPFQ", LTYPE0, APOPFQ, "POPFW", LTYPE0, APOPFW, "POPL", LTYPE1, APOPL, "POPQ", LTYPE1, APOPQ, "POPW", LTYPE1, APOPW, "PUSHAL", LTYPE0, APUSHAL, "PUSHAW", LTYPE0, APUSHAW, "PUSHFL", LTYPE0, APUSHFL, "PUSHFQ", LTYPE0, APUSHFQ, "PUSHFW", LTYPE0, APUSHFW, "PUSHL", LTYPE2, APUSHL, "PUSHQ", LTYPE2, APUSHQ, "PUSHW", LTYPE2, APUSHW, "RCLB", LTYPE3, ARCLB, "RCLL", LTYPE3, ARCLL, "RCLQ", LTYPE3, ARCLQ, "RCLW", LTYPE3, ARCLW, "RCRB", LTYPE3, ARCRB, "RCRL", LTYPE3, ARCRL, "RCRQ", LTYPE3, ARCRQ, "RCRW", LTYPE3, ARCRW, "RDMSR", LTYPE0, ARDMSR, "RDPMC", LTYPE0, ARDPMC, "RDTSC", LTYPE0, ARDTSC, "REP", LTYPE0, AREP, "REPN", LTYPE0, AREPN, "RET", LTYPE0, ARET, "RETFL", LTYPERT,ARETFL, "RETFW", LTYPERT,ARETFW, "RETFQ", LTYPERT,ARETFQ, "ROLB", LTYPE3, AROLB, "ROLL", LTYPE3, AROLL, "ROLQ", LTYPE3, AROLQ, "ROLW", LTYPE3, AROLW, "RORB", LTYPE3, ARORB, "RORL", LTYPE3, ARORL, "RORQ", LTYPE3, ARORQ, "RORW", LTYPE3, ARORW, "RSM", LTYPE0, ARSM, "SAHF", LTYPE0, ASAHF, "SALB", LTYPE3, ASALB, "SALL", LTYPE3, ASALL, "SALQ", LTYPE3, ASALQ, "SALW", LTYPE3, ASALW, "SARB", LTYPE3, ASARB, "SARL", LTYPE3, ASARL, "SARQ", LTYPE3, ASARQ, "SARW", LTYPE3, ASARW, "SBBB", LTYPE3, ASBBB, "SBBL", LTYPE3, ASBBL, "SBBQ", LTYPE3, ASBBQ, "SBBW", LTYPE3, ASBBW, "SCASB", LTYPE0, ASCASB, "SCASL", LTYPE0, ASCASL, "SCASQ", LTYPE0, ASCASQ, "SCASW", LTYPE0, ASCASW, "SETCC", LTYPE1, ASETCC, "SETCS", LTYPE1, ASETCS, "SETEQ", LTYPE1, ASETEQ, "SETGE", LTYPE1, ASETGE, "SETGT", LTYPE1, ASETGT, "SETHI", LTYPE1, ASETHI, "SETLE", LTYPE1, ASETLE, "SETLS", LTYPE1, ASETLS, "SETLT", LTYPE1, ASETLT, "SETMI", LTYPE1, ASETMI, "SETNE", LTYPE1, ASETNE, "SETOC", LTYPE1, ASETOC, "SETOS", LTYPE1, ASETOS, "SETPC", LTYPE1, ASETPC, "SETPL", LTYPE1, ASETPL, "SETPS", LTYPE1, ASETPS, "SFENCE", LTYPE0, ASFENCE, "CDQ", LTYPE0, ACDQ, "CWD", LTYPE0, ACWD, "CQO", LTYPE0, ACQO, "SHLB", LTYPE3, ASHLB, "SHLL", LTYPES, ASHLL, "SHLQ", LTYPES, ASHLQ, "SHLW", LTYPES, ASHLW, "SHRB", LTYPE3, ASHRB, "SHRL", LTYPES, ASHRL, "SHRQ", LTYPES, ASHRQ, "SHRW", LTYPES, ASHRW, "STC", LTYPE0, ASTC, "STD", LTYPE0, ASTD, "STI", LTYPE0, ASTI, "STOSB", LTYPE0, ASTOSB, "STOSL", LTYPE0, ASTOSL, "STOSQ", LTYPE0, ASTOSQ, "STOSW", LTYPE0, ASTOSW, "SUBB", LTYPE3, ASUBB, "SUBL", LTYPE3, ASUBL, "SUBQ", LTYPE3, ASUBQ, "SUBW", LTYPE3, ASUBW, "SYSCALL", LTYPE0, ASYSCALL, "SYSRET", LTYPE0, ASYSRET, "SWAPGS", LTYPE0, ASWAPGS, "TESTB", LTYPE3, ATESTB, "TESTL", LTYPE3, ATESTL, "TESTQ", LTYPE3, ATESTQ, "TESTW", LTYPE3, ATESTW, "TEXT", LTYPET, ATEXT, "VERR", LTYPE2, AVERR, "VERW", LTYPE2, AVERW, "QUAD", LTYPE2, AQUAD, "WAIT", LTYPE0, AWAIT, "WBINVD", LTYPE0, AWBINVD, "WRMSR", LTYPE0, AWRMSR, "WORD", LTYPE2, AWORD, "XADDB", LTYPE3, AXADDB, "XADDL", LTYPE3, AXADDL, "XADDQ", LTYPE3, AXADDQ, "XADDW", LTYPE3, AXADDW, "XCHGB", LTYPE3, AXCHGB, "XCHGL", LTYPE3, AXCHGL, "XCHGQ", LTYPE3, AXCHGQ, "XCHGW", LTYPE3, AXCHGW, "XLAT", LTYPE2, AXLAT, "XORB", LTYPE3, AXORB, "XORL", LTYPE3, AXORL, "XORQ", LTYPE3, AXORQ, "XORW", LTYPE3, AXORW, "CMOVLCC", LTYPE3, ACMOVLCC, "CMOVLCS", LTYPE3, ACMOVLCS, "CMOVLEQ", LTYPE3, ACMOVLEQ, "CMOVLGE", LTYPE3, ACMOVLGE, "CMOVLGT", LTYPE3, ACMOVLGT, "CMOVLHI", LTYPE3, ACMOVLHI, "CMOVLLE", LTYPE3, ACMOVLLE, "CMOVLLS", LTYPE3, ACMOVLLS, "CMOVLLT", LTYPE3, ACMOVLLT, "CMOVLMI", LTYPE3, ACMOVLMI, "CMOVLNE", LTYPE3, ACMOVLNE, "CMOVLOC", LTYPE3, ACMOVLOC, "CMOVLOS", LTYPE3, ACMOVLOS, "CMOVLPC", LTYPE3, ACMOVLPC, "CMOVLPL", LTYPE3, ACMOVLPL, "CMOVLPS", LTYPE3, ACMOVLPS, "CMOVQCC", LTYPE3, ACMOVQCC, "CMOVQCS", LTYPE3, ACMOVQCS, "CMOVQEQ", LTYPE3, ACMOVQEQ, "CMOVQGE", LTYPE3, ACMOVQGE, "CMOVQGT", LTYPE3, ACMOVQGT, "CMOVQHI", LTYPE3, ACMOVQHI, "CMOVQLE", LTYPE3, ACMOVQLE, "CMOVQLS", LTYPE3, ACMOVQLS, "CMOVQLT", LTYPE3, ACMOVQLT, "CMOVQMI", LTYPE3, ACMOVQMI, "CMOVQNE", LTYPE3, ACMOVQNE, "CMOVQOC", LTYPE3, ACMOVQOC, "CMOVQOS", LTYPE3, ACMOVQOS, "CMOVQPC", LTYPE3, ACMOVQPC, "CMOVQPL", LTYPE3, ACMOVQPL, "CMOVQPS", LTYPE3, ACMOVQPS, "CMOVWCC", LTYPE3, ACMOVWCC, "CMOVWCS", LTYPE3, ACMOVWCS, "CMOVWEQ", LTYPE3, ACMOVWEQ, "CMOVWGE", LTYPE3, ACMOVWGE, "CMOVWGT", LTYPE3, ACMOVWGT, "CMOVWHI", LTYPE3, ACMOVWHI, "CMOVWLE", LTYPE3, ACMOVWLE, "CMOVWLS", LTYPE3, ACMOVWLS, "CMOVWLT", LTYPE3, ACMOVWLT, "CMOVWMI", LTYPE3, ACMOVWMI, "CMOVWNE", LTYPE3, ACMOVWNE, "CMOVWOC", LTYPE3, ACMOVWOC, "CMOVWOS", LTYPE3, ACMOVWOS, "CMOVWPC", LTYPE3, ACMOVWPC, "CMOVWPL", LTYPE3, ACMOVWPL, "CMOVWPS", LTYPE3, ACMOVWPS, "FMOVB", LTYPE3, AFMOVB, "FMOVBP", LTYPE3, AFMOVBP, "FMOVD", LTYPE3, AFMOVD, "FMOVDP", LTYPE3, AFMOVDP, "FMOVF", LTYPE3, AFMOVF, "FMOVFP", LTYPE3, AFMOVFP, "FMOVL", LTYPE3, AFMOVL, "FMOVLP", LTYPE3, AFMOVLP, "FMOVV", LTYPE3, AFMOVV, "FMOVVP", LTYPE3, AFMOVVP, "FMOVW", LTYPE3, AFMOVW, "FMOVWP", LTYPE3, AFMOVWP, "FMOVX", LTYPE3, AFMOVX, "FMOVXP", LTYPE3, AFMOVXP, "FCOMB", LTYPE3, AFCOMB, "FCOMBP", LTYPE3, AFCOMBP, "FCOMD", LTYPE3, AFCOMD, "FCOMDP", LTYPE3, AFCOMDP, "FCOMDPP", LTYPE3, AFCOMDPP, "FCOMF", LTYPE3, AFCOMF, "FCOMFP", LTYPE3, AFCOMFP, "FCOML", LTYPE3, AFCOML, "FCOMLP", LTYPE3, AFCOMLP, "FCOMW", LTYPE3, AFCOMW, "FCOMWP", LTYPE3, AFCOMWP, "FUCOM", LTYPE3, AFUCOM, "FUCOMP", LTYPE3, AFUCOMP, "FUCOMPP", LTYPE3, AFUCOMPP, "FADDW", LTYPE3, AFADDW, "FADDL", LTYPE3, AFADDL, "FADDF", LTYPE3, AFADDF, "FADDD", LTYPE3, AFADDD, "FADDDP", LTYPE3, AFADDDP, "FSUBDP", LTYPE3, AFSUBDP, "FSUBW", LTYPE3, AFSUBW, "FSUBL", LTYPE3, AFSUBL, "FSUBF", LTYPE3, AFSUBF, "FSUBD", LTYPE3, AFSUBD, "FSUBRDP", LTYPE3, AFSUBRDP, "FSUBRW", LTYPE3, AFSUBRW, "FSUBRL", LTYPE3, AFSUBRL, "FSUBRF", LTYPE3, AFSUBRF, "FSUBRD", LTYPE3, AFSUBRD, "FMULDP", LTYPE3, AFMULDP, "FMULW", LTYPE3, AFMULW, "FMULL", LTYPE3, AFMULL, "FMULF", LTYPE3, AFMULF, "FMULD", LTYPE3, AFMULD, "FDIVDP", LTYPE3, AFDIVDP, "FDIVW", LTYPE3, AFDIVW, "FDIVL", LTYPE3, AFDIVL, "FDIVF", LTYPE3, AFDIVF, "FDIVD", LTYPE3, AFDIVD, "FDIVRDP", LTYPE3, AFDIVRDP, "FDIVRW", LTYPE3, AFDIVRW, "FDIVRL", LTYPE3, AFDIVRL, "FDIVRF", LTYPE3, AFDIVRF, "FDIVRD", LTYPE3, AFDIVRD, "FXCHD", LTYPE3, AFXCHD, "FFREE", LTYPE1, AFFREE, "FLDCW", LTYPE2, AFLDCW, "FLDENV", LTYPE1, AFLDENV, "FRSTOR", LTYPE2, AFRSTOR, "FSAVE", LTYPE1, AFSAVE, "FSTCW", LTYPE1, AFSTCW, "FSTENV", LTYPE1, AFSTENV, "FSTSW", LTYPE1, AFSTSW, "F2XM1", LTYPE0, AF2XM1, "FABS", LTYPE0, AFABS, "FCHS", LTYPE0, AFCHS, "FCLEX", LTYPE0, AFCLEX, "FCOS", LTYPE0, AFCOS, "FDECSTP", LTYPE0, AFDECSTP, "FINCSTP", LTYPE0, AFINCSTP, "FINIT", LTYPE0, AFINIT, "FLD1", LTYPE0, AFLD1, "FLDL2E", LTYPE0, AFLDL2E, "FLDL2T", LTYPE0, AFLDL2T, "FLDLG2", LTYPE0, AFLDLG2, "FLDLN2", LTYPE0, AFLDLN2, "FLDPI", LTYPE0, AFLDPI, "FLDZ", LTYPE0, AFLDZ, "FNOP", LTYPE0, AFNOP, "FPATAN", LTYPE0, AFPATAN, "FPREM", LTYPE0, AFPREM, "FPREM1", LTYPE0, AFPREM1, "FPTAN", LTYPE0, AFPTAN, "FRNDINT", LTYPE0, AFRNDINT, "FSCALE", LTYPE0, AFSCALE, "FSIN", LTYPE0, AFSIN, "FSINCOS", LTYPE0, AFSINCOS, "FSQRT", LTYPE0, AFSQRT, "FTST", LTYPE0, AFTST, "FXAM", LTYPE0, AFXAM, "FXTRACT", LTYPE0, AFXTRACT, "FYL2X", LTYPE0, AFYL2X, "FYL2XP1", LTYPE0, AFYL2XP1, "ADDPD", LTYPE3, AADDPD, "ADDPS", LTYPE3, AADDPS, "ADDSD", LTYPE3, AADDSD, "ADDSS", LTYPE3, AADDSS, "ANDNPD", LTYPE3, AANDNPD, "ANDNPS", LTYPE3, AANDNPS, "ANDPD", LTYPE3, AANDPD, "ANDPS", LTYPE3, AANDPS, "CMPPD", LTYPEXC,ACMPPD, "CMPPS", LTYPEXC,ACMPPS, "CMPSD", LTYPEXC,ACMPSD, "CMPSS", LTYPEXC,ACMPSS, "COMISD", LTYPE3, ACOMISD, "COMISS", LTYPE3, ACOMISS, "CVTPL2PD", LTYPE3, ACVTPL2PD, "CVTPL2PS", LTYPE3, ACVTPL2PS, "CVTPD2PL", LTYPE3, ACVTPD2PL, "CVTPD2PS", LTYPE3, ACVTPD2PS, "CVTPS2PL", LTYPE3, ACVTPS2PL, "PF2IW", LTYPE3, APF2IW, "PF2IL", LTYPE3, APF2IL, "PF2ID", LTYPE3, APF2IL, /* syn */ "PI2FL", LTYPE3, API2FL, "PI2FD", LTYPE3, API2FL, /* syn */ "PI2FW", LTYPE3, API2FW, "CVTPS2PD", LTYPE3, ACVTPS2PD, "CVTSD2SL", LTYPE3, ACVTSD2SL, "CVTSD2SQ", LTYPE3, ACVTSD2SQ, "CVTSD2SS", LTYPE3, ACVTSD2SS, "CVTSL2SD", LTYPE3, ACVTSL2SD, "CVTSQ2SD", LTYPE3, ACVTSQ2SD, "CVTSL2SS", LTYPE3, ACVTSL2SS, "CVTSQ2SS", LTYPE3, ACVTSQ2SS, "CVTSS2SD", LTYPE3, ACVTSS2SD, "CVTSS2SL", LTYPE3, ACVTSS2SL, "CVTSS2SQ", LTYPE3, ACVTSS2SQ, "CVTTPD2PL", LTYPE3, ACVTTPD2PL, "CVTTPS2PL", LTYPE3, ACVTTPS2PL, "CVTTSD2SL", LTYPE3, ACVTTSD2SL, "CVTTSD2SQ", LTYPE3, ACVTTSD2SQ, "CVTTSS2SL", LTYPE3, ACVTTSS2SL, "CVTTSS2SQ", LTYPE3, ACVTTSS2SQ, "DIVPD", LTYPE3, ADIVPD, "DIVPS", LTYPE3, ADIVPS, "DIVSD", LTYPE3, ADIVSD, "DIVSS", LTYPE3, ADIVSS, "FXRSTOR", LTYPE2, AFXRSTOR, "FXRSTOR64", LTYPE2, AFXRSTOR64, "FXSAVE", LTYPE1, AFXSAVE, "FXSAVE64", LTYPE1, AFXSAVE64, "LDMXCSR", LTYPE2, ALDMXCSR, "MASKMOVOU", LTYPE3, AMASKMOVOU, "MASKMOVDQU", LTYPE3, AMASKMOVOU, /* syn */ "MASKMOVQ", LTYPE3, AMASKMOVQ, "MAXPD", LTYPE3, AMAXPD, "MAXPS", LTYPE3, AMAXPS, "MAXSD", LTYPE3, AMAXSD, "MAXSS", LTYPE3, AMAXSS, "MINPD", LTYPE3, AMINPD, "MINPS", LTYPE3, AMINPS, "MINSD", LTYPE3, AMINSD, "MINSS", LTYPE3, AMINSS, "MOVAPD", LTYPE3, AMOVAPD, "MOVAPS", LTYPE3, AMOVAPS, "MOVD", LTYPE3, AMOVQ, /* syn */ "MOVDQ2Q", LTYPE3, AMOVQ, /* syn */ "MOVO", LTYPE3, AMOVO, "MOVOA", LTYPE3, AMOVO, /* syn */ "MOVOU", LTYPE3, AMOVOU, "MOVHLPS", LTYPE3, AMOVHLPS, "MOVHPD", LTYPE3, AMOVHPD, "MOVHPS", LTYPE3, AMOVHPS, "MOVLHPS", LTYPE3, AMOVLHPS, "MOVLPD", LTYPE3, AMOVLPD, "MOVLPS", LTYPE3, AMOVLPS, "MOVMSKPD", LTYPE3, AMOVMSKPD, "MOVMSKPS", LTYPE3, AMOVMSKPS, "MOVNTO", LTYPE3, AMOVNTO, "MOVNTDQ", LTYPE3, AMOVNTO, /* syn */ "MOVNTPD", LTYPE3, AMOVNTPD, "MOVNTPS", LTYPE3, AMOVNTPS, "MOVNTQ", LTYPE3, AMOVNTQ, "MOVQOZX", LTYPE3, AMOVQOZX, "MOVSD", LTYPE3, AMOVSD, "MOVSS", LTYPE3, AMOVSS, "MOVUPD", LTYPE3, AMOVUPD, "MOVUPS", LTYPE3, AMOVUPS, "MULPD", LTYPE3, AMULPD, "MULPS", LTYPE3, AMULPS, "MULSD", LTYPE3, AMULSD, "MULSS", LTYPE3, AMULSS, "ORPD", LTYPE3, AORPD, "ORPS", LTYPE3, AORPS, "PACKSSLW", LTYPE3, APACKSSLW, "PACKSSWB", LTYPE3, APACKSSWB, "PACKUSWB", LTYPE3, APACKUSWB, "PADDB", LTYPE3, APADDB, "PADDL", LTYPE3, APADDL, "PADDQ", LTYPE3, APADDQ, "PADDSB", LTYPE3, APADDSB, "PADDSW", LTYPE3, APADDSW, "PADDUSB", LTYPE3, APADDUSB, "PADDUSW", LTYPE3, APADDUSW, "PADDW", LTYPE3, APADDW, "PAND", LTYPE3, APAND, "PANDB", LTYPE3, APANDB, "PANDL", LTYPE3, APANDL, "PANDSB", LTYPE3, APANDSB, "PANDSW", LTYPE3, APANDSW, "PANDUSB", LTYPE3, APANDUSB, "PANDUSW", LTYPE3, APANDUSW, "PANDW", LTYPE3, APANDW, "PANDN", LTYPE3, APANDN, "PAVGB", LTYPE3, APAVGB, "PAVGW", LTYPE3, APAVGW, "PCMPEQB", LTYPE3, APCMPEQB, "PCMPEQL", LTYPE3, APCMPEQL, "PCMPEQW", LTYPE3, APCMPEQW, "PCMPGTB", LTYPE3, APCMPGTB, "PCMPGTL", LTYPE3, APCMPGTL, "PCMPGTW", LTYPE3, APCMPGTW, "PEXTRW", LTYPEX, APEXTRW, "PINSRW", LTYPEX, APINSRW, "PMADDWL", LTYPE3, APMADDWL, "PMAXSW", LTYPE3, APMAXSW, "PMAXUB", LTYPE3, APMAXUB, "PMINSW", LTYPE3, APMINSW, "PMINUB", LTYPE3, APMINUB, "PMOVMSKB", LTYPE3, APMOVMSKB, "PMULHRW", LTYPE3, APMULHRW, "PMULHUW", LTYPE3, APMULHUW, "PMULHW", LTYPE3, APMULHW, "PMULLW", LTYPE3, APMULLW, "PMULULQ", LTYPE3, APMULULQ, "POR", LTYPE3, APOR, "PSADBW", LTYPE3, APSADBW, "PSHUFHW", LTYPEX, APSHUFHW, "PSHUFL", LTYPEX, APSHUFL, "PSHUFLW", LTYPEX, APSHUFLW, "PSHUFW", LTYPEX, APSHUFW, "PSLLO", LTYPE3, APSLLO, "PSLLDQ", LTYPE3, APSLLO, /* syn */ "PSLLL", LTYPE3, APSLLL, "PSLLQ", LTYPE3, APSLLQ, "PSLLW", LTYPE3, APSLLW, "PSRAL", LTYPE3, APSRAL, "PSRAW", LTYPE3, APSRAW, "PSRLO", LTYPE3, APSRLO, "PSRLDQ", LTYPE3, APSRLO, /* syn */ "PSRLL", LTYPE3, APSRLL, "PSRLQ", LTYPE3, APSRLQ, "PSRLW", LTYPE3, APSRLW, "PSUBB", LTYPE3, APSUBB, "PSUBL", LTYPE3, APSUBL, "PSUBQ", LTYPE3, APSUBQ, "PSUBSB", LTYPE3, APSUBSB, "PSUBSW", LTYPE3, APSUBSW, "PSUBUSB", LTYPE3, APSUBUSB, "PSUBUSW", LTYPE3, APSUBUSW, "PSUBW", LTYPE3, APSUBW, "PUNPCKHBW", LTYPE3, APUNPCKHBW, "PUNPCKHLQ", LTYPE3, APUNPCKHLQ, "PUNPCKHQDQ", LTYPE3, APUNPCKHQDQ, "PUNPCKHWL", LTYPE3, APUNPCKHWL, "PUNPCKLBW", LTYPE3, APUNPCKLBW, "PUNPCKLLQ", LTYPE3, APUNPCKLLQ, "PUNPCKLQDQ", LTYPE3, APUNPCKLQDQ, "PUNPCKLWL", LTYPE3, APUNPCKLWL, "PXOR", LTYPE3, APXOR, "RCPPS", LTYPE3, ARCPPS, "RCPSS", LTYPE3, ARCPSS, "RSQRTPS", LTYPE3, ARSQRTPS, "RSQRTSS", LTYPE3, ARSQRTSS, "SHUFPD", LTYPEX, ASHUFPD, "SHUFPS", LTYPEX, ASHUFPS, "SQRTPD", LTYPE3, ASQRTPD, "SQRTPS", LTYPE3, ASQRTPS, "SQRTSD", LTYPE3, ASQRTSD, "SQRTSS", LTYPE3, ASQRTSS, "STMXCSR", LTYPE1, ASTMXCSR, "SUBPD", LTYPE3, ASUBPD, "SUBPS", LTYPE3, ASUBPS, "SUBSD", LTYPE3, ASUBSD, "SUBSS", LTYPE3, ASUBSS, "UCOMISD", LTYPE3, AUCOMISD, "UCOMISS", LTYPE3, AUCOMISS, "UNPCKHPD", LTYPE3, AUNPCKHPD, "UNPCKHPS", LTYPE3, AUNPCKHPS, "UNPCKLPD", LTYPE3, AUNPCKLPD, "UNPCKLPS", LTYPE3, AUNPCKLPS, "XORPD", LTYPE3, AXORPD, "XORPS", LTYPE3, AXORPS, 0 }; void cinit(void) { Sym *s; int i; nullgen.sym = S; nullgen.offset = 0; if(FPCHIP) nullgen.dval = 0; for(i=0; i<sizeof(nullgen.sval); i++) nullgen.sval[i] = 0; nullgen.type = D_NONE; nullgen.index = D_NONE; nullgen.scale = 0; nerrors = 0; iostack = I; iofree = I; peekc = IGN; nhunk = 0; for(i=0; i<NHASH; i++) hash[i] = S; for(i=0; itab[i].name; i++) { s = slookup(itab[i].name); if(s->type != LNAME) yyerror("double initialization %s", itab[i].name); s->type = itab[i].type; s->value = itab[i].value; } pathname = allocn(pathname, 0, 100); if(mygetwd(pathname, 99) == 0) { pathname = allocn(pathname, 100, 900); if(mygetwd(pathname, 999) == 0) strcpy(pathname, "/?"); } } void checkscale(int scale) { switch(scale) { case 1: case 2: case 4: case 8: return; } yyerror("scale must be 1248: %d", scale); } void syminit(Sym *s) { s->type = LNAME; s->value = 0; } void cclean(void) { Gen2 g2; g2.from = nullgen; g2.to = nullgen; outcode(AEND, &g2); Bflush(&obuf); } void zname(char *n, int t, int s) { Bputc(&obuf, ANAME); /* as(2) */ 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, t; char *n; Ieee e; t = 0; if(a->index != D_NONE || a->scale != 0) t |= T_INDEX; if(a->offset != 0) { t |= T_OFFSET; l = a->offset; if((vlong)l != a->offset) t |= T_64; } if(s != 0) t |= T_SYM; switch(a->type) { default: t |= T_TYPE; break; case D_FCONST: t |= T_FCONST; break; case D_SCONST: t |= T_SCONST; break; case D_NONE: break; } Bputc(&obuf, t); if(t & T_INDEX) { /* implies index, scale */ Bputc(&obuf, a->index); Bputc(&obuf, a->scale); } if(t & T_OFFSET) { /* implies offset */ l = a->offset; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); if(t & T_64) { l = a->offset>>32; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); } } if(t & T_SYM) /* implies sym */ Bputc(&obuf, s); if(t & T_FCONST) { ieeedtod(&e, a->dval); l = e.l; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); l = e.h; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); return; } if(t & T_SCONST) { n = a->sval; for(i=0; i<NSNAME; i++) { Bputc(&obuf, *n); n++; } return; } if(t & T_TYPE) Bputc(&obuf, a->type); } void outcode(int a, Gen2 *g2) { int sf, st, t; Sym *s; if(pass == 1) goto out; jackpot: sf = 0; s = g2->from.sym; while(s != S) { sf = s->sym; if(sf < 0 || sf >= NSYM) sf = 0; t = g2->from.type; if(t == D_ADDR) t = g2->from.index; 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->to.sym; while(s != S) { st = s->sym; if(st < 0 || st >= NSYM) st = 0; t = g2->to.type; if(t == D_ADDR) t = g2->to.index; 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, a>>8); Bputc(&obuf, lineno); Bputc(&obuf, lineno>>8); Bputc(&obuf, lineno>>16); Bputc(&obuf, lineno>>24); zaddr(&g2->from, sf); zaddr(&g2->to, st); out: if(a != AGLOBL && a != ADATA && a != AMODE) pc++; } 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, 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"