diff options
| author | gingold | 2005-12-11 14:04:32 +0000 |
|---|---|---|
| committer | gingold | 2005-12-11 14:04:32 +0000 |
| commit | d0201686739bb5376afdcd4e4dfe14f189406979 (patch) | |
| tree | fdf732aa6e949fd2f9917fc3f7bdf5a517ed3278 | |
| parent | 4339f4ca9ed9fe2c58d390e7738a5d2ee7d43545 (diff) | |
| download | ghdl-d0201686739bb5376afdcd4e4dfe14f189406979.tar.gz ghdl-d0201686739bb5376afdcd4e4dfe14f189406979.tar.bz2 ghdl-d0201686739bb5376afdcd4e4dfe14f189406979.zip | |
location correct in an error message
| -rw-r--r-- | sem_names.adb | 3 |
1 files changed, 2 insertions, 1 deletions
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; |