do not consider function call as a prefix of expanded name.

Fix ticket 59.

1 files changed, 7 insertions, 1 deletions

diff --git a/src/vhdl/sem_names.adb b/src/vhdl/sem_names.adb
index fe2b0e0b4..d7bb8c48b 100644
--- a/src/vhdl/sem_names.adb
+++ b/src/vhdl/sem_names.adb
@@ -1849,7 +1849,13 @@ package body Sem_Names is
                for I in Natural loop
                   El := Get_Nth_Element (Prefix_List, I);
                   exit when El = Null_Iir;
-                  Sem_As_Expanded_Name (El);
+                  case Get_Kind (El) is
+                     when Iir_Kind_Function_Call =>
+                        --  Not an expanded name.
+                        null;
+                     when others =>
+                        Sem_As_Expanded_Name (El);
+                  end case;
                end loop;
 
                --  If no expanded name are found, try as selected element.