Преглед на файлове

This version produces local commons in its symbol table.
It cannot be used because 'led' con't handle that.

--HG--
branch : unlabeled-2.2.1

keie преди 39 години
родител
ревизия
fa912e6f37
променени са 1 файла, в които са добавени 2 реда и са изтрити 2 реда
  1. 2 2
      mach/proto/as/comm6.c

+ 2 - 2
mach/proto/as/comm6.c

@@ -165,7 +165,7 @@ valu_t val;
 		/* printf("declare %s: %o\n", ip->i_name, DOTTYP); */
 		if ((ip->i_type & ~S_EXT) == S_UND) {
 			--unresolved;
-			ip->i_type = S_COM|S_EXT|DOTTYP;
+			ip->i_type = S_COM|DOTTYP|(ip->i_type&S_EXT);
 #ifdef ASLD
 			ip->i_valu = val;
 		} else if (ip->i_type == (S_COM|S_EXT|DOTTYP)) {
@@ -185,7 +185,7 @@ valu_t val;
 		 */
 		ip->i_valu = outhead.oh_nname;
 #ifdef DUK
-	newsymb(ip->i_name, S_COM|S_EXT|DOTTYP, (short)0, val);
+	newsymb(ip->i_name, S_COM|DOTTYP|(ip->i_type&S_EXT), (short)0, val);
 #else DUK
 	newsymb(ip->i_name, S_EXT|DOTTYP, (short)0, val);
 #endif DUK