From da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Tue, 9 Oct 2018 15:05:44 +0000 Subject: [PATCH] [Ada] Bounded_Holders: fix a typo 2018-10-09 Arnaud Charlet gcc/ada/ * libgnat/a-coboho.ads (Storage_Element): Fix a typo. From-SVN: r264970 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/libgnat/a-coboho.ads | 2 +- 2 files changed, 5 insertions(+), 1 deletion(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 518fd0e3ece..41402f68b98 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 82cd36ae395..1e812e1dd0b 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); -- 2.30.2