diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 16:19:10 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-06-18 16:19:10 +0200 |
| commit | 9c8ff9b97dcd074b15fed2adad2c9a30080757da (patch) | |
| tree | ebf78562e855ed4fd01b50f96a28fc35649d7cdb /gcc/ada/gnatname.adb | |
| parent | afb2d209040ffd4e61996f4e080cc5a5146ba437 (diff) | |
| download | gcc-9c8ff9b97dcd074b15fed2adad2c9a30080757da.zip gcc-9c8ff9b97dcd074b15fed2adad2c9a30080757da.tar.gz gcc-9c8ff9b97dcd074b15fed2adad2c9a30080757da.tar.bz2 | |
[multiple changes]
2010-06-18 Vincent Celier <celier@adacore.com>
* gnatname.adb (Scan_Args): When --and is used, make sure that the
dynamic tables in the newly allocated Argument_Data are properly
initialized.
2010-06-18 Eric Botcazou <ebotcazou@adacore.com>
* gnat1drv.adb: Fix comment.
2010-06-18 Ed Schonberg <schonberg@adacore.com>
* exp_ch6.adb (Expand_Inlined_Call): If the inlined subprogram is a
renaming, re-expand the call with the renamed subprogram if that one
is marked inlined as well.
From-SVN: r160995
Diffstat (limited to 'gcc/ada/gnatname.adb')
| -rw-r--r-- | gcc/ada/gnatname.adb | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/gcc/ada/gnatname.adb b/gcc/ada/gnatname.adb index 4c935be..8078759 100644 --- a/gcc/ada/gnatname.adb +++ b/gcc/ada/gnatname.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2001-2009, Free Software Foundation, Inc. -- +-- Copyright (C) 2001-2010, 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- -- @@ -306,7 +306,16 @@ procedure Gnatname is -- Add and initialize another component to Arguments table - Arguments.Increment_Last; + declare + New_Arguments : Argument_Data; + pragma Warnings (Off, New_Arguments); + -- Declaring this defaulted itialized object ensures that + -- the new allocated component of table Arguments is + -- correctly initialized. + + begin + Arguments.Append (New_Arguments); + end; Patterns.Init (Arguments.Table (Arguments.Last).Directories); |