mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-21 13:09:32 +02:00
* fixed access violation without file on command line
This commit is contained in:
parent
7d1dd39ecc
commit
67de07c897
@ -193,8 +193,10 @@ begin
|
||||
TranslateDocStrings(DocLang);
|
||||
end;
|
||||
if (cmdLineAction<>ActionHelp) and (InputFile1='') and (InputFile2='') then
|
||||
Writeln(StdErr,SErrNoInputFile)
|
||||
else if (InputFile2='') and (CmdLineAction<>ActionList) then
|
||||
begin
|
||||
Writeln(StdErr,SErrNoInputFile);
|
||||
cmdLineAction := actionHelp;
|
||||
end else if (InputFile2='') and (CmdLineAction<>ActionList) then
|
||||
begin
|
||||
Writeln(StdErr,SWarnAssumingList);
|
||||
CmdLineAction:=ActionList;
|
||||
@ -334,7 +336,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2004-11-15 18:03:28 michael
|
||||
Revision 1.4 2005-01-01 19:56:29 armin
|
||||
* fixed access violation without file on command line
|
||||
|
||||
Revision 1.3 2004/11/15 18:03:28 michael
|
||||
+ Faster inserts by sorting after all elements were parsed (suggestion by Mattias Gaertner)
|
||||
|
||||
Revision 1.2 2004/11/14 21:20:31 michael
|
||||
|
Loading…
Reference in New Issue
Block a user