From 82c9bea16076114ff474defcc606db041ff0c5b0 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sat, 4 Jan 2014 01:53:37 +0100
Subject: sem_discrete_range_expression: be sure the range is discrete. Allow
 attribute specifications on statements in entities. (and a couples of minor
 crashes).

---
 sem_names.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'sem_names.adb')

diff --git a/sem_names.adb b/sem_names.adb
index 0e46db9..f7a28a5 100644
--- a/sem_names.adb
+++ b/sem_names.adb
@@ -1569,6 +1569,7 @@ package body Sem_Names is
                Sem.Add_Dependence (Res);
             end if;
          when Iir_Kind_Process_Statement
+           | Iir_Kind_Procedure_Declaration
            | Iir_Kind_Sensitized_Process_Statement
            | Iir_Kind_Design_Unit
 --            | Iir_Kind_Architecture_Declaration
@@ -2227,7 +2228,8 @@ package body Sem_Names is
            | Iir_Kind_Enumeration_Literal
            | Iir_Kind_Unit_Declaration
            | Iir_Kinds_Sequential_Statement
-           | Iir_Kinds_Concurrent_Statement =>
+           | Iir_Kinds_Concurrent_Statement
+           | Iir_Kind_Component_Declaration =>
             --  FIXME: to complete
             null;
          when Iir_Kind_Design_Unit =>
-- 
cgit