Future/bison
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/bison.git synced 2026-03-11 13:23:04 +00:00
Code Issues Packages Projects Releases Wiki Activity

* src/symtab.c, src/symtab.c (symbol_type_set)

Browse Source 
(symbol_precedence_set): New.
* src/reader.c (parse_type_decl, parse_assoc_decl): Use them.
(value_components_used): Remove, unused.
This commit is contained in:
Akim Demaille
2002-06-10 08:36:49 +00:00
parent 2f1afb737f
commit 3ae2b51f08
5 changed files with 50 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

26
src/reader.c
View File

@@ -52,10 +52,6 @@ int lineno;
static symbol_list *grammar = NULL;
static int start_flag = 0;
/* Nonzero if components of semantic values are used, implying
they must be unions. */
static int value_components_used;
/* Nonzero if %union has been seen. */
static int typed = 0;
@@ -378,7 +374,6 @@ copy_dollar (FILE *fin, struct obstack *oout,
{
read_type_name (fin);
type_name = token_buffer;
value_components_used = 1;
c = getc (fin);
}
@@ -525,7 +520,6 @@ parse_token_decl (symbol_class what_is, symbol_class what_is_not)
if (token == tok_typename)
{
typename = xstrdup (token_buffer);
value_components_used = 1;
symbol = NULL;
}
else if (token == tok_identifier && *symval->tag == '\"' && symbol)
@@ -630,17 +624,12 @@ parse_type_decl (void)
switch (t)
{
case tok_comma:
case tok_semicolon:
break;
case tok_identifier:
if (symval->type_name == NULL)
symval->type_name = name;
else if (strcmp (name, symval->type_name) != 0)
complain (_("type redeclaration for %s"), symval->tag);
symbol_type_set (symval, name);
break;
default:
@@ -689,10 +678,6 @@ parse_assoc_decl (associativity assoc)
break;
case tok_identifier:
if (symval->prec != 0)
complain (_("redefining precedence of %s"), symval->tag);
symval->prec = lastprec;
symval->assoc = assoc;
if (symval->class == nterm_sym)
complain (_("symbol %s redefined"), symval->tag);
if (symval->number == NUMBER_UNDEFINED)
@@ -700,13 +685,9 @@ parse_assoc_decl (associativity assoc)
symval->number = ntokens++;
symval->class = token_sym;
}
symbol_precedence_set (symval, lastprec, assoc);
if (name)
{ /* record the type, if one is specified */
if (symval->type_name == NULL)
symval->type_name = name;
else if (strcmp (name, symval->type_name) != 0)
complain (_("type redeclaration for %s"), symval->tag);
}
symbol_type_set (symval, name);
break;
case tok_number:
@@ -851,7 +832,6 @@ parse_thong_decl (void)
if (token == tok_typename)
{
typename = xstrdup (token_buffer);
value_components_used = 1;
token = lex (); /* fetch first token */
}