diff options
| author | Piotr Trojanek <trojanek@adacore.com> | 2021-11-08 14:19:39 +0100 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-12-01 10:24:40 +0000 |
| commit | a41a9107459625a800cb424805a22991b3e038a4 (patch) | |
| tree | b531a8da3a06cca5a104465def721b3e7923e58c /gcc/ada/libgnat | |
| parent | ef520c0baf7d234db02d7d67b2b5e8eaec0e3986 (diff) | |
| download | gcc-a41a9107459625a800cb424805a22991b3e038a4.zip gcc-a41a9107459625a800cb424805a22991b3e038a4.tar.gz gcc-a41a9107459625a800cb424805a22991b3e038a4.tar.bz2 | |
[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.
Diffstat (limited to 'gcc/ada/libgnat')
| -rw-r--r-- | gcc/ada/libgnat/a-coinho.ads | 3 | ||||
| -rw-r--r-- | gcc/ada/libgnat/a-coinho__shared.ads | 2 |
2 files changed, 3 insertions, 2 deletions
diff --git a/gcc/ada/libgnat/a-coinho.ads b/gcc/ada/libgnat/a-coinho.ads index b648836..d09f7cf 100644 --- 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 97f796d..27a0ca8 100644 --- 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 |