paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-06-05 14:38:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

* show usage if no parameters

Browse Source 
git-svn-id: trunk@12747 -
This commit is contained in:
marco 2009-02-18 17:44:02 +00:00
parent b8d46defc5
commit cb7f19e798
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
utils/fpdoc/fpclasschart.pp
View File

@ -715,6 +715,11 @@ var
begin begin
Result:=0; Result:=0;
if ParamCount=0 then
begin
Usage;
Halt(0);
end;
DocLang:=''; DocLang:='';
for i := 1 to ParamCount do for i := 1 to ParamCount do
ParseOption(ParamStr(i)); ParseOption(ParamStr(i));
@ -744,6 +749,7 @@ begin
WriteLn(STitle); WriteLn(STitle);
WriteLn(Format(SVersion, [FPCVersion, FPCDate])); WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
WriteLn(SCopyright); WriteLn(SCopyright);
InitOptions; InitOptions;
Try Try
E:=ParseCommandLine; E:=ParseCommandLine;