godzil/tack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

This version produces local commons in its symbol table.

Browse Source 
It cannot be used because 'led' con't handle that.
This commit is contained in:
keie 1985-04-29 11:50:24 +00:00
parent 897860ddf8
commit 92c82d48a5
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
mach/proto/as/comm6.c
View File

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