|
@@ -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: longint;
|
|
|
|
|
|
|
+ msgnr, code : 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;
|
pierre