#include #include #include #include #include "../2c/2.out.h" #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 = '2'; thestring = "68020"; 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) dodefine(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: strcpy(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(unix()) { strcpy(incfile, "/usr/%include"); p = strrchr(incfile, '%'); if(p) *p = thechar; } else { strcpy(incfile, "/"); strcat(incfile, thestring); strcat(incfile, "/include"); } 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); yyparse(); if(nerrors) { cclean(); errorexit(); } pass = 2; outhist(); pinit(*argv); yyparse(); cclean(); if(nerrors) errorexit(); exits(0); } struct { char *name; ushort type; ushort value; } itab[] = { "SP", LSP, D_AUTO, "SB", LSB, D_EXTERN, "FP", LFP, D_PARAM, "PC", LPC, D_BRANCH, "TOS", LTOS, D_TOS, "CCR", LTOS, D_CCR, "SR", LTOS, D_SR, "SFC", LTOS, D_SFC, "DFC", LTOS, D_DFC, "CACR", LTOS, D_CACR, "USP", LTOS, D_USP, "VBR", LTOS, D_VBR, "CAAR", LTOS, D_CAAR, "MSP", LTOS, D_MSP, "ISP", LTOS, D_ISP, "FPCR", LTOS, D_FPCR, "FPSR", LTOS, D_FPSR, "FPIAR", LTOS, D_FPIAR, "TC", LTOS, D_TC, "ITT0", LTOS, D_ITT0, "ITT1", LTOS, D_ITT1, "DTT0", LTOS, D_DTT0, "DTT1", LTOS, D_DTT1, "MMUSR", LTOS, D_MMUSR, "URP", LTOS, D_URP, "SRP", LTOS, D_SRP, "R0", LDREG, D_R0+0, "R1", LDREG, D_R0+1, "R2", LDREG, D_R0+2, "R3", LDREG, D_R0+3, "R4", LDREG, D_R0+4, "R5", LDREG, D_R0+5, "R6", LDREG, D_R0+6, "R7", LDREG, D_R0+7, ".W", LWID, 0, ".L", LWID, 4, "A0", LAREG, D_A0+0, "A1", LAREG, D_A0+1, "A2", LAREG, D_A0+2, "A3", LAREG, D_A0+3, "A4", LAREG, D_A0+4, "A5", LAREG, D_A0+5, "A6", LAREG, D_A0+6, "A7", LAREG, D_A0+7, "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, "ABCD", LTYPE1, AABCD, "ADDB", LTYPE1, AADDB, "ADDL", LTYPE1, AADDL, "ADDW", LTYPE1, AADDW, "ADDXB", LTYPE1, AADDXB, "ADDXL", LTYPE1, AADDXL, "ADDXW", LTYPE1, AADDXW, "ADJSP", LTYPE5, AADJSP, "ANDB", LTYPE1, AANDB, "ANDL", LTYPE1, AANDL, "ANDW", LTYPE1, AANDW, "ASLB", LTYPE1, AASLB, "ASLL", LTYPE1, AASLL, "ASLW", LTYPE1, AASLW, "ASRB", LTYPE1, AASRB, "ASRL", LTYPE1, AASRL, "ASRW", LTYPE1, AASRW, "BCASE", LTYPE7, ABCASE, "BCC", LTYPE6, ABCC, "BCHG", LTYPE1, ABCHG, "BCLR", LTYPE1, ABCLR, "BCS", LTYPE6, ABCS, "BEQ", LTYPE6, ABEQ, "BFCHG", LTYPEA, ABFCHG, "BFCLR", LTYPEA, ABFCLR, "BFEXTS", LTYPEA, ABFEXTS, "BFEXTU", LTYPEA, ABFEXTU, "BFFFO", LTYPEA, ABFFFO, "BFINS", LTYPEA, ABFINS, "BFSET", LTYPEA, ABFSET, "BFTST", LTYPEA, ABFTST, "BGE", LTYPE6, ABGE, "BGT", LTYPE6, ABGT, "BHI", LTYPE6, ABHI, "BKPT", LTYPE1, ABKPT, "BLE", LTYPE6, ABLE, "BLS", LTYPE6, ABLS, "BLT", LTYPE6, ABLT, "BMI", LTYPE6, ABMI, "BNE", LTYPE6, ABNE, "BPL", LTYPE6, ABPL, "BRA", LTYPE6, ABRA, "BSET", LTYPE1, ABSET, "BSR", LTYPE3, ABSR, "BTST", LTYPE1, ABTST, "BVC", LTYPE6, ABVC, "BVS", LTYPE6, ABVS, "CALLM", LTYPE1, ACALLM, "CAS2B", LTYPE1, ACAS2B, "CAS2L", LTYPE1, ACAS2L, "CAS2W", LTYPE1, ACAS2W, "CASB", LTYPE1, ACASB, "CASEW", LTYPE2, ACASEW, "CASL", LTYPE1, ACASL, "CASW", LTYPE1, ACASW, "CHK2B", LTYPE1, ACHK2B, "CHK2L", LTYPE1, ACHK2L, "CHK2W", LTYPE1, ACHK2W, "CHKL", LTYPE1, ACHKL, "CHKW", LTYPE1, ACHKW, "CLRB", LTYPE3, ACLRB, "CLRL", LTYPE3, ACLRL, "CLRW", LTYPE3, ACLRW, "CMP2B", LTYPE1, ACMP2B, "CMP2L", LTYPE1, ACMP2L, "CMP2W", LTYPE1, ACMP2W, "CMPB", LTYPE1, ACMPB, "CMPL", LTYPE1, ACMPL, "CMPW", LTYPE1, ACMPW, "DATA", LTYPE4, ADATA, "DBCC", LTYPE7, ADBCC, "DBCS", LTYPE7, ADBCS, "DBEQ", LTYPE7, ADBEQ, "DBF", LTYPE7, ADBF, "DBGE", LTYPE7, ADBGE, "DBGT", LTYPE7, ADBGT, "DBHI", LTYPE7, ADBHI, "DBLE", LTYPE7, ADBLE, "DBLS", LTYPE7, ADBLS, "DBLT", LTYPE7, ADBLT, "DBMI", LTYPE7, ADBMI, "DBNE", LTYPE7, ADBNE, "DBPL", LTYPE7, ADBPL, "DBT", LTYPE7, ADBT, "DBVC", LTYPE7, ADBVC, "DBVS", LTYPE7, ADBVS, "DIVSL", LTYPE1, ADIVSL, "DIVSW", LTYPE1, ADIVSW, "DIVUL", LTYPE1, ADIVUL, "DIVUW", LTYPE1, ADIVUW, "END", LTYPE2, AEND, "EORB", LTYPE1, AEORB, "EORL", LTYPE1, AEORL, "EORW", LTYPE1, AEORW, "EXG", LTYPE1, AEXG, "EXTBL", LTYPE3, AEXTBL, "EXTBW", LTYPE3, AEXTBW, "EXTWL", LTYPE3, AEXTWL, "FABSB", LTYPE1, AFABSB, "FABSD", LTYPE1, AFABSD, "FABSF", LTYPE1, AFABSF, "FABSL", LTYPE1, AFABSL, "FABSW", LTYPE1, AFABSW, "FACOSB", LTYPE1, AFACOSB, "FACOSD", LTYPE1, AFACOSD, "FACOSF", LTYPE1, AFACOSF, "FACOSL", LTYPE1, AFACOSL, "FACOSW", LTYPE1, AFACOSW, "FADDB", LTYPE1, AFADDB, "FADDD", LTYPE1, AFADDD, "FADDF", LTYPE1, AFADDF, "FADDL", LTYPE1, AFADDL, "FADDW", LTYPE1, AFADDW, "FASINB", LTYPE1, AFASINB, "FASIND", LTYPE1, AFASIND, "FASINF", LTYPE1, AFASINF, "FASINL", LTYPE1, AFASINL, "FASINW", LTYPE1, AFASINW, "FATANB", LTYPE1, AFATANB, "FATAND", LTYPE1, AFATAND, "FATANF", LTYPE1, AFATANF, "FATANHB", LTYPE1, AFATANHB, "FATANHD", LTYPE1, AFATANHD, "FATANHF", LTYPE1, AFATANHF, "FATANHL", LTYPE1, AFATANHL, "FATANHW", LTYPE1, AFATANHW, "FATANL", LTYPE1, AFATANL, "FATANW", LTYPE1, AFATANW, "FBEQ", LTYPE6, AFBEQ, "FBF", LTYPE6, AFBF, "FBGE", LTYPE6, AFBGE, "FBGT", LTYPE6, AFBGT, "FBLE", LTYPE6, AFBLE, "FBLT", LTYPE6, AFBLT, "FBNE", LTYPE6, AFBNE, "FBT", LTYPE6, AFBT, "FCMPB", LTYPE1, AFCMPB, "FCMPD", LTYPE1, AFCMPD, "FCMPF", LTYPE1, AFCMPF, "FCMPL", LTYPE1, AFCMPL, "FCMPW", LTYPE1, AFCMPW, "FCOSB", LTYPE1, AFCOSB, "FCOSD", LTYPE1, AFCOSD, "FCOSF", LTYPE1, AFCOSF, "FCOSHB", LTYPE1, AFCOSHB, "FCOSHD", LTYPE1, AFCOSHD, "FCOSHF", LTYPE1, AFCOSHF, "FCOSHL", LTYPE1, AFCOSHL, "FCOSHW", LTYPE1, AFCOSHW, "FCOSL", LTYPE1, AFCOSL, "FCOSW", LTYPE1, AFCOSW, "FDBEQ", LTYPE7, AFDBEQ, "FDBF", LTYPE7, AFDBF, "FDBGE", LTYPE7, AFDBGE, "FDBGT", LTYPE7, AFDBGT, "FDBLE", LTYPE7, AFDBLE, "FDBLT", LTYPE7, AFDBLT, "FDBNE", LTYPE7, AFDBNE, "FDBT", LTYPE7, AFDBT, "FDIVB", LTYPE1, AFDIVB, "FDIVD", LTYPE1, AFDIVD, "FDIVF", LTYPE1, AFDIVF, "FDIVL", LTYPE1, AFDIVL, "FDIVW", LTYPE1, AFDIVW, "FETOXB", LTYPE1, AFETOXB, "FETOXD", LTYPE1, AFETOXD, "FETOXF", LTYPE1, AFETOXF, "FETOXL", LTYPE1, AFETOXL, "FETOXM1B", LTYPE1, AFETOXM1B, "FETOXM1D", LTYPE1, AFETOXM1D, "FETOXM1F", LTYPE1, AFETOXM1F, "FETOXM1L", LTYPE1, AFETOXM1L, "FETOXM1W", LTYPE1, AFETOXM1W, "FETOXW", LTYPE1, AFETOXW, "FGETEXPB", LTYPE1, AFGETEXPB, "FGETEXPD", LTYPE1, AFGETEXPD, "FGETEXPF", LTYPE1, AFGETEXPF, "FGETEXPL", LTYPE1, AFGETEXPL, "FGETEXPW", LTYPE1, AFGETEXPW, "FGETMANB", LTYPE1, AFGETMANB, "FGETMAND", LTYPE1, AFGETMAND, "FGETMANF", LTYPE1, AFGETMANF, "FGETMANL", LTYPE1, AFGETMANL, "FGETMANW", LTYPE1, AFGETMANW, "FINTB", LTYPE1, AFINTB, "FINTD", LTYPE1, AFINTD, "FINTF", LTYPE1, AFINTF, "FINTL", LTYPE1, AFINTL, "FINTRZB", LTYPE1, AFINTRZB, "FINTRZD", LTYPE1, AFINTRZD, "FINTRZF", LTYPE1, AFINTRZF, "FINTRZL", LTYPE1, AFINTRZL, "FINTRZW", LTYPE1, AFINTRZW, "FINTW", LTYPE1, AFINTW, "FLOG10B", LTYPE1, AFLOG10B, "FLOG10D", LTYPE1, AFLOG10D, "FLOG10F", LTYPE1, AFLOG10F, "FLOG10L", LTYPE1, AFLOG10L, "FLOG10W", LTYPE1, AFLOG10W, "FLOG2B", LTYPE1, AFLOG2B, "FLOG2D", LTYPE1, AFLOG2D, "FLOG2F", LTYPE1, AFLOG2F, "FLOG2L", LTYPE1, AFLOG2L, "FLOG2W", LTYPE1, AFLOG2W, "FLOGNB", LTYPE1, AFLOGNB, "FLOGND", LTYPE1, AFLOGND, "FLOGNF", LTYPE1, AFLOGNF, "FLOGNL", LTYPE1, AFLOGNL, "FLOGNP1B", LTYPE1, AFLOGNP1B, "FLOGNP1D", LTYPE1, AFLOGNP1D, "FLOGNP1F", LTYPE1, AFLOGNP1F, "FLOGNP1L", LTYPE1, AFLOGNP1L, "FLOGNP1W", LTYPE1, AFLOGNP1W, "FLOGNW", LTYPE1, AFLOGNW, "FMODB", LTYPE1, AFMODB, "FMODD", LTYPE1, AFMODD, "FMODF", LTYPE1, AFMODF, "FMODL", LTYPE1, AFMODL, "FMODW", LTYPE1, AFMODW, "FMOVEB", LTYPE1, AFMOVEB, "FMOVED", LTYPE1, AFMOVED, "FMOVEF", LTYPE1, AFMOVEF, "FMOVEL", LTYPE1, AFMOVEL, "FMOVEW", LTYPE1, AFMOVEW, "FMULB", LTYPE1, AFMULB, "FMULD", LTYPE1, AFMULD, "FMULF", LTYPE1, AFMULF, "FMULL", LTYPE1, AFMULL, "FMULW", LTYPE1, AFMULW, "FNEGB", LTYPE8, AFNEGB, "FNEGD", LTYPE8, AFNEGD, "FNEGF", LTYPE8, AFNEGF, "FNEGL", LTYPE8, AFNEGL, "FNEGW", LTYPE8, AFNEGW, "FREMB", LTYPE1, AFREMB, "FREMD", LTYPE1, AFREMD, "FREMF", LTYPE1, AFREMF, "FREML", LTYPE1, AFREML, "FREMW", LTYPE1, AFREMW, "FSCALEB", LTYPE1, AFSCALEB, "FSCALED", LTYPE1, AFSCALED, "FSCALEF", LTYPE1, AFSCALEF, "FSCALEL", LTYPE1, AFSCALEL, "FSCALEW", LTYPE1, AFSCALEW, "FSEQ", LTYPE1, AFSEQ, "FSF", LTYPE1, AFSF, "FSGE", LTYPE1, AFSGE, "FSGT", LTYPE1, AFSGT, "FSINB", LTYPE1, AFSINB, "FSIND", LTYPE1, AFSIND, "FSINF", LTYPE1, AFSINF, "FSINHB", LTYPE1, AFSINHB, "FSINHD", LTYPE1, AFSINHD, "FSINHF", LTYPE1, AFSINHF, "FSINHL", LTYPE1, AFSINHL, "FSINHW", LTYPE1, AFSINHW, "FSINL", LTYPE1, AFSINL, "FSINW", LTYPE1, AFSINW, "FSLE", LTYPE1, AFSLE, "FSLT", LTYPE1, AFSLT, "FSNE", LTYPE1, AFSNE, "FSQRTB", LTYPE1, AFSQRTB, "FSQRTD", LTYPE1, AFSQRTD, "FSQRTF", LTYPE1, AFSQRTF, "FSQRTL", LTYPE1, AFSQRTL, "FSQRTW", LTYPE1, AFSQRTW, "FST", LTYPE1, AFST, "FSUBB", LTYPE1, AFSUBB, "FSUBD", LTYPE1, AFSUBD, "FSUBF", LTYPE1, AFSUBF, "FSUBL", LTYPE1, AFSUBL, "FSUBW", LTYPE1, AFSUBW, "FTANB", LTYPE1, AFTANB, "FTAND", LTYPE1, AFTAND, "FTANF", LTYPE1, AFTANF, "FTANHB", LTYPE1, AFTANHB, "FTANHD", LTYPE1, AFTANHD, "FTANHF", LTYPE1, AFTANHF, "FTANHL", LTYPE1, AFTANHL, "FTANHW", LTYPE1, AFTANHW, "FTANL", LTYPE1, AFTANL, "FTANW", LTYPE1, AFTANW, "FTENTOXB", LTYPE1, AFTENTOXB, "FTENTOXD", LTYPE1, AFTENTOXD, "FTENTOXF", LTYPE1, AFTENTOXF, "FTENTOXL", LTYPE1, AFTENTOXL, "FTENTOXW", LTYPE1, AFTENTOXW, "FTSTB", LTYPE1, AFTSTB, "FTSTD", LTYPE1, AFTSTD, "FTSTF", LTYPE1, AFTSTF, "FTSTL", LTYPE1, AFTSTL, "FTSTW", LTYPE1, AFTSTW, "FTWOTOXB", LTYPE1, AFTWOTOXB, "FTWOTOXD", LTYPE1, AFTWOTOXD, "FTWOTOXF", LTYPE1, AFTWOTOXF, "FTWOTOXL", LTYPE1, AFTWOTOXL, "FTWOTOXW", LTYPE1, AFTWOTOXW, "FMOVEM", LTYPE1, AFMOVEM, "FMOVEMC", LTYPE1, AFMOVEMC, "FRESTORE", LTYPE3, AFRESTORE, "FSAVE", LTYPE3, AFSAVE, "GLOBL", LTYPE1, AGLOBL, "GOK", LTYPE2, AGOK, "HISTORY", LTYPE2, AHISTORY, "ILLEG", LTYPE2, AILLEG, "INSTR", LTYPE3, AINSTR, "JMP", LTYPE3, AJMP, "JSR", LTYPE3, AJSR, "LEA", LTYPE1, ALEA, "LINKL", LTYPE1, ALINKL, "LINKW", LTYPE1, ALINKW, "LOCATE", LTYPE1, ALOCATE, "LONG", LTYPE3, ALONG, "LSLB", LTYPE1, ALSLB, "LSLL", LTYPE1, ALSLL, "LSLW", LTYPE1, ALSLW, "LSRB", LTYPE1, ALSRB, "LSRL", LTYPE1, ALSRL, "LSRW", LTYPE1, ALSRW, "MOVB", LTYPE1, AMOVB, "MOVEM", LTYPE1, AMOVEM, "MOVEPL", LTYPE1, AMOVEPL, "MOVEPW", LTYPE1, AMOVEPW, "MOVESB", LTYPE1, AMOVESB, "MOVESL", LTYPE1, AMOVESL, "MOVESW", LTYPE1, AMOVESW, "MOVL", LTYPE1, AMOVL, "MOVW", LTYPE1, AMOVW, "MULSL", LTYPE1, AMULSL, "MULSW", LTYPE1, AMULSW, "MULUL", LTYPE1, AMULUL, "MULUW", LTYPE1, AMULUW, "NAME", LTYPE1, ANAME, "NBCD", LTYPE3, ANBCD, "NEGB", LTYPE3, ANEGB, "NEGL", LTYPE3, ANEGL, "NEGW", LTYPE3, ANEGW, "NEGXB", LTYPE3, ANEGXB, "NEGXL", LTYPE3, ANEGXL, "NEGXW", LTYPE3, ANEGXW, "NOP", LTYPE9, ANOP, "NOTB", LTYPE3, ANOTB, "NOTL", LTYPE3, ANOTL, "NOTW", LTYPE3, ANOTW, "ORB", LTYPE1, AORB, "ORL", LTYPE1, AORL, "ORW", LTYPE1, AORW, "PACK", LTYPE1, APACK, "PEA", LTYPE3, APEA, "RESET", LTYPE2, ARESET, "ROTLB", LTYPE1, AROTLB, "ROTLL", LTYPE1, AROTLL, "ROTLW", LTYPE1, AROTLW, "ROTRB", LTYPE1, AROTRB, "ROTRL", LTYPE1, AROTRL, "ROTRW", LTYPE1, AROTRW, "ROXLB", LTYPE1, AROXLB, "ROXLL", LTYPE1, AROXLL, "ROXLW", LTYPE1, AROXLW, "ROXRB", LTYPE1, AROXRB, "ROXRL", LTYPE1, AROXRL, "ROXRW", LTYPE1, AROXRW, "RTD", LTYPE3, ARTD, "RTE", LTYPE2, ARTE, "RTM", LTYPE3, ARTM, "RTR", LTYPE2, ARTR, "RTS", LTYPE2, ARTS, "SBCD", LTYPE1, ASBCD, "SCC", LTYPE3, ASCC, "SCS", LTYPE3, ASCS, "SEQ", LTYPE3, ASEQ, "SF", LTYPE3, ASF, "SGE", LTYPE3, ASGE, "SGT", LTYPE3, ASGT, "SHI", LTYPE3, ASHI, "SLE", LTYPE3, ASLE, "SLS", LTYPE3, ASLS, "SLT", LTYPE3, ASLT, "SMI", LTYPE3, ASMI, "SNE", LTYPE3, ASNE, "SPL", LTYPE3, ASPL, "ST", LTYPE3, AST, "STOP", LTYPE3, ASTOP, "SUBB", LTYPE1, ASUBB, "SUBL", LTYPE1, ASUBL, "SUBW", LTYPE1, ASUBW, "SUBXB", LTYPE1, ASUBXB, "SUBXL", LTYPE1, ASUBXL, "SUBXW", LTYPE1, ASUBXW, "SVC", LTYPE2, ASVC, "SVS", LTYPE2, ASVS, "SWAP", LTYPE3, ASWAP, "SYS", LTYPE2, ASYS, "TAS", LTYPE3, ATAS, "TEXT", LTYPEB, ATEXT, "TRAP", LTYPE3, ATRAP, "TRAPCC", LTYPE2, ATRAPCC, "TRAPCS", LTYPE2, ATRAPCS, "TRAPEQ", LTYPE2, ATRAPEQ, "TRAPF", LTYPE2, ATRAPF, "TRAPGE", LTYPE2, ATRAPGE, "TRAPGT", LTYPE2, ATRAPGT, "TRAPHI", LTYPE2, ATRAPHI, "TRAPLE", LTYPE2, ATRAPLE, "TRAPLS", LTYPE2, ATRAPLS, "TRAPLT", LTYPE2, ATRAPLT, "TRAPMI", LTYPE2, ATRAPMI, "TRAPNE", LTYPE2, ATRAPNE, "TRAPPL", LTYPE2, ATRAPPL, "TRAPT", LTYPE2, ATRAPT, "TRAPV", LTYPE2, ATRAPV, "TRAPVC", LTYPE2, ATRAPVC, "TRAPVS", LTYPE2, ATRAPVS, "TSTB", LTYPE3, ATSTB, "TSTL", LTYPE3, ATSTL, "TSTW", LTYPE3, ATSTW, "UNLK", LTYPE3, AUNLK, "UNPK", LTYPE1, AUNPK, "WORD", LTYPE3, AWORD, 0 }; void cinit(void) { Sym *s; int i; nullgen.sym = S; nullgen.offset = 0; nullgen.type = D_NONE; if(FPCHIP) nullgen.dval = 0; for(i=0; itype = itab[i].type; s->value = itab[i].value; } } 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 */ 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->field) t |= T_FIELD; if(a->index != D_NONE || a->displace != 0) t |= T_INDEX; if(a->offset != 0) t |= T_OFFSET; if(s != 0) t |= T_SYM; if(a->type == D_FCONST) t |= T_FCONST; else if(a->type == D_SCONST) t |= T_SCONST; else if(a->type & ~0xff) t |= T_TYPE; Bputc(&obuf, t); if(t & T_FIELD) { /* implies field */ i = a->field; Bputc(&obuf, i); Bputc(&obuf, i>>8); } if(t & T_INDEX) { /* implies index, scale, displace */ i = a->index; Bputc(&obuf, i); Bputc(&obuf, i>>8); Bputc(&obuf, a->scale); l = a->displace; Bputc(&obuf, l); Bputc(&obuf, l>>8); Bputc(&obuf, l>>16); Bputc(&obuf, l>>24); } 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_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; itype; Bputc(&obuf, i); if(t & T_TYPE) Bputc(&obuf, i>>8); } 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 & D_MASK; 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 & D_MASK; 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) pc++; } void outhist(void) { Gen g; Hist *h; char name[NNAME], *p, *q; int n; g = nullgen; name[0] = '<'; for(h = hist; h != H; h = h->link) { p = h->name; 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 >= NNAME-1) n = NNAME-2; if(n) { memmove(name+1, p, n); name[n+1] = 0; zname(name, D_FILE, 1); } p = q; } 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"