diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2024-03-25 23:01:32 +0100 |
|---|---|---|
| committer | Marc Poulhiès <poulhies@adacore.com> | 2024-05-20 09:47:04 +0200 |
| commit | 766a3934c13d2732de3af2c219cae399e94a4470 (patch) | |
| tree | 2d4bb7413fb660e6cd88a493b933c20dd6d58337 /gcc | |
| parent | 824755fcf4d82119c8ea7496e43eab7a88d17a2b (diff) | |
| download | gcc-766a3934c13d2732de3af2c219cae399e94a4470.zip gcc-766a3934c13d2732de3af2c219cae399e94a4470.tar.gz gcc-766a3934c13d2732de3af2c219cae399e94a4470.tar.bz2 | |
ada: Use discrete choice list in declaration of universal type attributes
Code cleanup.
gcc/ada/
* sem_attr.ads (Universal_Type_Attribute): Simplify using
array aggregate syntax with discrete choice list.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/sem_attr.ads | 62 |
1 files changed, 31 insertions, 31 deletions
diff --git a/gcc/ada/sem_attr.ads b/gcc/ada/sem_attr.ads index d18bd5b..40ec423 100644 --- a/gcc/ada/sem_attr.ads +++ b/gcc/ada/sem_attr.ads @@ -615,37 +615,37 @@ package Sem_Attr is -- universal type. Universal_Type_Attribute : constant array (Attribute_Id) of Boolean := - (Attribute_Aft => True, - Attribute_Alignment => True, - Attribute_Component_Size => True, - Attribute_Count => True, - Attribute_Delta => True, - Attribute_Digits => True, - Attribute_Exponent => True, - Attribute_First_Bit => True, - Attribute_Fore => True, - Attribute_Last_Bit => True, - Attribute_Length => True, - Attribute_Machine_Emax => True, - Attribute_Machine_Emin => True, - Attribute_Machine_Mantissa => True, - Attribute_Machine_Radix => True, - Attribute_Max_Alignment_For_Allocation => True, - Attribute_Max_Size_In_Storage_Elements => True, - Attribute_Model_Emin => True, - Attribute_Model_Epsilon => True, - Attribute_Model_Mantissa => True, - Attribute_Model_Small => True, - Attribute_Modulus => True, - Attribute_Pos => True, - Attribute_Position => True, - Attribute_Safe_First => True, - Attribute_Safe_Last => True, - Attribute_Scale => True, - Attribute_Size => True, - Attribute_Small => True, - Attribute_Wide_Wide_Width => True, - Attribute_Wide_Width => True, + (Attribute_Aft | + Attribute_Alignment | + Attribute_Component_Size | + Attribute_Count | + Attribute_Delta | + Attribute_Digits | + Attribute_Exponent | + Attribute_First_Bit | + Attribute_Fore | + Attribute_Last_Bit | + Attribute_Length | + Attribute_Machine_Emax | + Attribute_Machine_Emin | + Attribute_Machine_Mantissa | + Attribute_Machine_Radix | + Attribute_Max_Alignment_For_Allocation | + Attribute_Max_Size_In_Storage_Elements | + Attribute_Model_Emin | + Attribute_Model_Epsilon | + Attribute_Model_Mantissa | + Attribute_Model_Small | + Attribute_Modulus | + Attribute_Pos | + Attribute_Position | + Attribute_Safe_First | + Attribute_Safe_Last | + Attribute_Scale | + Attribute_Size | + Attribute_Small | + Attribute_Wide_Wide_Width | + Attribute_Wide_Width | Attribute_Width => True, others => False); |