From: Ed Schonberg Date: Wed, 16 Jul 2014 13:49:23 +0000 (+0000) Subject: a-coinho-shared.adb: Fix spurious accessibility check. X-Git-Tag: releases/gcc-5.1.0~6319 X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=88c90b68a0e2ee32ca0613e6d5375e13761266fd;p=thirdparty%2Fgcc.git a-coinho-shared.adb: Fix spurious accessibility check. 2014-07-16 Ed Schonberg * a-coinho-shared.adb: Fix spurious accessibility check. From-SVN: r212641 --- diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index ce7620770913..eebff9e128b0 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2014-07-16 Ed Schonberg + + * a-coinho-shared.adb: Fix spurious accessibility check. + 2014-06-15 Jan Hubicka * 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 222c2f142050..4bcfb71518d7 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);