diff options
Diffstat (limited to 'gcc/ada/exp_attr.adb')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 15 |
1 files changed, 2 insertions, 13 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index ae7def7e3bd..6516d3bc199 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -3100,19 +3100,6 @@ package body Exp_Attr is end if; end; - --------------- - -- Lock_Free -- - --------------- - - -- Rewrite the attribute reference with the value of Uses_Lock_Free - - when Attribute_Lock_Free => Lock_Free : declare - V : constant Entity_Id := Boolean_Literals (Uses_Lock_Free (Ptyp)); - begin - Rewrite (N, New_Occurrence_Of (V, Loc)); - Analyze_And_Resolve (N, Standard_Boolean); - end Lock_Free; - ------------- -- Machine -- ------------- @@ -6018,6 +6005,7 @@ package body Exp_Attr is when Attribute_Abort_Signal | Attribute_Address_Size | + Attribute_Atomic_Always_Lock_Free | Attribute_Base | Attribute_Class | Attribute_Compiler_Version | @@ -6035,6 +6023,7 @@ package body Exp_Attr is Attribute_Has_Tagged_Values | Attribute_Large | Attribute_Last_Valid | + Attribute_Lock_Free | Attribute_Machine_Emax | Attribute_Machine_Emin | Attribute_Machine_Mantissa | |