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

fixed mem leak when showing command line params

Browse Source 
git-svn-id: trunk@9469 -
This commit is contained in:
mattias 2006-06-21 20:57:38 +00:00
parent 9fa77ea56b
commit 053cb2d4eb
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
ide/lazarus.pp
View File

@ -77,6 +77,7 @@ begin
LazarusRevisionStr:=RevisionStr; LazarusRevisionStr:=RevisionStr;
Application.Initialize; Application.Initialize;
TMainIDE.ParseCmdLineOptions; TMainIDE.ParseCmdLineOptions;
if Application.Terminated then exit;
// Show splashform // Show splashform
if ShowSplashScreen then begin if ShowSplashScreen then begin

2
ide/main.pp
View File

@ -978,7 +978,7 @@ begin
writeln(''); writeln('');
writeln(GetCmdLineParamDescForInterface); writeln(GetCmdLineParamDescForInterface);
Application.Terminate; Application.Terminate;
Halt; exit;
end; end;
for i:=1 to ParamCount do begin for i:=1 to ParamCount do begin
if ParamIsOptionPlusValue(i,PrimaryConfPathOptLong,AValue) then begin if ParamIsOptionPlusValue(i,PrimaryConfPathOptLong,AValue) then begin