paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 21:10:01 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Some verbosity changes

Browse Source
This commit is contained in:
michael 2002-12-21 15:39:11 +00:00
parent 14c0effae8
commit 82aef67154
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
tests/utils/dbdigest.pp
View File

@ -151,7 +151,6 @@ begin
Status:=TS; Status:=TS;
Delete(Line,1,Length(StatusText[TS])); Delete(Line,1,Length(StatusText[TS]));
ExtractTestFileName(Line); ExtractTestFileName(Line);
Writeln('Detected status ',Ord(ts),' ',StatusText[TS]);
Break; Break;
end; end;
TS:=succ(TS); TS:=succ(TS);
@ -225,7 +224,7 @@ Var
co,o : TConfigOpt; co,o : TConfigOpt;
begin begin
Writeln('Processing option',S); Verbose(V_DEBUG,'Processing option: '+S);
I:=Pos('=',S); I:=Pos('=',S);
Result:=(I<>0); Result:=(I<>0);
If Result then If Result then
@ -258,7 +257,7 @@ Var
begin begin
If Not FileExists(FN) Then If Not FileExists(FN) Then
Exit; Exit;
Writeln('Parsing config file',FN); Verbose(V_DEBUG,'Parsing config file: '+FN);
Assign(F,FN); Assign(F,FN);
{$i-} {$i-}
Reset(F); Reset(F);
@ -372,6 +371,7 @@ begin
readln(logfile,line); readln(logfile,line);
If analyse(line,TS) then If analyse(line,TS) then
begin begin
Verbose(V_NORMAL,'Analysing result for test'+Line);
Inc(StatusCount[TS]); Inc(StatusCount[TS]);
If Not ExpectRun[TS] then If Not ExpectRun[TS] then
begin begin
@ -411,7 +411,10 @@ end.
{ {
$Log$ $Log$
Revision 1.2 2002-12-21 15:31:16 michael Revision 1.3 2002-12-21 15:39:11 michael
* Some verbosity changes
Revision 1.2 2002/12/21 15:31:16 michael
+ Added support for compiler version + Added support for compiler version
Revision 1.1 2002/12/17 15:04:32 michael Revision 1.1 2002/12/17 15:04:32 michael