diff options
| author | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:06:22 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2015-05-12 20:06:22 +0200 |
| commit | e8e5c3d2ab5783d65fcd7a33a7b35c103179ece8 (patch) | |
| tree | 7705d74b45e55239f58242f1ce5d591ebfe7aa09 /src/vhdl/post_sems.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/post_sems.adb')
| -rw-r--r-- | src/vhdl/post_sems.adb | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/src/vhdl/post_sems.adb b/src/vhdl/post_sems.adb index 2e42e4510..69e40f92e 100644 --- a/src/vhdl/post_sems.adb +++ b/src/vhdl/post_sems.adb @@ -33,10 +33,14 @@ package body Post_Sems is Spec : Iir_Attribute_Specification; Attr_Decl : Iir_Attribute_Declaration; begin - -- No checks on package bodies. - if Get_Kind (Lib_Unit) = Iir_Kind_Package_Body then - return; - end if; + -- No checks on package bodies or context declaration + case Get_Kind (Lib_Unit) is + when Iir_Kind_Package_Body + | Iir_Kind_Context_Declaration => + return; + when others => + null; + end case; Id := Get_Identifier (Lib_Unit); Lib := Get_Library (Get_Design_File (Unit)); |