diff options
| author | Emmanuel Briot <briot@adacore.com> | 2008-04-08 08:58:02 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-04-08 08:58:02 +0200 |
| commit | 77e51042833db99163b90918effbe6daa546258b (patch) | |
| tree | da9dd7463bdc192a2130117d61ff57fc5d02ccc7 /gcc/ada/g-comlin.adb | |
| parent | 7dbc8918c6557300367851abe89be81b7c2a04b4 (diff) | |
| download | gcc-77e51042833db99163b90918effbe6daa546258b.zip gcc-77e51042833db99163b90918effbe6daa546258b.tar.gz gcc-77e51042833db99163b90918effbe6daa546258b.tar.bz2 | |
g-comlin.ads, [...] (Expansion): Remove unreachable return statement.
2008-04-08 Emmanuel Briot <briot@adacore.com>
* g-comlin.ads, g-comlin.adb (Expansion): Remove unreachable return
statement.
(Get_Configuration): New subprogram.
* prj-pp.ads, prj-pp.adb (Pretty_Print): new parameters Id and Id_Tree
These optional parameters help preserve the casing of the project's name
when pretty-printing.
From-SVN: r134065
Diffstat (limited to 'gcc/ada/g-comlin.adb')
| -rw-r--r-- | gcc/ada/g-comlin.adb | 18 |
1 files changed, 13 insertions, 5 deletions
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index e90af87..c9cb4db 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1999-2007, Free Software Foundation, Inc. -- +-- Copyright (C) 1999-2008, 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- -- @@ -264,8 +264,6 @@ package body GNAT.Command_Line is end; end if; end loop; - - return String'(1 .. 0 => ' '); end Expansion; ----------------- @@ -1110,13 +1108,23 @@ package body GNAT.Command_Line is ----------------------- procedure Set_Configuration - (Cmd : in out Command_Line; - Config : Command_Line_Configuration) + (Cmd : in out Command_Line; + Config : Command_Line_Configuration) is begin Cmd.Config := Config; end Set_Configuration; + ----------------------- + -- Get_Configuration -- + ----------------------- + + function Get_Configuration + (Cmd : Command_Line) return Command_Line_Configuration is + begin + return Cmd.Config; + end Get_Configuration; + ---------------------- -- Set_Command_Line -- ---------------------- |