X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=mark.c;h=4a7fe1b7680e4226f1d9b8b4a164fdac6e6bad74;hp=c33f4508559cd0eff331e792546d7f23949ecb22;hb=a48737de123e304866212f5382d6fa4174d496a0;hpb=b10167d55798ea184f97fafda075255c0852f3b6

diff --git a/mark.c b/mark.c
index c33f450..4a7fe1b 100644
--- a/mark.c
+++ b/mark.c
@@ -17,14 +17,14 @@ MCHUNK * curmch;		// Current mark chunk
 PTR markptr;			// Deposit point in current mark chunk
 LONG mcalloc;			// #bytes alloc'd to current mark chunk
 LONG mcused;			// #bytes used in current mark chunk
-uint16_t curfrom;			// Current "from" section
+uint16_t curfrom;		// Current "from" section
 
 
 //#define DEBUG_IMAGE_MARKING
 
 
 //
-// Initialize Marker
+// Initialize marker
 //
 void InitMark(void)
 {
@@ -37,7 +37,7 @@ void InitMark(void)
 //
 // Wrap up marker (called after final mark is made)
 //
-void stopmark(void)
+void StopMark(void)
 {
 	if (curmch)
 	{
@@ -54,8 +54,9 @@ int rmark(uint16_t from, uint32_t loc, uint16_t to, uint16_t size, SYM * symbol)
 {
 #ifdef DEBUG_IMAGE_MARKING
 printf("rmark: from=%i, loc=$%X, to=$%X, size=$%x, symbol=$%X\n", from, loc, to, size, symbol);
+if (symbol)
+	printf("      symbol->stype=$%02X, sattr=$%04X, sattre=$%08X, svalue=%i, sname=%s\n", symbol->stype, symbol->sattr, symbol->sattre, symbol->svalue, symbol->sname);
 #endif
-//	uint16_t w;
 
 	if ((mcalloc - mcused) < MIN_MARK_MEM)
 		amark();
@@ -212,8 +213,12 @@ printf(" validsegment: raddr = $%08X\n", raddr);
 				else
 					rflag = 0x00000040;	// Absolute fixup
 
+// This flag tells the linker to WORD swap the LONG when doing the fixup.
 				if (w & MMOVEI)
+//{
+//printf("bsdmarkimg: ORing $01 to rflag (MMOVEI) [symbol=%s]...\n", symbol->sname);
 					rflag |= 0x00000001;
+//}
 			}
 
 			// Compute mark position in relocation information;
@@ -231,8 +236,14 @@ printf(" validsegment: raddr = $%08X\n", raddr);
 					rflag |= 0x00000010;			// Set external reloc flag bit
 					rflag |= (symbol->senv << 8);	// Put symbol index in flags
 
+// Looks like this is completely unnecessary (considering it does the wrong thing!)
+#if 0
 					if (symbol->sattre & RISCSYM)
+{
+printf("bsdmarkimg: ORing $01 to rflag (RISCSYM) [symbol=%s]...\n", symbol->sname);
 						rflag |= 0x00000001;
+}
+#endif
 
 					if (validsegment)
 					{
@@ -275,7 +286,7 @@ printf("  validsegment(3): rflag = $%08X\n", rflag);
 					{
 						if (w & (DATA|BSS))
 						{
-							dp = objimage + BSDHDRSIZE + loc;
+							dp = objImage + BSDHDRSIZE + loc;
 							diff = ((LONG)(*dp++ & 0xFF)) << 24;
 							diff |= ((LONG)(*dp++ & 0xFF)) << 16;
 							diff |= ((LONG)(*dp++ & 0xFF)) << 8;
@@ -296,7 +307,7 @@ printf("  validsegment(4): diff = $%08X --> ", diff);
 							if (rflag & 0x01)
 								diff = ((diff >> 16) & 0x0000FFFF) | ((diff << 16) & 0xFFFF0000);
 
-							dp = objimage + BSDHDRSIZE + loc;
+							dp = objImage + BSDHDRSIZE + loc;
 							*dp++ = (char)(diff >> 24);
 							*dp++ = (char)(diff >> 16);
 							*dp++ = (char)(diff >> 8);