diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-11-01 04:56:50 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-11-01 04:56:50 +0100 |
| commit | 27d00e5b4c5a1411080ac4ad9172c365b86faffd (patch) | |
| tree | 9fc6f114c4dcce2365c35e775c8899afe6c394b6 /post_sems.adb | |
| parent | 9e22ebad3dbc1065e13ccc56dfbb3418839b1002 (diff) | |
| download | ghdl-27d00e5b4c5a1411080ac4ad9172c365b86faffd.tar.gz ghdl-27d00e5b4c5a1411080ac4ad9172c365b86faffd.tar.bz2 ghdl-27d00e5b4c5a1411080ac4ad9172c365b86faffd.zip | |
Fix vital regressions.
Diffstat (limited to 'post_sems.adb')
| -rw-r--r-- | post_sems.adb | 2 |
1 files changed, 1 insertions, 1 deletions
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 |