* Fix bug ID #32168

git-svn-id: trunk@36757 -

rtl/inc/objpas.inc

@@ -1044,7 +1044,10 @@
       begin
          _Release:=interlockeddecrement(frefcount);
          if _Release=0 then
-           self.destroy;
+           begin
+           if interlockedincrement(fdestroycount)=1 then
+             self.destroy;
+           end;
       end;
 
     procedure TInterfacedObject.AfterConstruction;

rtl/inc/objpash.inc

@@ -297,6 +297,7 @@
        TInterfacedObject = class(TObject,IUnknown)
        protected
           frefcount : longint;
+          FDestroyCount : longint;
           { implement methods of IUnknown }
           function QueryInterface({$IFDEF FPC_HAS_CONSTREF}constref{$ELSE}const{$ENDIF} iid : tguid;out obj) : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};
           function _AddRef : longint;{$IFNDEF WINDOWS}cdecl{$ELSE}stdcall{$ENDIF};