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

* check for verbosity in verbose instead of comphook

Browse Source
This commit is contained in:
peter 2000-12-26 15:58:29 +00:00
parent ff388a41e2
commit 5a5ac3872b
2 changed files with 77 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/comphook.pas
View File

@ -234,8 +234,6 @@ var
hs : string;
begin
def_comment:=false; { never stop }
if (status.verbosity and Level)=Level then
begin
hs:='';
if not(status.use_gccoutput) then
begin
@ -310,7 +308,6 @@ begin
def_gdb_stop(level);
{$endif DEBUG}
end;
end;
function def_internalerror(i : longint) : boolean;
@ -366,7 +363,10 @@ end;
end.
{
$Log$
Revision 1.10 2000-12-25 00:07:25 peter
Revision 1.11 2000-12-26 15:58:29 peter
* check for verbosity in verbose instead of comphook
Revision 1.10 2000/12/25 00:07:25 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects)

11
compiler/verbose.pas
View File

@ -405,6 +405,9 @@ var
(status.errornote and ((l and V_Note)<>0)) or
(status.errorhint and ((l and V_Hint)<>0)) then
inc(status.errorcount);
{ check verbosity level }
if (status.verbosity and l)<>l then
exit;
{ Create status info }
UpdateStatus;
{ Fix replacements }
@ -499,6 +502,9 @@ var
end;
end;
Delete(s,1,idx);
{ check verbosity level }
if (status.verbosity and v)<>v then
exit;
{ fix status }
UpdateStatus;
{ Fix replacements }
@ -624,7 +630,10 @@ var
end.
{
$Log$
Revision 1.10 2000-12-25 00:07:30 peter
Revision 1.11 2000-12-26 15:58:29 peter
* check for verbosity in verbose instead of comphook
Revision 1.10 2000/12/25 00:07:30 peter
+ new tlinkedlist class (merge of old tstringqueue,tcontainer and
tlinkedlist objects)