rtl/inc/objpas.inc: * IsRefCounted: return False for 2.6.x series * RefCountOffset: return 0 for 2.6.x series git-svn-id: branches/svenbarth/arc@28907 -
@@ -1017,12 +1017,20 @@
function TObject.IsRefCounted: Boolean;
begin
+ {$ifdef VER2_6}
+ Result := False;
+ {$else}
Result := PVmt(Self.ClassType)^.vRefCountOfs > 0;
+ {$endif}
end;
function TObject.RefCountOffset: LongInt;
+ Result := 0;
Result := PVmt(Self.ClassType)^.vRefCountOfs;