From fa912e6f37885ee1151ae2fad6dcbb53997cb057 Mon Sep 17 00:00:00 2001 From: keie Date: Mon, 29 Apr 1985 11:50:24 +0000 Subject: [PATCH] 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 --- mach/proto/as/comm6.c | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/mach/proto/as/comm6.c b/mach/proto/as/comm6.c index da76ed959..2431f5af5 100644 --- a/mach/proto/as/comm6.c +++ b/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 -- 2.34.1