diff options
author | Tristan Gingold | 2015-05-12 20:06:22 +0200 |
---|---|---|
committer | Tristan Gingold | 2015-05-12 20:06:22 +0200 |
commit | e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8 (patch) | |
tree | 7705d74b45e55239f58242f1ce5d591ebfe7aa09 /src/vhdl/errorout.adb | |
parent | 1effd3eb564f49a9b8e3543dfdbb121c6e1e9b73 (diff) | |
download | ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.tar.gz ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.tar.bz2 ghdl-e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8.zip |
Add context declaration and reference (vhdl 2008).
Diffstat (limited to 'src/vhdl/errorout.adb')
-rw-r--r-- | src/vhdl/errorout.adb | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/vhdl/errorout.adb b/src/vhdl/errorout.adb index a364120..b5fe537 100644 --- a/src/vhdl/errorout.adb +++ b/src/vhdl/errorout.adb @@ -621,6 +621,8 @@ package body Errorout is & '(' & Image_Identifier (Arch) & ')'; end if; end; + when Iir_Kind_Context_Declaration => + return Disp_Identifier (Node, "context"); when Iir_Kind_Package_Instantiation_Declaration => return Disp_Identifier (Node, "instantiation package"); @@ -634,6 +636,8 @@ package body Errorout is return Disp_Node (Get_Library_Unit (Node)); when Iir_Kind_Use_Clause => return "use clause"; + when Iir_Kind_Context_Reference => + return "context reference"; when Iir_Kind_Disconnection_Specification => return "disconnection specification"; |