aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorTristan Gingold <tgingold@free.fr>2016-12-08 04:57:38 +0100
committerTristan Gingold <tgingold@free.fr>2016-12-08 05:01:43 +0100
commit1d169d43dac7840f413a98265ac3a2324c9fb76c (patch)
tree2a238cc475b0d45b25add5001bb7533cc06dcfe5
parent4a13fde67eb89ec1b50a5925de901f340ae98b42 (diff)
downloadghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.tar.gz
ghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.tar.bz2
ghdl-1d169d43dac7840f413a98265ac3a2324c9fb76c.zip
Errorout.Disp_Subprg: handle interface subprograms.
-rw-r--r--src/vhdl/errorout.adb11
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));