paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 23:19:39 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Remove a useless variable in TLazarusBuilder.CreateAppleBundle.

Browse Source 
git-svn-id: trunk@44065 -
This commit is contained in:
juha 2014-02-13 23:23:16 +00:00
parent 22aab4f9a6
commit f331689853
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
ide/buildlazdialog.pas
View File

@ -600,15 +600,14 @@ end;
function TLazarusBuilder.CreateAppleBundle: TModalResult;
var
CurTarget, BundleDir: String;
BundleDir: String;
begin
Result:=mrOk;
CurTarget:=fTargetFilename;
BundleDir:=ChangeFileExt(CurTarget,'.app');
BundleDir:=ChangeFileExt(fTargetFilename,'.app');
//debugln(['CreateBuildLazarusOptions checking bundle ',BundleDir]);
if not FileExistsCached(BundleDir) then begin
//debugln(['CreateBuildLazarusOptions TargetFile=',CurTarget]);
Result:=CreateApplicationBundle(CurTarget, 'Lazarus');
//debugln(['CreateBuildLazarusOptions TargetFile=',fTargetFilename]);
Result:=CreateApplicationBundle(fTargetFilename, 'Lazarus');
if not (Result in [mrOk,mrIgnore]) then begin
debugln(['CreateBuildLazarusOptions CreateApplicationBundle failed']);
if IDEMessagesWindow<>nil then
@ -619,14 +618,14 @@ begin
{$ENDIF}
exit;
end;
Result:=CreateAppBundleSymbolicLink(CurTarget);
Result:=CreateAppBundleSymbolicLink(fTargetFilename);
if not (Result in [mrOk,mrIgnore]) then begin
debugln(['CreateBuildLazarusOptions CreateAppBundleSymbolicLink failed']);
if IDEMessagesWindow<>nil then
{$IFDEF EnableNewExtTools}
IDEMessagesWindow.AddCustomMessage(mluError,'to create application bundle symlink to '+TargetFile);
{$ELSE}
IDEMessagesWindow.AddMsg('Error: failed to create application bundle symlink to '+CurTarget,fTargetDir,-1);
IDEMessagesWindow.AddMsg('Error: failed to create application bundle symlink to '+fTargetFilename,fTargetDir,-1);
{$ENDIF}
exit;
end;