diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-12-15 06:42:10 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-12-15 06:42:10 +0100 |
| commit | 6d2b8c7bfcbd534406243093d1ec5e77ac4c8484 (patch) | |
| tree | 082afe2c691eae5108d9781035bad22804b42585 /src/vhdl/errorout.adb | |
| parent | cce31df3a7327c5e35fbfa818d87580219e73128 (diff) | |
| download | ghdl-6d2b8c7bfcbd534406243093d1ec5e77ac4c8484.tar.gz ghdl-6d2b8c7bfcbd534406243093d1ec5e77ac4c8484.tar.bz2 ghdl-6d2b8c7bfcbd534406243093d1ec5e77ac4c8484.zip | |
Use same node for implicit and explicit subprogram declarations.
Diffstat (limited to 'src/vhdl/errorout.adb')
| -rw-r--r-- | src/vhdl/errorout.adb | 20 |
1 files changed, 2 insertions, 18 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 1652bb43e..b78bfc2d2 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -663,15 +663,6 @@ package body Errorout is return "configuration specification"; when Iir_Kind_Component_Configuration => return "component configuration"; - when Iir_Kind_Implicit_Function_Declaration => - return Disp_Identifier (Node, "implicit function") - & Disp_Identifier (Get_Type_Reference (Node), " of type"); --- return "implicit function " --- & Get_Predefined_Function_Name --- (Get_Implicit_Definition (Node)); - when Iir_Kind_Implicit_Procedure_Declaration => - return "implicit procedure " - & Get_Predefined_Function_Name (Get_Implicit_Definition (Node)); when Iir_Kind_Concurrent_Procedure_Call_Statement => return "concurrent procedure call"; @@ -940,10 +931,6 @@ package body Errorout is case Get_Kind (Subprg) is when Iir_Kind_Enumeration_Literal => Append (Res, "enumeration literal "); - when Iir_Kind_Implicit_Function_Declaration => - Append (Res, "implicit function "); - when Iir_Kind_Implicit_Procedure_Declaration => - Append (Res, "implicit procedure "); when Iir_Kind_Function_Declaration => Append (Res, "function "); when Iir_Kind_Procedure_Declaration => @@ -974,9 +961,7 @@ package body Errorout is Append (Res, " ["); case Get_Kind (Subprg) is - when Iir_Kind_Implicit_Function_Declaration - | Iir_Kind_Implicit_Procedure_Declaration - | Iir_Kind_Function_Declaration + when Iir_Kind_Function_Declaration | Iir_Kind_Procedure_Declaration => declare El : Iir; @@ -994,8 +979,7 @@ package body Errorout is end case; case Get_Kind (Subprg) is - when Iir_Kind_Implicit_Function_Declaration - | Iir_Kind_Function_Declaration + when Iir_Kind_Function_Declaration | Iir_Kind_Enumeration_Literal => Append (Res, " return "); Append_Type (Get_Return_Type (Subprg)); |