paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 15:29:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed access violation without file on command line

Browse Source
This commit is contained in:
armin 2005-01-01 19:56:29 +00:00
parent 7d1dd39ecc
commit 67de07c897
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
utils/fpdoc/unitdiff.pp
View File

@ -193,8 +193,10 @@ begin
TranslateDocStrings(DocLang); TranslateDocStrings(DocLang);
end; end;
if (cmdLineAction<>ActionHelp) and (InputFile1='') and (InputFile2='') then if (cmdLineAction<>ActionHelp) and (InputFile1='') and (InputFile2='') then
Writeln(StdErr,SErrNoInputFile) begin
else if (InputFile2='') and (CmdLineAction<>ActionList) then Writeln(StdErr,SErrNoInputFile);
cmdLineAction := actionHelp;
end else if (InputFile2='') and (CmdLineAction<>ActionList) then
begin begin
Writeln(StdErr,SWarnAssumingList); Writeln(StdErr,SWarnAssumingList);
CmdLineAction:=ActionList; CmdLineAction:=ActionList;
@ -334,7 +336,10 @@ end.
{ {
$Log$ $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) + Faster inserts by sorting after all elements were parsed (suggestion by Mattias Gaertner)
Revision 1.2 2004/11/14 21:20:31 michael Revision 1.2 2004/11/14 21:20:31 michael