paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 02:32:51 +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;
Delete(Line,1,Length(StatusText[TS]));
ExtractTestFileName(Line);
Writeln('Detected status ',Ord(ts),' ',StatusText[TS]);
Break;
end;
TS:=succ(TS);
@ -225,7 +224,7 @@ Var
co,o : TConfigOpt;
begin
Writeln('Processing option',S);
Verbose(V_DEBUG,'Processing option: '+S);
I:=Pos('=',S);
Result:=(I<>0);
If Result then
@ -258,7 +257,7 @@ Var
begin
If Not FileExists(FN) Then
Exit;
Writeln('Parsing config file',FN);
Verbose(V_DEBUG,'Parsing config file: '+FN);
Assign(F,FN);
{$i-}
Reset(F);
@ -372,6 +371,7 @@ begin
readln(logfile,line);
If analyse(line,TS) then
begin
Verbose(V_NORMAL,'Analysing result for test'+Line);
Inc(StatusCount[TS]);
If Not ExpectRun[TS] then
begin
@ -411,7 +411,10 @@ end.
{
$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
Revision 1.1 2002/12/17 15:04:32 michael