replaced __MarkDestroying method

Author: sglienke

Source/Base/Spring.Events.Base.pas

@@ -49,6 +49,7 @@   TEventBase = class(TRefCountedObject)
     fNotificationHandler: TNotificationHandler;
     fOnChanged: TNotifyEvent;
   const
+    objDestroyingFlag = Integer($80000000);
     DisabledFlag = Integer($40000000);
     RefCountMask = Integer($3FFFFFFF);
   {$REGION 'Property Accessors'}
@@ -432,7 +433,7 @@ function TEventBase._Release: Integer;
   Result := AtomicDecrement(fRefCount) and not DisabledFlag;
   if Result = 0 then
   begin
-    __MarkDestroying(Self);
+    fRefCount := objDestroyingFlag;
     Destroy;
   end;
 end;

Source/Base/Spring.pas

@@ -1320,7 +1320,6 @@   TRefCountedObject = class abstract
     [Volatile]
 {$IFEND}
     fRefCount: Integer;
-    class procedure __MarkDestroying(const obj); static; inline;
     function AsObject: TObject;
   public
     function QueryInterface(const IID: TGUID; out obj): HResult; stdcall;
@@ -7718,15 +7717,6 @@ function TRefCountedObject.GetRefCount: Integer;
   Result := fRefCount and not objDestroyingFlag;
 end;
 
-class procedure TRefCountedObject.__MarkDestroying(const obj);
-var
-  refCount: Integer; //FI:W517
-begin
-  repeat
-    refCount := TRefCountedObject(obj).fRefCount;
-  until AtomicCmpExchange(TRefCountedObject(obj).fRefCount, refCount or objDestroyingFlag, refCount) = refCount;
-end;
-
 procedure TRefCountedObject.AfterConstruction;
 begin
   AtomicDecrement(fRefCount);
@@ -7762,7 +7752,7 @@ function TRefCountedObject._Release: Integer;
   Result := AtomicDecrement(fRefCount);
   if Result = 0 then
   begin
-    __MarkDestroying(Self);
+    fRefCount := objDestroyingFlag;
     Destroy;
   end;
 end;