X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?p=rmac;a=blobdiff_plain;f=symbol.c;h=b66216b6d3b9caaec155ba913f9386e713a90330;hp=6700f149968511a9a707660f03a9ab01ff4241af;hb=29b32d134bc12831a8ddd098bf9aeeda26dcfe7c;hpb=03dd34951a331e0b8971195ccef1600fffaea2e6

diff --git a/symbol.c b/symbol.c
index 6700f14..b66216b 100644
--- a/symbol.c
+++ b/symbol.c
@@ -260,22 +260,6 @@ uint32_t sy_assign(uint8_t * buf, uint8_t *(* construct)())
 		}
 	}
 
-	// For ELF object mode run through all symbols in reference order
-	// and export all global-referenced labels. Not sure if this is
-	// required but it's here nonetheless
-/* why?? when you have sy_assign_ELF ???
-	if (obj_format == ELF)
-	{
-		for(sy=sdecl; sy!=NULL; sy=sy->sorder)
-		{
-			if ((sy->sattr == (GLOBAL | REFERENCED)) && (buf != NULL))
-			{
-				buf = (*construct)(buf, sy, 0);
-				scount++;
-			}
-		}
-	}*/
-
 	return scount;
 }
 
@@ -305,27 +289,12 @@ uint32_t sy_assign_ELF(uint8_t * buf, uint8_t *(* construct)())
 	// them. We also pick which symbols should be global or not here.
 	for(SYM * sy=sdecl; sy!=NULL; sy=sy->sdecl)
 	{
-		// Export or import external references, and export COMMON blocks.
-		//if ((sy->stype == LABEL)
-		//	&& ((sy->sattr & (GLOBAL | DEFINED)) == (GLOBAL | DEFINED)
-		//	|| (sy->sattr & (GLOBAL | REFERENCED)) == (GLOBAL | REFERENCED))
-		//	|| (sy->sattr & COMMON))
-		//{
-		//	sy->senv = (WORD)scount++;
-        //
-		//	if (buf != NULL)
-		//		buf = (*construct)(buf, sy, 1);
-		//}
 		// Export vanilla labels (but don't make them global). An exception is
 		// made for equates, which are not exported unless they are referenced.
 		if (sy->stype == LABEL && lsym_flag
 			&& (sy->sattr & (DEFINED | REFERENCED)) != 0
 			&& (*sy->sname != '.')
 			&& (sy->sattr & GLOBAL) == 0)
-		//if (sy->stype == 0)
-		//	if (lsym_flag)
-		//		if ((sy->sattr & (DEFINED | REFERENCED)) != 0)
-		//			if ((!as68_flag || *sy->sname != 'L'))
 		{
 			sy->senv = scount++;
 
@@ -513,7 +482,7 @@ int symtable(void)
 					strcpy(ln2, "external");
 				else
 				{
-					sprintf(ln2, "%08X", q->svalue);
+					sprintf(ln2, "%016lX", q->svalue);
 					ToUppercase(ln2);
 				}