diff options
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 |