From 533c3e35d66131ae93e3f521c5da85ecb24b64a4 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Sun, 19 Jan 2014 02:42:08 +0100
Subject: Fix obscure crash (expanded name in a homograph of an enumeration
 literal).

---
 iirs.adb | 1 +
 iirs.ads | 4 ++++
 2 files changed, 5 insertions(+)

diff --git a/iirs.adb b/iirs.adb
index 332746b..707a09f 100644
--- a/iirs.adb
+++ b/iirs.adb
@@ -6881,6 +6881,7 @@ package body Iirs is
            | Iir_Kind_Implicit_Function_Declaration
            | Iir_Kind_Implicit_Procedure_Declaration
            | Iir_Kind_Procedure_Declaration
+           | Iir_Kind_Enumeration_Literal
            | Iir_Kind_Sensitized_Process_Statement
            | Iir_Kind_Process_Statement
            | Iir_Kind_Block_Statement
diff --git a/iirs.ads b/iirs.ads
index 14d41b5..def5164 100644
--- a/iirs.ads
+++ b/iirs.ads
@@ -1467,6 +1467,10 @@ package Iirs is
    --
    --   Get/Set_Visible_Flag (Flag4)
    --
+   -- Never set to true, but possible when used as a prefix of an expanded
+   -- name in a overloaded subprogram.
+   --   Get/Set_Is_Within_Flag (Flag5)
+   --
    --   Get/Set_Expr_Staticness (State1)
    --
    --   Get/Set_Name_Staticness (State2)
-- 
cgit