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

+ be able to turn off warning -> error conversion on the command line (with -)

Browse Source 
git-svn-id: trunk@21754 -
This commit is contained in:
florian 2012-07-01 18:47:45 +00:00
parent 7df1403849
commit 3f14f2b61b
1 changed files with 27 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
compiler/verbose.pas
View File

@ -512,11 +512,35 @@ implementation
i:=j-1;
end;
'w','W' :
status.errorwarning:=true;
begin
if (i<length(s)) and (s[i+1]='-') then
begin
inc(i);
status.errorwarning:=false;
end
else
status.errorwarning:=true;
end;
'n','N' :
status.errornote:=true;
begin
if (i<length(s)) and (s[i+1]='-') then
begin
inc(i);
status.errornote:=false;
end
else
status.errornote:=true;
end;
'h','H' :
status.errorhint:=true;
begin
if (i<length(s)) and (s[i+1]='-') then
begin
inc(i);
status.errorhint:=false;
end
else
status.errorhint:=true;
end;
end;
end;
end;