diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-12-08 04:57:38 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-12-08 05:01:43 +0100 |
commit | 1d169d43dac7840f413a98265ac3a2324c9fb76c (patch) | |
tree | 2a238cc475b0d45b25add5001bb7533cc06dcfe5 | |
parent | 4a13fde67eb89ec1b50a5925de901f340ae98b42 (diff) | |
download | ghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.tar.gz ghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.tar.bz2 ghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.zip |
Errorout.Disp_Subprg: handle interface subprograms.
-rw-r--r-- | src/vhdl/errorout.adb | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 7119563cc..c5c5d9b1f 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -1259,9 +1259,11 @@ package body Errorout is case Get_Kind (Subprg) is when Iir_Kind_Enumeration_Literal => Append (Res, "enumeration literal "); - when Iir_Kind_Function_Declaration => + when Iir_Kind_Function_Declaration + | Iir_Kind_Interface_Function_Declaration => Append (Res, "function "); - when Iir_Kind_Procedure_Declaration => + when Iir_Kind_Procedure_Declaration + | Iir_Kind_Interface_Procedure_Declaration => Append (Res, "procedure "); when others => Error_Kind ("disp_subprg", Subprg); @@ -1289,8 +1291,8 @@ package body Errorout is Append (Res, " ["); case Get_Kind (Subprg) is - when Iir_Kind_Function_Declaration - | Iir_Kind_Procedure_Declaration => + when Iir_Kinds_Subprogram_Declaration + | Iir_Kinds_Interface_Subprogram_Declaration => declare El : Iir; begin @@ -1308,6 +1310,7 @@ package body Errorout is case Get_Kind (Subprg) is when Iir_Kind_Function_Declaration + | Iir_Kind_Interface_Function_Declaration | Iir_Kind_Enumeration_Literal => Append (Res, " return "); Append_Type (Get_Return_Type (Subprg)); |