diff options
| author | Eric Botcazou <ebotcazou@adacore.com> | 2021-09-23 11:18:02 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-10-05 08:20:06 +0000 |
| commit | c46dffc657bc7a057a4041f681905bc5b0ae7b37 (patch) | |
| tree | 42511b54b1fa270c50e33cb1ee13d0f668b51e1b /gcc/ada | |
| parent | 2f22e8d396d6626e3e9791db224e28ab32964cc1 (diff) | |
| download | gcc-c46dffc657bc7a057a4041f681905bc5b0ae7b37.zip gcc-c46dffc657bc7a057a4041f681905bc5b0ae7b37.tar.gz gcc-c46dffc657bc7a057a4041f681905bc5b0ae7b37.tar.bz2 | |
[Ada] Remove left-overs of Unaligned_Valid attribute
gcc/ada/
* exp_attr.adb (Expand_Fpt_Attribute): Likewise.
* snames.ads-tmpl (Name_Unaligned_Valid): Delete.
Diffstat (limited to 'gcc/ada')
| -rw-r--r-- | gcc/ada/exp_attr.adb | 3 | ||||
| -rw-r--r-- | gcc/ada/snames.ads-tmpl | 1 |
2 files changed, 1 insertions, 3 deletions
diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index 3e7bb83..096671f 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -165,8 +165,7 @@ package body Exp_Attr is -- the appropriate instantiation of System.Fat_Gen. Float arguments in Args -- have already been converted to the floating-point type for which Pkg was -- instantiated. The Nam argument is the relevant attribute processing - -- routine to be called. This is the same as the attribute name, except in - -- the Unaligned_Valid case. + -- routine to be called. This is the same as the attribute name. procedure Expand_Fpt_Attribute_R (N : Node_Id); -- This procedure expands a call to a floating-point attribute function diff --git a/gcc/ada/snames.ads-tmpl b/gcc/ada/snames.ads-tmpl index 8a98dee..e1af28b 100644 --- a/gcc/ada/snames.ads-tmpl +++ b/gcc/ada/snames.ads-tmpl @@ -1400,7 +1400,6 @@ package Snames is -- Note that the UP_ prefix means use the rest of the name in uppercase, -- e.g. Name_UP_RESULT corresponds to the name "RESULT". - Name_Unaligned_Valid : constant Name_Id := N + $; Name_UP_RESULT : constant Name_Id := N + $; Name_Suspension_Object : constant Name_Id := N + $; Name_Synchronous_Task_Control : constant Name_Id := N + $; |