[Ada] Simplify iteration when printing error message spans

gcc/ada/

	* errout.adb (Write_Source_Code_Lines): Use Cur_Loc before
	incrementing it, so that we don't need to decrement it.
This commit is contained in:
Piotr Trojanek 2021-07-01 15:40:00 +02:00 committed by Pierre-Marie de Rodat
parent ea3789f6a2
commit 255279b91e

View File

@ -2693,9 +2693,7 @@ package body Errout is
Write_Buffer_Char (Buf, Cur_Loc);
end if;
Cur_Loc := Cur_Loc + 1;
if Buf (Cur_Loc - 1) = ASCII.LF then
if Buf (Cur_Loc) = ASCII.LF then
Cur_Line := Cur_Line + 1;
-- Output ... for skipped lines
@ -2720,6 +2718,8 @@ package body Errout is
Width);
end if;
end if;
Cur_Loc := Cur_Loc + 1;
end loop;
end;