X-Git-Url: http://shamusworld.gotdns.org/cgi-bin/gitweb.cgi?a=blobdiff_plain;f=symbol.c;h=50d8379a0963ddae5dde642b68e360edfa63a13e;hb=refs%2Ftags%2Fv2.1.11;hp=2635e7a3c369c71d636f905dd019f4bb897f3762;hpb=cbc8347d4ffea164ca05b03e4e3be39945be8777;p=rmac

diff --git a/symbol.c b/symbol.c
index 2635e7a..50d8379 100644
--- a/symbol.c
+++ b/symbol.c
@@ -103,6 +103,9 @@ SYM * NewSymbol(uint8_t * name, int type, int envno)
 	symbol->sorder = NULL;
 	symbol->uid    = currentUID++;
 
+	// Record filename the symbol is defined (for now only used by macro error reporting)
+	symbol->cfileno = cfileno;
+
 	// Install symbol in the symbol table
 	int hash = HashSymbol(name, envno);
 	symbol->snext = symbolTable[hash];
@@ -254,8 +257,7 @@ uint32_t sy_assign(uint8_t * buf, uint8_t *(* construct)())
 		// Export vanilla labels (but don't make them global). An exception is
 		// made for equates, which are not exported unless they are referenced.
 		else if (sy->stype == LABEL && lsym_flag
-			&& (sy->sattr & (DEFINED | REFERENCED)) != 0
-			&& (!as68_flag || *sy->sname != 'L'))
+			&& (sy->sattr & (DEFINED | REFERENCED)) != 0)
 		{
 			sy->senv = scount++;