From 987c5cecd034d57ef50e2e93266acd15e693f3e7 Mon Sep 17 00:00:00 2001 From: Vincent Celier Date: Thu, 13 Dec 2007 11:23:55 +0100 Subject: [PATCH] errout.adb (Output_Source_Line): Do not keep a trailing space after the source line number if... 2007-12-06 Vincent Celier * 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 --- gcc/ada/errout.adb | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) 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; -- 2.47.2