X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=sect.c;h=619c1632b00879c72eda8bd132fa55a9c9e0a3f4;hp=d4277fcc0aad7f501d4b2b89d179945ab3b60033;hb=d570f2d80fed3a3254ff49748d4e2f50ee5e2a2c;hpb=062214e62031c26d372edc2e68473ebb64f6a506 diff --git a/sect.c b/sect.c index d4277fc..619c163 100644 --- a/sect.c +++ b/sect.c @@ -3,7 +3,7 @@ // SECT.C - Code Generation, Fixups and Section Management // Copyright (C) 199x Landon Dyer, 2011 Reboot and Friends // RMAC derived from MADMAC v1.07 Written by Landon Dyer, 1986 -// Source Utilised with the Kind Permission of Landon Dyer +// Source utilised with the kind permission of Landon Dyer // #include "sect.h" @@ -23,24 +23,25 @@ void MakeSection(int, WORD); void SwitchSection(int); // Section descriptors -SECT sect[NSECTS]; // All sections... -int cursect; // Current section number +SECT sect[NSECTS]; // All sections... +int cursect; // Current section number // These are copied from the section descriptor, the current code chunk // descriptor and the current fixup chunk descriptor when a switch is made into // a section. They are copied back to the descriptors when the section is left. -WORD scattr; // Section attributes -LONG sloc; // Current loc in section +WORD scattr; // Section attributes +LONG sloc; // Current loc in section -CHUNK * scode; // Current (last) code chunk -LONG challoc; // # bytes alloc'd to code chunk -LONG ch_size; // # bytes used in code chunk -char * chptr; // Deposit point in code chunk buffer +CHUNK * scode; // Current (last) code chunk +LONG challoc; // # bytes alloc'd to code chunk +LONG ch_size; // # bytes used in code chunk +char * chptr; // Deposit point in code chunk buffer +char * chptr_opcode; // Backup of chptr, updated before entering code generators -CHUNK * sfix; // Current (last) fixup chunk -LONG fchalloc; // # bytes alloc'd to fixup chunk -LONG fchsize; // # bytes used in fixup chunk -PTR fchptr; // Deposit point in fixup chunk buffer +CHUNK * sfix; // Current (last) fixup chunk +LONG fchalloc; // # bytes alloc'd to fixup chunk +LONG fchsize; // # bytes used in fixup chunk +PTR fchptr; // Deposit point in fixup chunk buffer // Return a size (SIZB, SIZW, SIZL) or 0, depending on what kind of fixup is // associated with a location. @@ -69,7 +70,7 @@ static char fusizoffs[] = { // -// Initialize Sections; Setup initial ABS, TEXT, DATA and BSS sections +// Initialize sections; setup initial ABS, TEXT, DATA and BSS sections // void InitSection(void) { @@ -80,18 +81,19 @@ void InitSection(void) MakeSection(i, 0); // Construct default sections, make TEXT the current section - MakeSection(ABS, SUSED | SABS | SBSS); // ABS - MakeSection(TEXT, SUSED | TEXT ); // TEXT - MakeSection(DATA, SUSED | DATA ); // DATA - MakeSection(BSS, SUSED | BSS | SBSS); // BSS + MakeSection(ABS, SUSED | SABS | SBSS); // ABS + MakeSection(TEXT, SUSED | TEXT ); // TEXT + MakeSection(DATA, SUSED | DATA ); // DATA + MakeSection(BSS, SUSED | BSS | SBSS); // BSS // MakeSection(M6502, SUSED | TEXT ); // 6502 code section - SwitchSection(TEXT); // Switch to TEXT for starters + // Switch to TEXT for starters + SwitchSection(TEXT); } // -// Make a New (Clean) Section +// Make a new (clean) section // void MakeSection(int sno, WORD attr) { @@ -109,11 +111,12 @@ void MakeSection(int sno, WORD attr) // void SwitchSection(int sno) { - CHUNK * cp; // Chunk pointer + CHUNK * cp; cursect = sno; SECT * p = §[sno]; - scattr = p->scattr; // Copy section vars + // Copy section vars + scattr = p->scattr; sloc = p->sloc; scode = p->scode; sfix = p->sfix; @@ -170,11 +173,12 @@ int fixtest(int sno, LONG loc) WORD w; LONG xloc; - stopmark(); // Force update to sect[] variables + // Force update to sect[] variables + StopMark(); - // Hairy, ugly linear search for a mark on our location; - // the speed doesn't matter, since this is only done when generating a - // listing, which is SLOW. + // Hairy, ugly linear search for a mark on our location; the speed doesn't + // matter, since this is only done when generating a listing, which is + // SLOW. for(ch=sect[sno].sffix; ch!=NULL; ch=ch->chnext) { fup.cp = (char *)ch->chptr; @@ -195,7 +199,7 @@ int fixtest(int sno, LONG loc) fup.lp += w; } else - ++fup.lp; + fup.lp++; } } @@ -204,11 +208,11 @@ int fixtest(int sno, LONG loc) // -// Check that there are at least `amt' bytes left in the current chunk. If -// there are not, allocate another chunk of at least `amt' bytes (and probably +// Check that there are at least 'amt' bytes left in the current chunk. If +// there are not, allocate another chunk of at least 'amt' bytes (and probably // more). // -// If `amt' is zero, ensure there are at least CH_THRESHOLD bytes, likewise. +// If 'amt' is zero, ensure there are at least CH_THRESHOLD bytes, likewise. // int chcheck(LONG amt) { @@ -257,8 +261,8 @@ int chcheck(LONG amt) } -// This is really wrong. We need to make some proper structures here so we don't -// have to count sizes of objects, that's what the compiler's for! :-P +// This is really wrong. We need to make some proper structures here so we +// don't have to count sizes of objects, that's what the compiler's for! :-P #define FIXUP_BASE_SIZE (sizeof(WORD) + sizeof(LONG) + sizeof(WORD) + sizeof(WORD)) // // Arrange for a fixup on a location @@ -269,8 +273,9 @@ int AddFixup(WORD attr, LONG loc, TOKEN * fexpr) LONG len = 0; CHUNK * cp; SECT * p; - // Shamus: Expression lengths are voodoo ATM (variable "i"). Need to fix this. -#warning "!!! AddFixup() is filled with VOODOO !!!" + // Shamus: Expression lengths are voodoo ATM (variable "i"). Need to fix + // this. +WARNING(!!! AddFixup() is filled with VOODOO !!!) DEBUG printf("FIXUP@$%X: $%X\n", loc, attr); // Compute length of expression (could be faster); determine if it's the @@ -279,21 +284,25 @@ int AddFixup(WORD attr, LONG loc, TOKEN * fexpr) if (*fexpr == SYMBOL && fexpr[2] == ENDEXPR) { // Just a single symbol - // SCPCD : correct bit mask for attr (else other FU_xxx will match) NYAN ! + // SCPCD : correct bit mask for attr (else other FU_xxx will match) + // NYAN ! if ((attr & FUMASKRISC) == FU_JR) { +//printf("AddFixup: ((attr & FUMASKRISC) == FU_JR)\n"); // i = 18; // i = FIXUP_BASE_SIZE + (sizeof(LONG) * 2); i = FIXUP_BASE_SIZE + sizeof(SYM *) + sizeof(LONG); } else { +//printf("AddFixup: ((attr & FUMASKRISC) == FU_JR) ELSE\n"); // i = 14; i = FIXUP_BASE_SIZE + sizeof(SYM *); } } else { +//printf("AddFixup: !SYMBOL\n"); attr |= FU_EXPR; for(len=0; fexpr[len]!=ENDEXPR; len++) @@ -307,7 +316,7 @@ int AddFixup(WORD attr, LONG loc, TOKEN * fexpr) i = FIXUP_BASE_SIZE + sizeof(WORD) + (len * sizeof(TOKEN)); } - // Maybe alloc another fixup chunk for this one to fit in + // Alloc another fixup chunk for this one to fit in if necessary if ((fchalloc - fchsize) < i) { p = §[cursect]; @@ -355,6 +364,7 @@ int AddFixup(WORD attr, LONG loc, TOKEN * fexpr) { // *fchptr.lp++ = (LONG)fexpr[1]; *fchptr.sy++ = symbolPtr[fexpr[1]]; +//printf("AddFixup: adding symbol (%s) [%08X]\n", symbolPtr[fexpr[1]]->sname, symbolPtr[fexpr[1]]->sattr); } // SCPCD : correct bit mask for attr (else other FU_xxx will match) NYAN ! @@ -372,49 +382,28 @@ int AddFixup(WORD attr, LONG loc, TOKEN * fexpr) // -// Resolve all Fixups -// -int ResolveAllFixups(void) -{ - unsigned i; - char buf[EBUFSIZ]; - - // Make undefined symbols GLOBL - if (glob_flag) - syg_fix(); - - DEBUG printf("Resolving TEXT sections...\n"); - ResolveFixups(TEXT); - DEBUG printf("Resolving DATA sections...\n"); - ResolveFixups(DATA); - - return 0; -} - - -// -// Resolve Fixups in a Section +// Resolve fixups in a section // int ResolveFixups(int sno) { - PTR fup; // Current fixup - WORD * fuend; // End of last fixup (in this chunk) - WORD w; // Fixup word (type+modes+flags) - char * locp; // Location to fix (in cached chunk) - LONG loc; // Location to fixup - VALUE eval; // Expression value - WORD eattr; // Expression attrib - SYM * esym; // External symbol involved in expr - SYM * sy; // (Temp) pointer to a symbol - WORD i; // (Temp) word - WORD tdb; // eattr & TDB + PTR fup; // Current fixup + WORD * fuend; // End of last fixup (in this chunk) + WORD w; // Fixup word (type+modes+flags) + char * locp; // Location to fix (in cached chunk) + LONG loc; // Location to fixup + VALUE eval; // Expression value + WORD eattr; // Expression attrib + SYM * esym; // External symbol involved in expr + SYM * sy; // (Temp) pointer to a symbol + WORD i; // (Temp) word + WORD tdb; // eattr & TDB LONG oaddr; int reg2; WORD flags; unsigned page_jump = 0; unsigned address = 0; - unsigned j; - char buf[EBUFSIZ]; + //unsigned j; + //char buf[EBUFSIZ]; SECT * sc = §[sno]; CHUNK * ch = sc->sffix; @@ -425,7 +414,7 @@ int ResolveFixups(int sno) // "Cache" first chunk CHUNK * cch = sc->sfcode; - // Can't fixup a sect with nothing in it + // Can't fixup a section with nothing in it if (cch == NULL) return 0; @@ -621,45 +610,6 @@ DEBUG { printf("ResolveFixups: cfileno=%u\n", cfileno); } else reg2 = (signed)((eval - (loc + 2)) / 2);// & 0x1F; -#if 0 - if ((w & 0x0F00) == FU_MJR) - { - // Main code destination alignment checking here for - // forward declared labels - address = (oaddr) ? oaddr : loc; - - if (((address >= 0xF03000) && (address < 0xF04000) - && (eval < 0xF03000)) || ((eval >= 0xF03000) - && (eval < 0xF04000) && (address < 0xF03000))) - { - warni("* \'jr\' at $%08X - cannot jump relative between " - "main memory and local gpu ram", address); - } - else - { - page_jump = (address & 0xFFFFFF00) - (eval & 0xFFFFFF00); - - if (page_jump) - { - // This jump is to a page outside of the - // current 256 byte page - if (eval % 4) - { - warni("* \'jr\' at $%08X - destination address not aligned for long page jump, insert a \'nop\' before the destination address", address); - } - } - else - { - // This jump is in the current 256 byte page - if ((eval - 2) % 4) - { - warni("* \'jr\' at $%08X - destination address not aligned for short page jump, insert a \'nop\' before the destination address", address); - } - } - } - } -#endif - if ((reg2 < -16) || (reg2 > 15)) { error("relative jump out of range"); @@ -786,58 +736,6 @@ DEBUG { printf("ResolveFixups: cfileno=%u\n", cfileno); } case FU_LONG: if ((w & FUMASKRISC) == FU_MOVEI) { -#if 0 - address = loc + 4; - - if (eattr & DEFINED) - { - for(j=0; j 0) - ship_ln(buf); - - if (err_flag) - write(err_fd, buf, (LONG)strlen(buf)); - else - printf("%s\n", buf); - } - } - else - { - if (!(eval & 0x0000000F) || ((eval - 2) % 4)) - { - err_setup(); - sprintf(buf, "* \'jump\' at $%08X - destination address not aligned for short page jump, insert a \'nop\' before the destination address", address); - - if (listing > 0) - ship_ln(buf); - - if (err_flag) - write(err_fd, buf, (LONG)strlen(buf)); - else - printf("%s\n", buf); - } - } - - // Clear this jump as it has been checked - fwdjump[j] = 0; - j = fwindex; - } - } - } -#endif - // Long constant in MOVEI # is word-swapped, so fix it here eval = ((eval >> 16) & 0x0000FFFF) | ((eval << 16) & 0xFFFF0000); flags = (MLONG | MMOVEI); @@ -890,7 +788,8 @@ DEBUG { printf("ResolveFixups: cfileno=%u\n", cfileno); } break; default: - interror(4); // Bad fixup type + // Bad fixup type--this should *never* happen! + interror(4); // NOTREACHED } continue; @@ -905,3 +804,24 @@ range: return 0; } +// +// Resolve all fixups +// +int ResolveAllFixups(void) +{ + //unsigned i; + //char buf[EBUFSIZ]; + + // Make undefined symbols GLOBL + if (glob_flag) + ForceUndefinedSymbolsGlobal(); + + DEBUG printf("Resolving TEXT sections...\n"); + ResolveFixups(TEXT); + DEBUG printf("Resolving DATA sections...\n"); + ResolveFixups(DATA); + + return 0; +} + +