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

cocoa: Patch from issue #28510 autorelease pool mem leak fix

Browse Source 
git-svn-id: trunk@49633 -
This commit is contained in:
sekelsenmat 2015-08-10 18:36:10 +00:00
parent 58cbaacbda
commit b056d5b455
2 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/interfaces/cocoa/cocoawinapi.inc
View File

@ -1333,9 +1333,12 @@ begin
begin begin
Result:=RecurseSubviews(window.contentView, Point); Result:=RecurseSubviews(window.contentView, Point);
if Result<>0 then if Result<>0 then
begin
pool.release;
exit; exit;
end; end;
end; end;
end;
pool.release; pool.release;
end; end;

1
lcl/interfaces/cocoa/cocoawsforms.pp
View File

@ -417,6 +417,7 @@ var
if not Assigned(win) then if not Assigned(win) then
begin begin
pool.release;
Result := 0; Result := 0;
Exit; Exit;
end; end;