From: Robert Dewar <dewar@adacore.com>
Date: Mon, 4 Aug 2008 10:23:25 +0000 (+0200)
Subject: g-comlin.adb: Minor reformatting
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b59283f28dd9310e222d2b37e4092abcde1688d5;p=platform%2Fupstream%2Fgcc.git

g-comlin.adb: Minor reformatting

2008-08-04  Robert Dewar  <dewar@adacore.com>

	* g-comlin.adb: Minor reformatting

From-SVN: r138604
---

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;