FreeChainXenon/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

[Ada] Bounded_Holders: fix a typo

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

gcc/ada/

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

From-SVN: r264970
This commit is contained in:
Arnaud Charlet 2018-10-09 15:05:44 +00:00 • committed by Pierre-Marie de Rodat
parent ead467895d
commit da5f6eb46b
2 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
gcc/ada/ChangeLog
View file

@ -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

2
gcc/ada/libgnat/a-coboho.ads
View file

@ -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);