[Ada] Minor cleanup implementation of Ada.Containers.Vectors

2018-05-28  Bob Duff  <duff@adacore.com>

gcc/ada/

	* libgnat/a-convec.adb (Query_Element): Minor cleanup: remove an
	unnecessary use of 'Unrestricted_Access.

From-SVN: r260826

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 7a0a60dfb56140e63e051c0dcd91b1015fd4ebcf..8c1331d552453484a4e90d2c88a052c7fa616c4e 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,8 @@
+2018-05-28  Bob Duff  <duff@adacore.com>
+
+       * libgnat/a-convec.adb (Query_Element): Minor cleanup: remove an
+       unnecessary use of 'Unrestricted_Access.
+
 2018-05-28  Hristian Kirtchev  <kirtchev@adacore.com>
 
        * repinfo.adb (Expr_Value_S): New routine.

diff --git a/gcc/ada/libgnat/a-convec.adb b/gcc/ada/libgnat/a-convec.adb
index b098860ba70e9facdbaf5e56b5473f6891e12211..ce784dfb2284365dff4a8ac4ba99345d1a6dbd57 100644 (file)
--- a/gcc/ada/libgnat/a-convec.adb
+++ b/gcc/ada/libgnat/a-convec.adb
@@ -2307,14 +2307,12 @@ package body Ada.Containers.Vectors is
       Process   : not null access procedure (Element : Element_Type))
    is
       Lock : With_Lock (Container.TC'Unrestricted_Access);
-      V : Vector renames Container'Unrestricted_Access.all;
-
    begin
       if Checks and then Index > Container.Last then
          raise Constraint_Error with "Index is out of range";
       end if;
 
-      Process (V.Elements.EA (Index));
+      Process (Container.Elements.EA (Index));
    end Query_Element;
 
    procedure Query_Element