mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 17:39:20 +02:00
+ -X option to disable UseComSpec
This commit is contained in:
parent
d5819c93b8
commit
9bd3e827ec
@ -615,6 +615,7 @@ var
|
|||||||
writeln(' -C<compiler> set compiler to use');
|
writeln(' -C<compiler> set compiler to use');
|
||||||
writeln(' -V verbose');
|
writeln(' -V verbose');
|
||||||
writeln(' -E execute test also');
|
writeln(' -E execute test also');
|
||||||
|
writeln(' -X don''t use COMSPEC');
|
||||||
writeln(' -A include ALL tests');
|
writeln(' -A include ALL tests');
|
||||||
writeln(' -G include graph tests');
|
writeln(' -G include graph tests');
|
||||||
writeln(' -K include known bug tests');
|
writeln(' -K include known bug tests');
|
||||||
@ -655,12 +656,13 @@ begin
|
|||||||
if para='-' then
|
if para='-' then
|
||||||
DoUsual:=false;
|
DoUsual:=false;
|
||||||
end;
|
end;
|
||||||
'V' : DoVerbose:=true;
|
|
||||||
'K' : begin
|
'K' : begin
|
||||||
DoKnown:=true;
|
DoKnown:=true;
|
||||||
if para='-' then
|
if para='-' then
|
||||||
DoUsual:=false;
|
DoUsual:=false;
|
||||||
end;
|
end;
|
||||||
|
'V' : DoVerbose:=true;
|
||||||
|
'X' : UseComSpec:=false;
|
||||||
end;
|
end;
|
||||||
end
|
end
|
||||||
else
|
else
|
||||||
@ -803,7 +805,10 @@ begin
|
|||||||
end.
|
end.
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.20 2002-11-18 16:42:43 pierre
|
Revision 1.21 2002-12-05 16:03:34 pierre
|
||||||
|
+ -X option to disable UseComSpec
|
||||||
|
|
||||||
|
Revision 1.20 2002/11/18 16:42:43 pierre
|
||||||
+ KNOWNRUNERROR added
|
+ KNOWNRUNERROR added
|
||||||
|
|
||||||
Revision 1.19 2002/11/18 01:31:07 pierre
|
Revision 1.19 2002/11/18 01:31:07 pierre
|
||||||
|
Loading…
Reference in New Issue
Block a user