diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 10:25:13 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2009-04-09 10:25:13 +0200 |
| commit | 3c25856afeb80abfd75bdefaf77277f477cba7f3 (patch) | |
| tree | 0184736850e3694ca19a6ab3d02c504f5596cdca /gcc/ada/a-cohama.ads | |
| parent | 76c597a1fc1b674e2afaaa483b925f3637eb0d48 (diff) | |
| download | gcc-3c25856afeb80abfd75bdefaf77277f477cba7f3.zip gcc-3c25856afeb80abfd75bdefaf77277f477cba7f3.tar.gz gcc-3c25856afeb80abfd75bdefaf77277f477cba7f3.tar.bz2 | |
[multiple changes]
2009-04-09 Pascal Obry <obry@adacore.com>
* a-cihama.adb, a-cihama.ads, a-coinve.adb, a-coorma.ads, a-cihase.adb,
a-cihase.ads, a-cohama.adb, a-cohama.ads, a-coorse.adb, a-coorse.ads,
a-coormu.adb, a-coormu.ads, a-cohase.adb, a-cohase.ads: Minor
reformatting.
2009-04-09 Ed Schonberg <schonberg@adacore.com>
* sem_ch6.adb (Check_Overriding_Indicator): Do not generate warning on
missing overriding indicator if the new declaration is not seen as
primitive.
From-SVN: r145804
Diffstat (limited to 'gcc/ada/a-cohama.ads')
| -rw-r--r-- | gcc/ada/a-cohama.ads | 14 |
1 files changed, 6 insertions, 8 deletions
diff --git a/gcc/ada/a-cohama.ads b/gcc/ada/a-cohama.ads index 28efde4..d850f01 100644 --- a/gcc/ada/a-cohama.ads +++ b/gcc/ada/a-cohama.ads @@ -281,9 +281,8 @@ private Next : Node_Access; end record; - package HT_Types is new Hash_Tables.Generic_Hash_Table_Types - (Node_Type, - Node_Access); + package HT_Types is + new Hash_Tables.Generic_Hash_Table_Types (Node_Type, Node_Access); type Map is new Ada.Finalization.Controlled with record HT : HT_Types.Hash_Table_Type; @@ -315,11 +314,10 @@ private type Map_Access is access constant Map; for Map_Access'Storage_Size use 0; - type Cursor is - record - Container : Map_Access; - Node : Node_Access; - end record; + type Cursor is record + Container : Map_Access; + Node : Node_Access; + end record; procedure Read (Stream : not null access Root_Stream_Type'Class; |