From b59283f28dd9310e222d2b37e4092abcde1688d5 Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Mon, 4 Aug 2008 12:23:25 +0200 Subject: [PATCH] g-comlin.adb: Minor reformatting 2008-08-04 Robert Dewar * g-comlin.adb: Minor reformatting From-SVN: r138604 --- gcc/ada/g-comlin.adb | 16 ++++++++++------ 1 file changed, 10 insertions(+), 6 deletions(-) diff --git a/gcc/ada/g-comlin.adb b/gcc/ada/g-comlin.adb index 195e630..32460c0 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; -- 2.7.4