paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-14 18:39:20 +02:00
Code Issues Packages Projects Releases Wiki Activity

MG: fixed double parsing of command line

Browse Source 
git-svn-id: trunk@1769 -
This commit is contained in:
lazarus 2002-07-04 10:22:46 +00:00
parent b3adab2b9e
commit 14bb8819d4
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
ide/main.pp
View File

@ -538,6 +538,7 @@ var i: integer;
begin begin
if (ParamCount>0) if (ParamCount>0)
and ((AnsiCompareText(ParamStr(1),'--help')=0) and ((AnsiCompareText(ParamStr(1),'--help')=0)
or (AnsiCompareText(ParamStr(1),'-help')=0)
or (AnsiCompareText(ParamStr(1),'-?')=0)) then or (AnsiCompareText(ParamStr(1),'-?')=0)) then
begin begin
writeln('lazarus [options] <project-filename>'); writeln('lazarus [options] <project-filename>');
@ -546,11 +547,13 @@ begin
writeln(''); writeln('');
writeln('--help or -? this help message'); writeln('--help or -? this help message');
writeln(''); writeln('');
writeln('--primary-config-path primary config directory, where Lazarus'); writeln('--primary-config-path <path>');
writeln(' primary config directory, where Lazarus');
writeln(' stores its config files. Default is '); writeln(' stores its config files. Default is ');
writeln(' ',GetPrimaryConfigPath); writeln(' ',GetPrimaryConfigPath);
writeln(''); writeln('');
writeln('--secondary-config-path secondary config directory, where Lazarus'); writeln('--secondary-config-path <path>');
writeln(' secondary config directory, where Lazarus');
writeln(' searches for config template files.'); writeln(' searches for config template files.');
writeln(' Default is ',GetSecondaryConfigPath); writeln(' Default is ',GetSecondaryConfigPath);
writeln(''); writeln('');
@ -618,7 +621,6 @@ begin
inherited Create(TheOwner); inherited Create(TheOwner);
// load options // load options
ParseCmdLineOptions;
CreatePrimaryConfigPath; CreatePrimaryConfigPath;
LoadGlobalOptions; LoadGlobalOptions;
@ -6559,6 +6561,9 @@ end.
{ ============================================================================= { =============================================================================
$Log$ $Log$
Revision 1.318 2002/07/04 10:22:46 lazarus
MG: fixed double parsing of command line
Revision 1.317 2002/06/28 06:34:54 lazarus Revision 1.317 2002/06/28 06:34:54 lazarus
MG: added Tabs To Spaces in Selection MG: added Tabs To Spaces in Selection