Skip to content

R
riscv-gcc-1
Commit 5efa4d68 by Pascal Obry Committed by Arnaud Charlet
Options

a-coinve.adb: Reorder the code to avoid uninitialized warning. 

2008-08-05  Pascal Obry  <obry@adacore.com>

	* a-coinve.adb: Reorder the code to avoid uninitialized warning.

From-SVN: r138701
parent 78d0a2ec
Showing with 2 additions and 3 deletions
gcc/ada/a-coinve.adb
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
-- -- -- --
-- B o d y -- -- B o d y --
-- -- -- --
-- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- -- Copyright (C) 2004-2008, Free Software Foundation, Inc. --
-- -- -- --
-- GNAT is free software; you can redistribute it and/or modify it under -- -- GNAT is free software; you can redistribute it and/or modify it under --
-- terms of the GNU General Public License as published by the Free Soft- -- -- terms of the GNU General Public License as published by the Free Soft- --
...@@ -1124,13 +1124,12 @@ package body Ada.Containers.Indefinite_Vectors is ...@@ -1124,13 +1124,12 @@ package body Ada.Containers.Indefinite_Vectors is
Index : constant Index_Type := Index_Type (Index_As_Int); Index : constant Index_Type := Index_Type (Index_As_Int);
J : Index_Type'Base; J : Index_Type'Base := Before;
begin begin
E (Index .. New_Last) := E (Before .. Container.Last); E (Index .. New_Last) := E (Before .. Container.Last);
Container.Last := New_Last; Container.Last := New_Last;
J := Before;
while J < Index loop while J < Index loop
E (J) := new Element_Type'(New_Item); E (J) := new Element_Type'(New_Item);
J := J + 1; J := J + 1;
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment