From 3303c1924bae3c699db050e6c33ff814c5e0eb3f Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 4 Jan 2014 01:47:41 +0100
Subject: Avoid a crash for component declarations in processes.

---
 parse.adb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/parse.adb b/parse.adb
index dc5c9fd..6f64ce1 100644
--- a/parse.adb
+++ b/parse.adb
@@ -3269,7 +3269,8 @@ package body Parse is
                case Get_Kind (Parent) is
                   when Iir_Kind_Entity_Declaration
                     | Iir_Kind_Procedure_Body
-                    | Iir_Kind_Function_Body =>
+                    | Iir_Kind_Function_Body
+                    | Iir_Kinds_Process_Statement =>
                      Error_Msg_Parse
                        ("component declaration are not allowed here");
                   when others =>
-- 
cgit