[Ada] Sync whitespace between variants of Indefinite_Holders unit
gcc/ada/ * libgnat/a-coinho.ads: Sync whitespace with a-coinho__shared.ads. * libgnat/a-coinho__shared.ads: Sync whitespace with a-coinho.ads.
This commit is contained in:
parent
ef520c0baf
commit
a41a910745
2 changed files with 3 additions and 2 deletions
|
@ -127,8 +127,7 @@ private
|
|||
overriding procedure Adjust (Container : in out Holder);
|
||||
overriding procedure Finalize (Container : in out Holder);
|
||||
|
||||
type Reference_Control_Type is new Controlled with
|
||||
record
|
||||
type Reference_Control_Type is new Controlled with record
|
||||
Container : Holder_Access;
|
||||
end record;
|
||||
|
||||
|
|
|
@ -69,6 +69,7 @@ package Ada.Containers.Indefinite_Holders is
|
|||
procedure Query_Element
|
||||
(Container : Holder;
|
||||
Process : not null access procedure (Element : Element_Type));
|
||||
|
||||
procedure Update_Element
|
||||
(Container : in out Holder;
|
||||
Process : not null access procedure (Element : in out Element_Type));
|
||||
|
@ -105,6 +106,7 @@ private
|
|||
use Ada.Streams;
|
||||
|
||||
type Element_Access is access all Element_Type;
|
||||
|
||||
type Holder_Access is access all Holder;
|
||||
|
||||
type Shared_Holder is record
|
||||
|
|
Loading…
Add table
Reference in a new issue