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

Enable writing of Warnings/Notes/hints if they are considered as errors using -SeX option

Browse Source 
to avoid getting a compiler failure without any error printed out

git-svn-id: trunk@22378 -
This commit is contained in:
pierre 2012-09-13 07:34:23 +00:00
parent 3b968b4b35
commit 2d0f01e0dd
1 changed files with 16 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
compiler/verbose.pas
View File

@ -519,7 +519,11 @@ implementation
status.errorwarning:=false; status.errorwarning:=false;
end end
else else
status.errorwarning:=true; begin
status.errorwarning:=true;
{ Enable writing of warnings, to avoid getting errors without any message }
status.verbosity:=status.verbosity or V_Warning;
end;
end; end;
'n','N' : 'n','N' :
begin begin
@ -529,7 +533,12 @@ implementation
status.errornote:=false; status.errornote:=false;
end end
else else
status.errornote:=true; begin
status.errornote:=true;
{ Enable writing of notes, to avoid getting errors without any message }
status.verbosity:=status.verbosity or V_Note;
end;
end; end;
'h','H' : 'h','H' :
begin begin
@ -539,7 +548,11 @@ implementation
status.errorhint:=false; status.errorhint:=false;
end end
else else
status.errorhint:=true; begin
status.errorhint:=true;
{ Enable writing of hints, to avoid getting errors without any message }
status.verbosity:=status.verbosity or V_Hint;
end;
end; end;
end; end;
end; end;