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

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 256c24c1cc4d37280ee1a06355c17119c24ce1df..129b89d40fc92702f7deefd4e56b2f3bc97f6b06 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+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

diff --git a/gcc/ada/a-suewen.adb b/gcc/ada/a-suewen.adb
index 3cbebc83d3a8300ff7569b210335ae24b138d2d4..92b04fd88a83717c14a23c61474df5c408a4daff 100755 (executable)
--- a/gcc/ada/a-suewen.adb
+++ b/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;

diff --git a/gcc/ada/a-suezen.adb b/gcc/ada/a-suezen.adb
index 972fbf061e8b4b8f84c0f22f97b14c76a03a8050..b917e9e7d827b08a82e7c5ace198d6cf6c0d9484 100755 (executable)
--- a/gcc/ada/a-suezen.adb
+++ b/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.
 

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index e307ce7e44d83e8c7c14f6c99ac1ba14cc0abc27..26cfc6fbeb1ebbf936e69f1c9949d13eaa9a721f 100644 (file)
--- a/gcc/ada/errout.adb
+++ b/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