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

Merge branch 'dbdigest'

Browse Source
This commit is contained in:
Michaël Van Canneyt 2025-01-17 11:35:18 +01:00
commit dcc95b14e8
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
tests/utils/dbdigest.pp
View File

@ -244,7 +244,7 @@ begin
'r','relsrcdir': aConfig.relsrcdir:=aValue;
'V','verbose': DoVerbose:=True;
'sql': dosql:=true;
'T','threadlist' : ; // treated elsewhere
'T','tasklist' : ; // treated elsewhere
'j','threadcount' : ; // treated elsewhere
'compilerdate': aData.CompilerDate:=aValue;
'compilerfullversion': aData.CompilerFullVersion:=aValue;
@ -316,7 +316,7 @@ begin
Writeln('-r --relsrcdir relative source dir');
Writeln('-S --testsrcdir test source dir');
Writeln('-u --username=USER database user name');
Writeln('-T --threadlist=FILE file with configuration file names to imports.');
Writeln('-T --tasklist=FILE file with configuration file names to imports.');
Writeln('-j --threadcount=N Number of threads to use');
Writeln('-V --verbose be more verbose');
Writeln('Test run data:');
@ -513,7 +513,7 @@ var
begin
Result:=False;
lFileName:=GetOptionValue('T','threadlist');
lFileName:=GetOptionValue('T','tasklist');
if not FileExists(lFileName) then
begin
Verbose(V_Normal,'No such file :'+lFileName);