diff options
| author | Robert Dewar <dewar@adacore.com> | 2008-08-04 12:23:25 +0200 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2008-08-04 12:23:25 +0200 |
| commit | b59283f28dd9310e222d2b37e4092abcde1688d5 (patch) | |
| tree | 57cada385896c946309ec4223a1c15a0c7640bcb | |
| parent | 05a76b51fb58e10f74e5f4fe613dc5b40fae44d8 (diff) | |
| download | gcc-b59283f28dd9310e222d2b37e4092abcde1688d5.zip gcc-b59283f28dd9310e222d2b37e4092abcde1688d5.tar.gz gcc-b59283f28dd9310e222d2b37e4092abcde1688d5.tar.bz2 | |
g-comlin.adb: Minor reformatting
2008-08-04 Robert Dewar <dewar@adacore.com>
* g-comlin.adb: Minor reformatting
From-SVN: r138604
| -rw-r--r-- | gcc/ada/g-comlin.adb | 16 |
1 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 195e630..32460c05 100644 --- a/gcc/ada/g-comlin.adb +++ b/gcc/ada/g-comlin.adb @@ -33,6 +33,7 @@ with Ada.Unchecked_Deallocation; with Ada.Strings.Unbounded; + with GNAT.OS_Lib; use GNAT.OS_Lib; package body GNAT.Command_Line is @@ -1468,10 +1469,12 @@ package body GNAT.Command_Line is and then Looking_At (Result (C).all, Result (C)'First, Cmd.Config.Prefixes (P).all) then - Group := Group & - Result (C) - (Result (C)'First + Cmd.Config.Prefixes (P)'Length .. + Group := + Group & + Result (C) + (Result (C)'First + Cmd.Config.Prefixes (P)'Length .. Result (C)'Last); + if First = 0 then First := C; end if; @@ -1481,9 +1484,10 @@ package body GNAT.Command_Line is end loop; if First > 0 then - Result (First) := new String' - (Cmd.Config.Prefixes (P).all & - Ada.Strings.Unbounded.To_String (Group)); + Result (First) := + new String' + (Cmd.Config.Prefixes (P).all & + Ada.Strings.Unbounded.To_String (Group)); end if; end loop; end Group_Switches; |