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

errout.adb (Output_Source_Line): Do not keep a trailing space after the source line number if... 

2007-12-06  Vincent Celier  <celier@adacore.com>

	* errout.adb (Output_Source_Line): Do not keep a trailing space after
	the source line number if the source line is empty.

From-SVN: r130826
This commit is contained in:
Vincent Celier 2007-12-13 11:23:55 +01:00 committed by Arnaud Charlet
parent ce0bead308
commit 987c5cecd0
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
gcc/ada/errout.adb
View File

@ -1783,6 +1783,9 @@ package body Errout is
Line_Number_Output : Boolean := False;
-- Set True once line number is output
Empty_Line : Boolean := True;
-- Set False if line includes at least one character
begin
if Sfile /= Current_Error_Source_File then
Write_Str ("==============Error messages for ");
@ -1870,6 +1873,7 @@ package body Errout is
end if;
end if;
Empty_Line := False;
S := S + 1;
end loop;
@ -1877,8 +1881,12 @@ package body Errout is
-- training spaces preserved (so we output the line exactly as input).
if Line_Number_Output then
if Empty_Line then
Write_Eol;
else
Write_Eol_Keep_Blanks;
end if;
end if;
end Output_Source_Line;
-----------------------------