From: Patrick Bernardi Date: Wed, 16 Dec 2020 01:44:57 +0000 (-0500) Subject: [Ada] System.Storage_Elements: cleanup comment X-Git-Tag: basepoints/gcc-13~8048 X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=0b8d4694de0ea744804eed414c8a1453111fdb68;p=thirdparty%2Fgcc.git [Ada] System.Storage_Elements: cleanup comment gcc/ada/ * libgnat/s-stoele.ads (Storage_Offset): Cleanup comment. --- diff --git a/gcc/ada/libgnat/s-stoele.ads b/gcc/ada/libgnat/s-stoele.ads index 4abac8ef7a5d..5369ba46dd51 100644 --- a/gcc/ada/libgnat/s-stoele.ads +++ b/gcc/ada/libgnat/s-stoele.ads @@ -56,8 +56,7 @@ package System.Storage_Elements is +(2 ** (Integer'(Standard'Address_Size) - 1)) - Long_Long_Integer'(1); -- Note: the reason for the Long_Long_Integer qualification here is to -- avoid a bogus ambiguity when this unit is analyzed in an rtsfind - -- context. It may be possible to remove this in the future, but it is - -- certainly harmless in any case ??? + -- context. subtype Storage_Count is Storage_Offset range 0 .. Storage_Offset'Last;