No functional change. Tested on x86_64-pc-linux-gnu, committed on trunk
2012-06-14 Tristan Gingold <ging...@adacore.com> * gnatname.adb (Gnatname): Make sure that dynamic table argument_data is initialized.
Index: gnatname.adb =================================================================== --- gnatname.adb (revision 188605) +++ gnatname.adb (working copy) @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2011, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2012, Free Software Foundation, Inc. -- -- -- -- 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- -- @@ -575,7 +575,15 @@ -- Initialize tables Arguments.Set_Last (0); - Arguments.Increment_Last; + declare + New_Arguments : Argument_Data; + pragma Warnings (Off, New_Arguments); + -- Declaring this defaulted initialized object ensures + -- that the new allocated component of table Arguments + -- is correctly initialized. + begin + Arguments.Append (New_Arguments); + end; Patterns.Init (Arguments.Table (1).Directories); Patterns.Set_Last (Arguments.Table (1).Directories, 0); Patterns.Init (Arguments.Table (1).Name_Patterns);