[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 518fd0e3eceb29c083c5fb9574a1235d23dc508d..41402f68b98a1cee412bf5bcd457791c5602e7eb 100644 (file)
--- 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 82cd36ae39589fcb5cd85f55e1289bac98a42a24..1e812e1dd0b7308d18d24f4f5ca11479df647a27 100644 (file)
--- 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);