mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-15 08:09:34 +02:00
fixed mem leak when showing command line params
git-svn-id: trunk@9469 -
This commit is contained in:
parent
9fa77ea56b
commit
053cb2d4eb
@ -77,6 +77,7 @@ begin
|
||||
LazarusRevisionStr:=RevisionStr;
|
||||
Application.Initialize;
|
||||
TMainIDE.ParseCmdLineOptions;
|
||||
if Application.Terminated then exit;
|
||||
|
||||
// Show splashform
|
||||
if ShowSplashScreen then begin
|
||||
|
@ -978,7 +978,7 @@ begin
|
||||
writeln('');
|
||||
writeln(GetCmdLineParamDescForInterface);
|
||||
Application.Terminate;
|
||||
Halt;
|
||||
exit;
|
||||
end;
|
||||
for i:=1 to ParamCount do begin
|
||||
if ParamIsOptionPlusValue(i,PrimaryConfPathOptLong,AValue) then begin
|
||||
|
Loading…
Reference in New Issue
Block a user