From 1d169d43dac7840f413a98265ac3a2324c9fb76c Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Thu, 8 Dec 2016 04:57:38 +0100 Subject: Errorout.Disp_Subprg: handle interface subprograms. --- src/vhdl/errorout.adb | 11 +++++++---- 1 file 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)); -- cgit v1.2.3