bug fixes

1 files changed, 12 insertions, 1 deletions

diff --git a/sem_names.adb b/sem_names.adb
index 10df0d4f4..9d19bfc74 100644
--- a/sem_names.adb
+++ b/sem_names.adb
@@ -55,7 +55,17 @@ package body Sem_Names is
       for I in Natural loop
          El := Get_Nth_Element (List, I);
          exit when El = Null_Iir;
-         Error_Msg_Sem (Disp_Subprg (El), El);
+         case Get_Kind (El) is
+            when Iir_Kind_Function_Declaration
+              | Iir_Kind_Procedure_Declaration
+              | Iir_Kind_Implicit_Function_Declaration
+              | Iir_Kind_Implicit_Procedure_Declaration =>
+               Error_Msg_Sem (Disp_Subprg (El), El);
+            when Iir_Kind_Function_Call =>
+               Error_Msg_Sem (Disp_Subprg (Get_Implementation (El)), El);
+            when others =>
+               Error_Msg_Sem (Disp_Node (El), El);
+         end case;
       end loop;
    end Disp_Overload_List;
 
@@ -3114,6 +3124,7 @@ package body Sem_Names is
                return Null_Iir;
             elsif Is_Overload_List (Res) then
                Error_Overload (Name);
+               Disp_Overload_List (Get_Overload_List (Res), Name);
                return Null_Iir;
             else
                Sem_Name_Free_Result (Expr, Res);