X-Git-Url: https://git.saurik.com/bison.git/blobdiff_plain/e42906f7904ca7516e9867a3a19ee08d963b1205..f038e56cdc211396f54f138e95693d0906d6fafa:/src/symlist.c diff --git a/src/symlist.c b/src/symlist.c index 196db4c8..f9ec837c 100644 --- a/src/symlist.c +++ b/src/symlist.c @@ -1,6 +1,6 @@ /* Lists of symbols for Bison - Copyright (C) 2002, 2005-2007, 2009-2012 Free Software Foundation, + Copyright (C) 2002, 2005-2007, 2009-2013 Free Software Foundation, Inc. This file is part of Bison, the GNU Compiler Compiler. @@ -88,7 +88,7 @@ symbol_list_syms_print (const symbol_list *l, FILE *f) for (/* Nothing. */; l && l->content.sym; l = l->next) { symbol_print (l->content.sym, f); - fprintf (stderr, l->action_props.is_value_used ? " used" : " unused"); + fprintf (f, l->action_props.is_value_used ? " used" : " unused"); if (l && l->content.sym) fprintf (f, ", "); } @@ -107,6 +107,23 @@ symbol_list_prepend (symbol_list *list, symbol_list *node) } +/*-------------------------. +| Append NODE to the LIST. | +`-------------------------*/ + +symbol_list * +symbol_list_append (symbol_list *list, symbol_list *node) +{ + if (!list) + return node; + symbol_list *next = list; + while (next->next) + next = next->next; + next->next = node; + return list; +} + + /*-----------------------------------------------. | Free the LIST, but not the items it contains. | `-----------------------------------------------*/ @@ -119,6 +136,8 @@ symbol_list_free (symbol_list *list) { next = node->next; named_ref_free (node->named_ref); + if (node->content_type == SYMLIST_TYPE) + free (node->content.sem_type); free (node); } }