Minor reformatting.

From-SVN: r247463
This commit is contained in:
Arnaud Charlet 2017-05-02 10:18:39 +02:00
parent 42fe76e063
commit 2132d92e27

View File

@ -1191,7 +1191,7 @@ package body Errout is
if Errors.Table (Cur_Msg).Warn then
Warning_Info_Messages := Warning_Info_Messages + 1;
Warnings_Detected := Warnings_Detected + 1;
Warnings_Detected := Warnings_Detected + 1;
else
Report_Info_Messages := Report_Info_Messages + 1;
end if;