* gcc-interface/Makefile.in (INCLUDES_FOR_SUBDIR): Add $(fsrcdir) by

[pf3gnuchains/gcc-fork.git] / gcc / ada / a-stzfix.adb

diff --git a/gcc/ada/a-stzfix.adb b/gcc/ada/a-stzfix.adb
index 67f5482..67c2fe5 100644 (file)
--- a/gcc/ada/a-stzfix.adb
+++ b/gcc/ada/a-stzfix.adb
@@ -460,8 +460,8 @@ package body Ada.Strings.Wide_Wide_Fixed is
                           Integer'Max (0, Low - Source'First);
             --  Length of prefix of Source copied to result
 
-            Back_Len  : constant Integer :=
-                          Integer'Max (0, Source'Last - High);
+            Back_Len : constant Integer :=
+                         Integer'Max (0, Source'Last - High);
             --  Length of suffix of Source copied to result
 
             Result_Length : constant Integer :=
@@ -471,13 +471,10 @@ package body Ada.Strings.Wide_Wide_Fixed is
             Result : Wide_Wide_String (1 .. Result_Length);
 
          begin
-            Result (1 .. Front_Len) :=
-              Source (Source'First .. Low - 1);
-            Result (Front_Len + 1 .. Front_Len + By'Length) :=
-              By;
+            Result (1 .. Front_Len) := Source (Source'First .. Low - 1);
+            Result (Front_Len + 1 .. Front_Len + By'Length) := By;
             Result (Front_Len + By'Length + 1 .. Result'Length) :=
               Source (High + 1 .. Source'Last);
-
             return Result;
          end;