l = symbol_list_n_get (l, n);
if (!l)
{
- complain_at (loc, complaint, _("invalid $ value: $%d"), n);
+ complain (&loc, complaint, _("invalid $ value: $%d"), n);
return NULL;
}
aver (l->content_type == SYMLIST_SYMBOL);
void
symbol_list_code_props_set (symbol_list *node, code_props_type kind,
- location loc, char const *code)
+ code_props const *cprops)
{
- code_props cprops;
- code_props_symbol_action_init (&cprops, code, loc);
- code_props_translate_code (&cprops);
switch (node->content_type)
{
- case SYMLIST_SYMBOL:
- symbol_code_props_set (node->content.sym, kind, &cprops);
- if (node->content.sym->status == undeclared)
- node->content.sym->status = used;
- break;
- case SYMLIST_TYPE:
- semantic_type_code_props_set
- (semantic_type_get (node->content.sem_type->tag,
- &node->content.sem_type->location),
- kind, &cprops);
- if (node->content.sem_type->status == undeclared)
- node->content.sem_type->status = used;
- break;
+ case SYMLIST_SYMBOL:
+ symbol_code_props_set (node->content.sym, kind, cprops);
+ if (node->content.sym->status == undeclared)
+ node->content.sym->status = used;
+ break;
+ case SYMLIST_TYPE:
+ semantic_type_code_props_set
+ (semantic_type_get (node->content.sem_type->tag,
+ &node->content.sem_type->location),
+ kind, cprops);
+ if (node->content.sem_type->status == undeclared)
+ node->content.sem_type->status = used;
+ break;
}
}