rtl/inc/objpas.inc, TObject: * Free: don't call Destroy if the class is reference counted (there might be references left) git-svn-id: branches/svenbarth/arc@28912 -
@@ -338,7 +338,7 @@
begin
// the call via self avoids a warning
- if self<>nil then
+ if (self<>nil) and not ARCIsRefCounted then
self.destroy;
end;