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

* Fix ChangeMessageVerbosity by adingd a recordpendingmessagestate call

Browse Source 
git-svn-id: trunk@19573 -
This commit is contained in:
pierre 2011-11-02 22:08:14 +00:00
parent 2625b1dfa4
commit 2b4e2dc164
1 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/verbose.pas
View File

@ -123,7 +123,7 @@ interface
implementation implementation
uses uses
comphook,fmodule,constexp,globals,cfileutl; comphook,fmodule,constexp,globals,cfileutl,switches;
{**************************************************************************** {****************************************************************************
Extra Handlers for default compiler Extra Handlers for default compiler
@ -203,11 +203,10 @@ implementation
end; end;
end; end;
function ChangeMessageVerbosity(s: string; var i: integer;state:tmsgstate): boolean; function ChangeMessageVerbosity(s: string; var i : integer;state:tmsgstate): boolean;
var var
tok : string; tok : string;
code : longint; msgnr, code : longint;
msgnr: longint;
begin begin
{ delete everything up to and including 'm' } { delete everything up to and including 'm' }
delete(s,1,i); delete(s,1,i);
@ -222,7 +221,9 @@ implementation
if (code<>0) then if (code<>0) then
exit; exit;
if not msg^.setverbosity(msgnr,state) then if not msg^.setverbosity(msgnr,state) then
exit; exit
else
recordpendingmessagestate(msgnr, state);
until false; until false;
result:=true; result:=true;
end; end;