From: pmderodat Date: Tue, 9 Oct 2018 15:05:44 +0000 (+0000) Subject: [Ada] Bounded_Holders: fix a typo X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=00d3da2a2090343cf3a3444defa711a6d72a57f0;p=thirdparty%2Fgcc.git [Ada] Bounded_Holders: fix a typo 2018-10-09 Arnaud Charlet gcc/ada/ * libgnat/a-coboho.ads (Storage_Element): Fix a typo. git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@264970 138bc75d-0d04-0410-961f-82ee72b054a4 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 518fd0e3eceb..41402f68b98a 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2018-10-09 Arnaud Charlet + + * libgnat/a-coboho.ads (Storage_Element): Fix a typo. + 2018-10-09 Claire Dross * libgnat/a-cfinve.ads: Remove default value for diff --git a/gcc/ada/libgnat/a-coboho.ads b/gcc/ada/libgnat/a-coboho.ads index 82cd36ae3958..1e812e1dd0b7 100644 --- a/gcc/ada/libgnat/a-coboho.ads +++ b/gcc/ada/libgnat/a-coboho.ads @@ -88,7 +88,7 @@ private pragma Assert (Element_Type'Alignment <= Standard'Maximum_Alignment); -- This prevents elements with a user-specified Alignment that is too big - type Storage_Element is mod System.Storage_Unit; + type Storage_Element is mod 2 ** System.Storage_Unit; type Storage_Array is array (Positive range <>) of Storage_Element; type Holder is record Data : Storage_Array (1 .. Max_Size_In_Storage_Elements);