diff options
Diffstat (limited to 'src/vhdl/errorout.adb')
| -rw-r--r-- | src/vhdl/errorout.adb | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index 1181af907..5ee924cba 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -910,11 +910,15 @@ package body Errorout is when Iir_Kind_Procedure_Declaration => return Disp_Identifier (Node, "procedure"); + when Iir_Kind_Function_Declaration => + return Disp_Identifier (Node, "function"); + when Iir_Kind_Interface_Procedure_Declaration => + return Disp_Identifier (Node, "interface procedure"); + when Iir_Kind_Interface_Function_Declaration => + return Disp_Identifier (Node, "interface function"); when Iir_Kind_Procedure_Body | Iir_Kind_Function_Body => return "subprogram body"; - when Iir_Kind_Function_Declaration => - return Disp_Identifier (Node, "function"); when Iir_Kind_Package_Declaration => return Disp_Identifier (Node, "package"); |