From 9c8ff9b97dcd074b15fed2adad2c9a30080757da Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Fri, 18 Jun 2010 16:19:10 +0200 Subject: [multiple changes] 2010-06-18 Vincent Celier * 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 * gnat1drv.adb: Fix comment. 2010-06-18 Ed Schonberg * 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 --- gcc/ada/gnatname.adb | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) (limited to 'gcc/ada/gnatname.adb') 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); -- cgit v1.1