From: Vincent Celier <celier@adacore.com>
Date: Thu, 13 Dec 2007 10:23:55 +0000 (+0100)
Subject: errout.adb (Output_Source_Line): Do not keep a trailing space after the source line... 
X-Git-Tag: releases/gcc-4.3.0~1070
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=987c5cecd034d57ef50e2e93266acd15e693f3e7;p=thirdparty%2Fgcc.git

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

diff --git a/gcc/ada/errout.adb b/gcc/ada/errout.adb
index ac61cf9e5098..adf64355f91d 100644
--- a/gcc/ada/errout.adb
+++ b/gcc/ada/errout.adb
@@ -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,7 +1881,11 @@ package body Errout is
       --  training spaces preserved (so we output the line exactly as input).
 
       if Line_Number_Output then
-         Write_Eol_Keep_Blanks;
+         if Empty_Line then
+            Write_Eol;
+         else
+            Write_Eol_Keep_Blanks;
+         end if;
       end if;
    end Output_Source_Line;