paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-20 11:59:26 +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

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

@ -1330,12 +1330,15 @@ begin
winnr:=NSWindow.windowNumberAtPoint_belowWindowWithWindowNumber(p,0);
windowbelowpoint:=NSApp.windowWithWindowNumber(winnr);
if windowbelowpoint=window then
begin
begin
Result:=RecurseSubviews(window.contentView, Point);
if Result<>0 then
exit;
begin
pool.release;
exit;
end;
end;
end;
pool.release;
end;

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

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