From 33b9e98916b6b3042efdfc1f9341e25f51ecee04 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Tue, 17 Dec 2019 13:10:11 +0100 Subject: [PATCH] [Ada] Fix minor discrepancy in Expand_N_Attribute_Reference 2020-06-02 Eric Botcazou gcc/ada/ * exp_attr.adb (Expand_N_Attribute_Reference) : Adjust comment and compare against proper type. --- gcc/ada/exp_attr.adb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/ada/exp_attr.adb b/gcc/ada/exp_attr.adb index d658f0b3c98..731d223122c 100644 --- a/gcc/ada/exp_attr.adb +++ b/gcc/ada/exp_attr.adb @@ -2460,11 +2460,11 @@ package body Exp_Attr is New_Node := Build_Get_Alignment (Loc, New_Node); -- Case where the context is a specific integer type with which - -- the original attribute was compatible. The function has a - -- specific type as well, so to preserve the compatibility we - -- must convert explicitly. + -- the original attribute was compatible. But the alignment has a + -- specific type in a-tags.ads (Standard.Natural) so, in order to + -- preserve type compatibility, we must convert explicitly. - if Typ /= Standard_Integer then + if Typ /= Standard_Natural then New_Node := Convert_To (Typ, New_Node); end if; -- 2.30.2