paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 00:59:30 +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
uses
comphook,fmodule,constexp,globals,cfileutl;
comphook,fmodule,constexp,globals,cfileutl,switches;
{****************************************************************************
Extra Handlers for default compiler
@ -203,11 +203,10 @@ implementation
end;
end;
function ChangeMessageVerbosity(s: string; var i: integer;state:tmsgstate): boolean;
function ChangeMessageVerbosity(s: string; var i : integer;state:tmsgstate): boolean;
var
tok : string;
code : longint;
msgnr: longint;
msgnr, code : longint;
begin
{ delete everything up to and including 'm' }
delete(s,1,i);
@ -222,7 +221,9 @@ implementation
if (code<>0) then
exit;
if not msg^.setverbosity(msgnr,state) then
exit;
exit
else
recordpendingmessagestate(msgnr, state);
until false;
result:=true;
end;