pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

added Handle:=nil to .release method

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@728 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
skalogryz
2009-03-06 08:18:26 +00:00
parent 9fa9abbd3f
commit 73e6de8fde
1 changed files with 1 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
bindings/pascocoa/foundation/NSObject.inc
View File

@ -302,6 +302,7 @@ end;
procedure NSObject.release; procedure NSObject.release;
begin begin
objc_msgSend(Handle, sel_registerName(PChar(Str_release)), []); objc_msgSend(Handle, sel_registerName(PChar(Str_release)), []);
Handle:=nil;
end; end;
function NSObject.autorelease: objc.id; function NSObject.autorelease: objc.id;