aboutsummaryrefslogtreecommitdiff
path: root/src/symbol.c
diff options
context:
space:
mode:
authorSergey Poznyakoff <gray@gnu.org.ua>1999-04-15 14:45:25 +0000
committerSergey Poznyakoff <gray@gnu.org.ua>1999-04-15 14:45:25 +0000
commitc838acc134623b700b35b12bc90cc26652159f8d (patch)
tree6c7f1d97a88e72a6d492fe4a43e5ed5c52280a7b /src/symbol.c
parentb8231acb332f9c125db773dbdcadc8c363498e64 (diff)
downloadcflow-c838acc134623b700b35b12bc90cc26652159f8d.tar.gz
cflow-c838acc134623b700b35b12bc90cc26652159f8d.tar.bz2
Checked in the last found version
Diffstat (limited to 'src/symbol.c')
-rw-r--r--src/symbol.c20
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)();

Return to:

Send suggestions and report system problems to the System administrator.