[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

gcc/ada/ChangeLog

+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.

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