Add missing ``sorry'' messages in VHDL parsing

This commit is contained in:
Pawel Szostek 2011-04-01 16:29:47 +02:00 committed by Stephen Williams
parent cef37e0a4b
commit 9bdc040520
1 changed files with 26 additions and 1 deletions

View File

@ -339,9 +339,15 @@ component_configuration
binding_indication_semicolon_opt
block_configuration_opt
K_end K_for ';'
{
sorrymsg(@1, "Component configuration in not yet supported");
if($3) delete $3;
delete $2;
}
| K_for component_specification error K_end K_for
{
errormsg(@1, "Error in component configuration statement.\n");
delete $2;
}
;
@ -653,6 +659,9 @@ generic_map_aspect_opt
generic_map_aspect
: K_generic K_map '(' association_list ')'
{
sorrymsg(@1, "Generic map aspect not yet supported.\n");
}
;
identifier_list
@ -789,7 +798,7 @@ package_declaration
}
delete $2;
}
| K_package error K_end K_package_opt identifier_opt ';'
| K_package IDENTIFIER K_is error K_end K_package_opt identifier_opt ';'
{ errormsg(@2, "Syntax error in package clause.\n");
yyerrok;
}
@ -830,9 +839,17 @@ package_body
package_body_declarative_part_opt
K_end K_package_opt identifier_opt ';'
{
sorrymsg(@1, "Package body is not yet supported.\n");
delete[] $3;
if($8) delete[] $8;
}
| K_package K_body IDENTIFIER K_is
error
K_end K_package_opt identifier_opt ';'
{
errormsg(@1, "Errors in package body.\n");
}
;
port_clause
@ -850,6 +867,10 @@ port_clause_opt : port_clause {$$ = $1;} | {$$ = 0;} ;
port_map_aspect
: K_port K_map '(' association_list ')'
{ $$ = $4; }
| K_port K_map '(' error ')'
{
errormsg(@1, "Syntax error in port map aspect.\n");
}
;
port_map_aspect_opt
@ -976,6 +997,10 @@ subtype_indication
delete[]$1;
$$ = tmp;
}
| IDENTIFIER '(' error ')'
{
errormsg(@1, "Syntax error in subtype indication.\n");
}
;
suffix