paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-09 21:49:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

* align Comment behaviour with Msg2Comment

Browse Source 
git-svn-id: trunk@6991 -
This commit is contained in:
Tomas Hajny 2007-03-25 00:21:12 +00:00
parent 79b572ccae
commit c2cec3a8c0
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/verbose.pas
View File

@ -482,10 +482,20 @@ var
begin
dostop:=((l and V_Fatal)<>0);
if ((l and V_Error)<>0) or
((l and V_Fatal)<>0) or
(status.errorwarning and ((l and V_Warning)<>0)) or
(status.errornote and ((l and V_Note)<>0)) or
(status.errorhint and ((l and V_Hint)<>0)) then
inc(status.errorcount);
inc(status.errorcount)
else
if l and V_Warning <> 0 then
inc(status.countWarnings)
else
if l and V_Note <> 0 then
inc(status.countNotes)
else
if l and V_Hint <> 0 then
inc(status.countHints);
{ check verbosity level }
if not CheckVerbosity(l) then
exit;