From 27d00e5b4c5a1411080ac4ad9172c365b86faffd Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Sat, 1 Nov 2014 04:56:50 +0100 Subject: Fix vital regressions. --- post_sems.adb | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'post_sems.adb') diff --git a/post_sems.adb b/post_sems.adb index 151be334e..78eda5015 100644 --- a/post_sems.adb +++ b/post_sems.adb @@ -56,7 +56,7 @@ package body Post_Sems is Value := Get_Attribute_Value_Chain (Lib_Unit); while Value /= Null_Iir loop Spec := Get_Attribute_Specification (Value); - Attr_Decl := Get_Attribute_Designator (Spec); + Attr_Decl := Get_Named_Entity (Get_Attribute_Designator (Spec)); if Attr_Decl = Ieee.Vital_Timing.Vital_Level0_Attribute then Ieee.Vital_Timing.Check_Vital_Level0 (Unit); elsif Attr_Decl = Ieee.Vital_Timing.Vital_Level1_Attribute then -- cgit v1.2.3