OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

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

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

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

From-SVN: r162903
This commit is contained in:
Robert Dewar 2010-08-05 08:59:22 +00:00 committed by Arnaud Charlet
parent 70b3b95343
commit b94e425dc2
4 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/ChangeLog
View File

@ -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

7
gcc/ada/a-suewen.adb
View File

@ -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;

4
gcc/ada/a-suezen.adb
View File

@ -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.

1
gcc/ada/errout.adb
View File

@ -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