From 9bdc040520e25dc9c3d93390aae5e51f3d05d8d8 Mon Sep 17 00:00:00 2001
From: Pawel Szostek <pawel.szostek@cern.ch>
Date: Fri, 1 Apr 2011 16:29:47 +0200
Subject: [PATCH] Add missing ``sorry'' messages in VHDL parsing

---
 vhdlpp/parse.y | 27 ++++++++++++++++++++++++++-
 1 file changed, 26 insertions(+), 1 deletion(-)

diff --git a/vhdlpp/parse.y b/vhdlpp/parse.y
index 4a2ca20bf..f42e217c1 100644
--- a/vhdlpp/parse.y
+++ b/vhdlpp/parse.y
@@ -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