diff options
| author | Robert Dewar <dewar@adacore.com> | 2010-08-05 08:59:22 +0000 |
|---|---|---|
| committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2010-08-05 10:59:22 +0200 |
| commit | b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e (patch) | |
| tree | 34f20753db11d8d1ea59b85654bf7e1594845d0a | |
| parent | 70b3b953437e97d10bd71bd2f3191f6e326aabba (diff) | |
| download | gcc-b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e.zip gcc-b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e.tar.gz gcc-b94e425dc2a3a7ae3c9f9c9c9799cdef9c45b12e.tar.bz2 | |
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
| -rw-r--r-- | gcc/ada/ChangeLog | 4 | ||||
| -rwxr-xr-x | gcc/ada/a-suewen.adb | 7 | ||||
| -rwxr-xr-x | gcc/ada/a-suezen.adb | 4 | ||||
| -rw-r--r-- | gcc/ada/errout.adb | 1 |
4 files changed, 10 insertions, 6 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog index 256c24c..129b89d 100644 --- 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 3cbebc8..92b04fd 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 972fbf0..b917e9e 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 e307ce7..26cfc6f 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 |