From 1dfa4c3a364523c19cf9f5ff1b4bb00dda29b41e Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Fri, 13 Jan 2017 04:32:46 +0100 Subject: vhdl08: implement 'subtype attribute Fix #253 --- src/std_names.ads | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) (limited to 'src/std_names.ads') 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; -- cgit v1.2.3