From: Vadim Godunko <godunko@adacore.com>
Date: Wed, 15 Feb 2023 08:22:27 +0000 (+0400)
Subject: ada: Remove unnecessary call to Detach.
X-Git-Tag: basepoints/gcc-15~9030
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=9826f1e019f6abc5f4960dcfd8f7fcf83dc820dc;p=thirdparty%2Fgcc.git

ada: Remove unnecessary call to Detach.

Holder object is constant and protected from modification by tampering
rules.

gcc/ada/

	* libgnat/a-coinho__shared.adb (Constant_Reference): Remove call
	of Detach
	(Query_Element): Likewise.
---

diff --git a/gcc/ada/libgnat/a-coinho__shared.adb b/gcc/ada/libgnat/a-coinho__shared.adb
index 367089048afb..f49ac4ad8176 100644
--- a/gcc/ada/libgnat/a-coinho__shared.adb
+++ b/gcc/ada/libgnat/a-coinho__shared.adb
@@ -149,8 +149,6 @@ package body Ada.Containers.Indefinite_Holders is
          raise Constraint_Error with "container is empty";
       end if;
 
-      Detach (Container);
-
       declare
          Ref : constant Constant_Reference_Type :=
                  (Element => Container.Reference.Element.all'Access,
@@ -305,8 +303,6 @@ package body Ada.Containers.Indefinite_Holders is
          raise Constraint_Error with "container is empty";
       end if;
 
-      Detach (Container);
-
       B := B + 1;
 
       begin