diff options
| author | Tristan Gingold <tgingold@free.fr> | 2020-04-22 18:52:52 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2020-04-22 21:31:26 +0200 |
| commit | b7992d8601cac632b75897182fb529c9409105ea (patch) | |
| tree | 7cedef452e230409016f786860c8a3f7bce4dcab /src/vhdl/vhdl-sem_lib.adb | |
| parent | d78d7477758f7212890daabcb53b9e2852a3f41a (diff) | |
| download | ghdl-b7992d8601cac632b75897182fb529c9409105ea.tar.gz ghdl-b7992d8601cac632b75897182fb529c9409105ea.tar.bz2 ghdl-b7992d8601cac632b75897182fb529c9409105ea.zip | |
find_top_entity: add location to report errors. Fix #1254
Diffstat (limited to 'src/vhdl/vhdl-sem_lib.adb')
| -rw-r--r-- | src/vhdl/vhdl-sem_lib.adb | 25 |
1 files changed, 15 insertions, 10 deletions
diff --git a/src/vhdl/vhdl-sem_lib.adb b/src/vhdl/vhdl-sem_lib.adb index 2197c6b5e..7144d7725 100644 --- a/src/vhdl/vhdl-sem_lib.adb +++ b/src/vhdl/vhdl-sem_lib.adb @@ -175,7 +175,8 @@ package body Vhdl.Sem_Lib is Set_Dependence_List (Design, Null_Iir_List); end Free_Dependence_List; - procedure Load_Parse_Design_Unit (Design_Unit: Iir_Design_Unit; Loc : Iir) + procedure Load_Parse_Design_Unit + (Design_Unit: Iir_Design_Unit; Loc : Location_Type) is use Vhdl.Scanner; Design_File : constant Iir_Design_File := Get_Design_File (Design_Unit); @@ -262,19 +263,16 @@ package body Vhdl.Sem_Lib is Free_Iir (Res); end Load_Parse_Design_Unit; - procedure Error_Obsolete (Loc : Iir; Msg : String; Args : Earg_Arr) is + procedure Error_Obsolete + (Loc : Location_Type; Msg : String; Args : Earg_Arr) is begin if not Flags.Flag_Elaborate_With_Outdated then - if Loc = Null_Iir then - Error_Msg_Sem (Command_Line_Location, Msg, Args); - else - Error_Msg_Sem (+Loc, Msg, Args); - end if; + Error_Msg_Sem (Loc, Msg, Args); end if; end Error_Obsolete; -- Check if one of its dependency makes this unit obsolete. - function Check_Obsolete_Dependence (Design_Unit : Iir; Loc : Iir) + function Check_Obsolete_Dependence (Design_Unit : Iir; Loc : Location_Type) return Boolean is List : constant Iir_List := Get_Dependence_List (Design_Unit); @@ -305,7 +303,8 @@ package body Vhdl.Sem_Lib is return False; end Check_Obsolete_Dependence; - procedure Explain_Obsolete (Design_Unit : Iir_Design_Unit; Loc : Iir) + procedure Explain_Obsolete + (Design_Unit : Iir_Design_Unit; Loc : Location_Type) is List : Iir_List; It : List_Iterator; @@ -333,7 +332,8 @@ package body Vhdl.Sem_Lib is end Explain_Obsolete; -- Load, parse, analyze, back-end a design_unit if necessary. - procedure Load_Design_Unit (Design_Unit : Iir_Design_Unit; Loc : Iir) + procedure Load_Design_Unit + (Design_Unit : Iir_Design_Unit; Loc : Location_Type) is Prev_Nbr_Errors : Natural; Warnings : Warnings_Setting; @@ -420,6 +420,11 @@ package body Vhdl.Sem_Lib is end case; end Load_Design_Unit; + procedure Load_Design_Unit (Design_Unit: Iir_Design_Unit; Loc : Iir) is + begin + Load_Design_Unit (Design_Unit, Get_Location (Loc)); + end Load_Design_Unit; + function Load_Primary_Unit (Library: Iir_Library_Declaration; Name: Name_Id; Loc : Iir) return Iir_Design_Unit |