[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.

diff --git a/gcc/ada/libgnat/a-coinho.ads b/gcc/ada/libgnat/a-coinho.ads
index b64883681486489b54876cecffb3b38da267396f..d09f7cf7d6efb2c0bc5dfd9f9a1eba64e8b84552 100644 (file)
--- a/gcc/ada/libgnat/a-coinho.ads
+++ b/gcc/ada/libgnat/a-coinho.ads
@@ -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;
 

diff --git a/gcc/ada/libgnat/a-coinho__shared.ads b/gcc/ada/libgnat/a-coinho__shared.ads
index 97f796dcfd5c435951b40d167c5da151561534d4..27a0ca8fd1ebc221084aeb604b28fa8489a29491 100644 (file)
--- a/gcc/ada/libgnat/a-coinho__shared.ads
+++ b/gcc/ada/libgnat/a-coinho__shared.ads
@@ -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