diff options
| author | Ed Schonberg <schonberg@adacore.com> | 2014-07-16 13:49:23 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2014-07-16 15:49:23 +0200 |
| commit | 88c90b68a0e2ee32ca0613e6d5375e13761266fd (patch) | |
| tree | 80123cad6076ee3adbfd1de4faeb705690b17656 | |
| parent | f41373b65d93a3bda47a4d8cb5825e3c7e433714 (diff) | |
| download | gcc-88c90b68a0e2ee32ca0613e6d5375e13761266fd.zip gcc-88c90b68a0e2ee32ca0613e6d5375e13761266fd.tar.gz gcc-88c90b68a0e2ee32ca0613e6d5375e13761266fd.tar.bz2 | |
a-coinho-shared.adb: Fix spurious accessibility check.
2014-07-16 Ed Schonberg <schonberg@adacore.com>
* a-coinho-shared.adb: Fix spurious accessibility check.
From-SVN: r212641
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rw-r--r-- | gcc/ada/a-coinho-shared.adb | 4 |
2 files changed, 6 insertions, 2 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ce76207..eebff9e 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2014-07-16 Ed Schonberg <schonberg@adacore.com> + + * a-coinho-shared.adb: Fix spurious accessibility check. + 2014-06-15 Jan Hubicka <hubicka@ucw.cz> * gcc-interface/utils.c (process_attributes): Use set_decl_tls_model. diff --git a/gcc/ada/a-coinho-shared.adb b/gcc/ada/a-coinho-shared.adb index 222c2f1..4bcfb71 100644 --- a/gcc/ada/a-coinho-shared.adb +++ b/gcc/ada/a-coinho-shared.adb @@ -114,7 +114,7 @@ package body Ada.Containers.Indefinite_Holders is (Container : aliased Holder) return Constant_Reference_Type is Ref : constant Constant_Reference_Type := - (Element => Container.Reference.Element, + (Element => Container.Reference.Element.all'Access, Control => (Controlled with Container.Reference)); begin Reference (Ref.Control.Container); @@ -283,7 +283,7 @@ package body Ada.Containers.Indefinite_Holders is (Container : aliased in out Holder) return Reference_Type is Ref : constant Reference_Type := - (Element => Container.Reference.Element, + (Element => Container.Reference.Element.all'Access, Control => (Controlled with Container.Reference)); begin Reference (Ref.Control.Container); |