aboutsummaryrefslogtreecommitdiffstats
path: root/src/vhdl/post_sems.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/vhdl/post_sems.adb')
-rw-r--r--src/vhdl/post_sems.adb12
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));