error("String format not supported... yet");
}
-
tok += 2;
goto comma;
}
extern TOKEN exprbuf[];
extern SYM * symbolPtr[];
extern int (* dirtab[])();
-extern int stringtype;
// Exported functions
void auto_even(void);
else
r_type = 1; // R_68K_32
-#ifdef DEBUG_IMAGE_MARKING
-if (symbol)
-{
- printf("CreateELFReloc: symbol-svalue = $%08X\n", symbol->svalue);
-}
-
-printf("CreateELFReloc: deposited value = $%08X\n", GETBE32(secBuf + r_offset, 0));
-
-#endif
-//Turns out this is pretty much bollocks. So now we punt all the time :-)
-//N.B.: Once this is proved out, this will go for good.
-// if (symbol != NULL)
-// r_addend = symbol->svalue; // Mark offset into section
-// else
- r_addend = GETBE32(secBuf + r_offset, 0);
+ r_addend = GETBE32(secBuf + r_offset, 0);
// Deposit the relocation record
D_long(r_offset);
#define CONST 'a' // CONST <value>
#define ACONST 'A' // ACONST <value> <attrib>
#define STRING 'b' // STRING <address>
-#define STRINGA8 'S' // Atari 800 internal STRING <address>
+#define STRINGA8 'S' // Atari 800 internal STRING <address>
#define SYMBOL 'c' // SYMBOL <address>
#define EOL 'e' // End of line
#define TKEOF 'f' // End of file (or macro)
continue;
case '\'': // 'string'
if (m6502)
- {
- *tk++ = STRINGA8; // hardcoded for now, maybe this will change in the future
- goto dostring;
- }
+ {
+ // Hardcoded for now, maybe this will change in the future
+ *tk++ = STRINGA8;
+ goto dostring;
+ }
// Fall through
case '\"': // "string"
*tk++ = STRING;
dostring:
c1 = ln[-1];
-//#warning
-// More char * stuffing (8 bytes) into the space of 4 (TOKEN).
-// Need to figure out how to fix this crap.
-#if 0
- *tk++ = (TOKEN)ln;
-#else
string[stringNum] = ln;
*tk++ = stringNum;
stringNum++;
-#endif
for(p=ln; *ln!=EOS && *ln!=c1;)
{
#define MAJOR 1 // Major version number
#define MINOR 6 // Minor version number
-#define PATCH 2 // Patch release number
+#define PATCH 4 // Patch release number
#endif // __VERSION_H__