diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-10-29 20:36:29 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-10-29 20:36:29 +0100 |
| commit | e5071f1a02f16a369c504944934042fbfb09e5dc (patch) | |
| tree | 1b891a41c024a308274c380c8189e3213085a7e8 /errorout.adb | |
| parent | 236a876a8448b89061bb71869c36a68aea0199c3 (diff) | |
| download | ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.tar.gz ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.tar.bz2 ghdl-e5071f1a02f16a369c504944934042fbfb09e5dc.zip | |
Add support for package interface.
Diffstat (limited to 'errorout.adb')
| -rw-r--r-- | errorout.adb | 13 |
1 files changed, 8 insertions, 5 deletions
diff --git a/errorout.adb b/errorout.adb index 4dde4562d..af6977d31 100644 --- a/errorout.adb +++ b/errorout.adb @@ -419,7 +419,8 @@ package body Errorout is return "open association element"; when Iir_Kind_Association_Element_By_Individual => return "individual association element"; - when Iir_Kind_Association_Element_By_Expression => + when Iir_Kind_Association_Element_By_Expression + | Iir_Kind_Association_Element_Package => return "association element"; when Iir_Kind_Overload_List => return "overloaded name or expression"; @@ -527,7 +528,7 @@ package body Errorout is when Iir_Kind_Psl_Expression => return "PSL instantiation"; - when Iir_Kind_Constant_Interface_Declaration => + when Iir_Kind_Interface_Constant_Declaration => if Get_Parent (Node) = Null_Iir then -- For constant interface of predefined operator. return "anonymous interface"; @@ -540,7 +541,7 @@ package body Errorout is when others => return Disp_Identifier (Node, "constant interface"); end case; - when Iir_Kind_Signal_Interface_Declaration => + when Iir_Kind_Interface_Signal_Declaration => case Get_Kind (Get_Parent (Node)) is when Iir_Kind_Entity_Declaration | Iir_Kind_Block_Statement @@ -549,10 +550,12 @@ package body Errorout is when others => return Disp_Identifier (Node, "signal interface"); end case; - when Iir_Kind_Variable_Interface_Declaration => + when Iir_Kind_Interface_Variable_Declaration => return Disp_Identifier (Node, "variable interface"); - when Iir_Kind_File_Interface_Declaration => + when Iir_Kind_Interface_File_Declaration => return Disp_Identifier (Node, "file interface"); + when Iir_Kind_Interface_Package_Declaration => + return Disp_Identifier (Node, "package interface"); when Iir_Kind_Signal_Declaration => return Disp_Identifier (Node, "signal"); when Iir_Kind_Variable_Declaration => |