errout.adb, [...]: Minor reformatting.

2010-08-05  Robert Dewar  <dewar@adacore.com>

	* errout.adb, a-suewen.adb, a-suezen.adb: Minor reformatting.

From-SVN: r162903

gcc/ada/ChangeLog

+2010-08-05  Robert Dewar  <dewar@adacore.com>
+
+	* errout.adb, a-suewen.adb, a-suezen.adb: Minor reformatting.
+
 2010-08-05  Gary Dismukes  <dismukes@adacore.com>
 
 	* sem_ch4.adb (Analyze_Allocator): Flag errors on allocators of a

gcc/ada/a-suewen.adb

@@ -38,7 +38,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Encoding is
    -- Decode --
    ------------
 
-   --  Version to decode UTF-8/UTF-16BE/UTF-16LE input to Wide_String
+   --  Decode UTF-8/UTF-16BE/UTF-16LE input to Wide_String
 
    function Decode
      (Item         : UTF_String;
@@ -324,7 +324,8 @@ package body Ada.Strings.UTF_Encoding.Wide_Encoding is
      (Item       : Wide_String;
       Output_BOM : Boolean  := False) return UTF_16_Wide_String
    is
-      Result : Wide_String (1 .. Item'Length + Boolean'Pos (Output_BOM));
+      Result : UTF_16_Wide_String
+                 (1 .. Item'Length + Boolean'Pos (Output_BOM));
       --  Output is same length as input + possible BOM
 
       Len : Integer;
@@ -348,7 +349,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Encoding is
          C := To_Unsigned_16 (Item (Iptr));
 
          --  Codes in the range 16#0000#..16#D7FF# or 16#E000#..16#FFFD# are
-         --  output unchaned.
+         --  output unchanged.
 
          if C <= 16#D7FF# or else C in 16#E000# .. 16#FFFD# then
             Len := Len + 1;

gcc/ada/a-suezen.adb

@@ -38,7 +38,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Wide_Encoding is
    -- Decode --
    ------------
 
-   --  Version to decode UTF-8/UTF-16BE/UTF-16LE input to Wide_Wide_String
+   --  Decode UTF-8/UTF-16BE/UTF-16LE input to Wide_Wide_String
 
    function Decode
      (Item         : UTF_String;
@@ -369,7 +369,7 @@ package body Ada.Strings.UTF_Encoding.Wide_Wide_Encoding is
      (Item       : Wide_Wide_String;
       Output_BOM : Boolean  := False) return UTF_16_Wide_String
    is
-      Result : Wide_String (1 .. 2 * Item'Length + 1);
+      Result : UTF_16_Wide_String (1 .. 2 * Item'Length + 1);
       --  Worst case is each input character generates two output characters
       --  plus one for possible BOM.
 

gcc/ada/errout.adb

@@ -426,7 +426,6 @@ package body Errout is
 
          Error_Msg_Sloc := Flag_Location;
          X := Get_Source_File_Index (Flag_Location);
-
          while Instantiation (X) /= No_Location loop
 
             --  Suppress instantiation message on continuation lines