Fix obscure crash (expanded name in a homograph of an enumeration literal).

2 files changed, 5 insertions, 0 deletions

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)