From b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e Mon Sep 17 00:00:00 2001 From: Robert Dewar Date: Thu, 5 Aug 2010 08:59:22 +0000 Subject: [PATCH] errout.adb, [...]: Minor reformatting. 2010-08-05 Robert Dewar * errout.adb, a-suewen.adb, a-suezen.adb: Minor reformatting. From-SVN: r162903 --- gcc/ada/ChangeLog | 4 ++++ gcc/ada/a-suewen.adb | 7 ++++--- gcc/ada/a-suezen.adb | 4 ++-- gcc/ada/errout.adb | 1 - 4 files changed, 10 insertions(+), 6 deletions(-) diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 256c24c1cc4..129b89d40fc 100644 --- a/gcc/ada/ChangeLog +++ b/gcc/ada/ChangeLog @@ -1,3 +1,7 @@ +2010-08-05 Robert Dewar + + * errout.adb, a-suewen.adb, a-suezen.adb: Minor reformatting. + 2010-08-05 Gary Dismukes * 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 3cbebc83d3a..92b04fd88a8 100755 --- 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 972fbf061e8..b917e9e7d82 100755 --- 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 e307ce7e44d..26cfc6fbeb1 100644 --- 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 -- 2.30.2