From d0201686739bb5376afdcd4e4dfe14f189406979 Mon Sep 17 00:00:00 2001
From: gingold
Date: Sun, 11 Dec 2005 14:04:32 +0000
Subject: location correct in an error message

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

diff --git a/sem_names.adb b/sem_names.adb
index 9d19bfc..41e6830 100644
--- a/sem_names.adb
+++ b/sem_names.adb
@@ -62,7 +62,8 @@ package body Sem_Names is
               | 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);
+               El := Get_Implementation (El);
+               Error_Msg_Sem (Disp_Subprg (El), El);
             when others =>
                Error_Msg_Sem (Disp_Node (El), El);
          end case;
-- 
cgit