41 |
/* Nonzero if %union has been seen. */ |
/* Nonzero if %union has been seen. */ |
42 |
int typed = 0; |
int typed = 0; |
43 |
|
|
44 |
static symbol_list * |
symbol_list * |
45 |
symbol_list_new (symbol_t *sym, location_t location) |
symbol_list_new (symbol_t *sym, location_t location) |
46 |
{ |
{ |
47 |
symbol_list *res = XMALLOC (symbol_list, 1); |
symbol_list *res = XMALLOC (symbol_list, 1); |
53 |
return res; |
return res; |
54 |
} |
} |
55 |
|
|
56 |
|
symbol_list * |
57 |
|
symbol_list_prepend (symbol_list *list, symbol_t *symbol, location_t location) |
58 |
|
{ |
59 |
|
symbol_list *res = symbol_list_new (symbol, location); |
60 |
|
res->next = list; |
61 |
|
return res; |
62 |
|
} |
63 |
|
|
64 |
|
|
65 |
/*--------------------------------------------------------------. |
/*--------------------------------------------------------------. |
66 |
| Get the data type (alternative in the union) of the value for | |
| Get the data type (alternative in the union) of the value for | |