From c46dffc657bc7a057a4041f681905bc5b0ae7b37 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Thu, 23 Sep 2021 11:18:02 +0200 Subject: [Ada] Remove left-overs of Unaligned_Valid attribute gcc/ada/ * exp_attr.adb (Expand_Fpt_Attribute): Likewise. * snames.ads-tmpl (Name_Unaligned_Valid): Delete. --- gcc/ada/exp_attr.adb | 3 +-- gcc/ada/snames.ads-tmpl | 1 - 2 files changed, 1 insertion(+), 3 deletions(-) (limited to 'gcc') 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 + $; -- cgit v1.1