diff options
author | Sergey Poznyakoff <gray@gnu.org.ua> | 1999-04-15 14:45:25 +0000 |
---|---|---|
committer | Sergey Poznyakoff <gray@gnu.org.ua> | 1999-04-15 14:45:25 +0000 |
commit | c838acc134623b700b35b12bc90cc26652159f8d (patch) | |
tree | 6c7f1d97a88e72a6d492fe4a43e5ed5c52280a7b /src/symbol.c | |
parent | b8231acb332f9c125db773dbdcadc8c363498e64 (diff) | |
download | cflow-c838acc134623b700b35b12bc90cc26652159f8d.tar.gz cflow-c838acc134623b700b35b12bc90cc26652159f8d.tar.bz2 |
Checked in the last found version
Diffstat (limited to 'src/symbol.c')
-rw-r--r-- | src/symbol.c | 20 |
1 files changed, 18 insertions, 2 deletions
diff --git a/src/symbol.c b/src/symbol.c index 7304b65..55f7f40 100644 --- a/src/symbol.c +++ b/src/symbol.c @@ -112,8 +112,9 @@ install(s) /* Delete from the symbol table all static symbols defined in the current * source. * NOTE: This takes advantage of the fact that install() uses LIFO strategy, - * so we have not to check the source name where the symbol was defined. If it - * is static, we simply remove it. + * so we doesn't have to check the name of the source where the symbol was + * defined. + * If it is static, we simply remove it. */ void delete_statics() @@ -269,6 +270,21 @@ append_to_list(root_ptr, car) } int +symbol_in_list(sym, list) + Symbol *sym; + Consptr list; +{ + Consptr cons; + + if (!list) + return 0; + for (cons = CAR(list); cons; cons = CDR(cons)) + if ((Symbol*)CAR(cons) == sym) + return 1; + return 0; +} + +int collect_symbols(return_sym, sel) Symbol ***return_sym; int (*sel)(); |