diff options
author | Tristan Gingold <tgingold@free.fr> | 2017-01-13 04:32:46 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2017-01-13 18:57:25 +0100 |
commit | 1dfa4c3a364523c19cf9f5ff1b4bb00dda29b41e (patch) | |
tree | 31012366adb3d095b973a7c7e3b3be4519cc1f4e /src/std_names.ads | |
parent | 1283370d289abafce1c42d0c952b759578ae7ac1 (diff) | |
download | ghdl-1dfa4c3a364523c19cf9f5ff1b4bb00dda29b41e.tar.gz ghdl-1dfa4c3a364523c19cf9f5ff1b4bb00dda29b41e.tar.bz2 ghdl-1dfa4c3a364523c19cf9f5ff1b4bb00dda29b41e.zip |
vhdl08: implement 'subtype attribute
Fix #253
Diffstat (limited to 'src/std_names.ads')
-rw-r--r-- | src/std_names.ads | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/src/std_names.ads b/src/std_names.ads index a5566b0c7..b54dcb693 100644 --- a/src/std_names.ads +++ b/src/std_names.ads @@ -259,7 +259,7 @@ package Std_Names is Name_Last_Attribute : constant Name_Id := Name_Last_Value; subtype Name_Id_Attributes is Name_Id - range Name_First_Attribute ..Name_Last_Attribute; + range Name_First_Attribute .. Name_Last_Attribute; Name_First_Vhdl87_Attribute : constant Name_Id := Name_Last_Value + 1; Name_Behavior : constant Name_Id := Name_First_Attribute + 022; @@ -267,7 +267,7 @@ package Std_Names is Name_Last_Vhdl87_Attribute : constant Name_Id := Name_Structure; subtype Name_Id_Vhdl87_Attributes is Name_Id - range Name_First_Vhdl87_Attribute ..Name_Last_Vhdl87_Attribute; + range Name_First_Vhdl87_Attribute .. Name_Last_Vhdl87_Attribute; Name_First_Vhdl93_Attribute : constant Name_Id := Name_Structure + 1; Name_Ascending : constant Name_Id := Name_First_Attribute + 024; @@ -281,10 +281,16 @@ package Std_Names is Name_Last_Vhdl93_Attribute : constant Name_Id := Name_Path_Name; subtype Name_Id_Vhdl93_Attributes is Name_Id - range Name_First_Vhdl93_Attribute ..Name_Last_Vhdl93_Attribute; + range Name_First_Vhdl93_Attribute .. Name_Last_Vhdl93_Attribute; + + Name_First_Vhdl08_Attribute : constant Name_Id := + Name_Last_Vhdl93_Attribute + 01; + Name_Element : constant Name_Id := Name_First_Vhdl08_Attribute + 00; + Name_Last_Vhdl08_Attribute : constant Name_Id := + Name_First_Vhdl08_Attribute + 00; Name_First_AMS_Attribute : constant Name_Id := - Name_Last_Vhdl93_Attribute + 1; + Name_Last_Vhdl08_Attribute + 1; Name_Contribution : constant Name_Id := Name_First_AMS_Attribute + 000; Name_Dot : constant Name_Id := Name_First_AMS_Attribute + 001; Name_Integ : constant Name_Id := Name_First_AMS_Attribute + 002; |