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

many changes

Browse Source
This commit is contained in:
ceriel
1990-09-19 14:31:12 +00:00
parent 641a446f01
commit 1feeb94dbf
18 changed files with 730 additions and 207 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
util/grind/symbol.c
View File

@@ -94,17 +94,6 @@ Lookfromscope(id, class, sc)
return (p_symbol) 0;
}
/* Lookup a definition for 'id' with class in the 'class' bitset,
starting in scope 'CurrentScope' and also looking in enclosing scopes.
*/
p_symbol
Lookfor(id, class)
register struct idf *id;
int class;
{
return Lookfromscope(id, class, CurrentScope);
}
extern char *strrindex();
p_symbol
@@ -153,12 +142,12 @@ consistent(p, sc)
switch(p->t_oper) {
case OP_NAME:
sym = Lookfromscope(p->t_idf, FILELINK|FILESYM|PROC|MODULE, sc);
sym = Lookfromscope(p->t_idf, FILELINK|FILESYM|PROC|FUNCTION|MODULE, sc);
return sym != 0;
case OP_SELECT:
arg = p->t_args[1];
sym = Lookfromscope(arg->t_idf, FILELINK|FILESYM|PROC|MODULE, sc);
sym = Lookfromscope(arg->t_idf, FILELINK|FILESYM|PROC|FUNCTION|MODULE, sc);
if (sym == 0) return 0;
return consistent(p, sym->sy_scope);