diff options
| author | Arnaud Charlet <charlet@adacore.com> | 2018-10-09 15:05:44 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2018-10-09 15:05:44 +0000 |
| commit | da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d (patch) | |
| tree | ec2f0327ae18289a612ae100c25b97621023f19e | |
| parent | ead467895da700cb029103ba3dda1089dbf77b1f (diff) | |
| download | gcc-da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d.zip gcc-da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d.tar.gz gcc-da5f6eb46bcd67d6d3e15c0f43205f70e0d91c2d.tar.bz2 | |
[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
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-coboho.ads | 2 |
2 files changed, 5 insertions, 1 deletions
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); |