From: Arnaud Charlet <charlet@adacore.com>
Date: Tue, 9 Oct 2018 15:05:44 +0000 (+0000)
Subject: [Ada] Bounded_Holders: fix a typo
X-Git-Tag: upstream/12.2.0~28824
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d;p=platform%2Fupstream%2Fgcc.git

[Ada] Bounded_Holders: fix a typo

2018-10-09  Arnaud Charlet  <charlet@adacore.com>

gcc/ada/

	* libgnat/a-coboho.ads (Storage_Element): Fix a typo.

From-SVN: r264970
---

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 518fd0e..41402f6 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2018-10-09  Arnaud Charlet  <charlet@adacore.com>
+
+	* libgnat/a-coboho.ads (Storage_Element): Fix a typo.
+
 2018-10-09  Claire Dross  <dross@adacore.com>
 
 	* 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 82cd36a..1e812e1 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);