added Handle:=nil to .release method
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@728 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
parent
9fa9abbd3f
commit
73e6de8fde
@ -302,6 +302,7 @@ end;
|
||||
procedure NSObject.release;
|
||||
begin
|
||||
objc_msgSend(Handle, sel_registerName(PChar(Str_release)), []);
|
||||
Handle:=nil;
|
||||
end;
|
||||
|
||||
function NSObject.autorelease: objc.id;
|
||||
|
Loading…
Reference in New Issue
Block a user