diff options
| author | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-20 12:55:27 +0100 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2004-02-20 12:55:27 +0100 |
| commit | 6e059adb240df3f9918401dbacca61c283e618ed (patch) | |
| tree | 090dd01dc14b79f968d8f244e3b4dc22b2c55e6b /gcc/ada/gprcmd.adb | |
| parent | d80d3d962235927d1c27c624852f54f80db7bccf (diff) | |
| download | gcc-6e059adb240df3f9918401dbacca61c283e618ed.zip gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.gz gcc-6e059adb240df3f9918401dbacca61c283e618ed.tar.bz2 | |
[multiple changes]
2004-02-20 Robert Dewar <dewar@gnat.com>
* bld.adb, exp_util.adb, gprcmd.adb: Minor reformatting
2004-02-20 Ed Schonberg <schonberg@gnat.com>
* freeze.adb (Freeze_Record_Type): Generalize mechanism that generates
itype references for the constrained designated type of a component
whose base type is already frozen.
2004-02-20 Arnaud Charlet <charlet@act-europe.fr>
* init.c (__gnat_error_handler [tru64]): Rewrite previous change to
avoid GCC warnings.
2004-02-20 Sergey Rybin <rybin@act-europe.fr>
* sem_ch12.adb (Analyze_Formal_Package): Create a new defining
identifier for a phantom package that rewrites the formal package
declaration with a box. The Add semantic decorations for the defining
identifier from the original node (that represents the formal package).
From-SVN: r78164
Diffstat (limited to 'gcc/ada/gprcmd.adb')
| -rw-r--r-- | gcc/ada/gprcmd.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/gprcmd.adb b/gcc/ada/gprcmd.adb index 9c4dea3..b6658e1 100644 --- a/gcc/ada/gprcmd.adb +++ b/gcc/ada/gprcmd.adb @@ -454,19 +454,20 @@ begin Dir : constant String := Argument (2); begin - for J in 3 .. Argument_Count loop - - -- Remove quotes that may have been added around each argument + -- Loop to remove quotes that may have been added around arguments + for J in 3 .. Argument_Count loop declare Arg : constant String := Argument (J); First : Natural := Arg'First; Last : Natural := Arg'Last; + begin if Arg (First) = '"' and then Arg (Last) = '"' then First := First + 1; Last := Last - 1; end if; + if Is_Absolute_Path (Arg (First .. Last)) then Extend (Format_Pathname (Arg (First .. Last), UNIX)); else |