Merge pull request #122 from jkour/Pool-AV

[pool] An AV occurs in TPoolItem

Author: exilon

Quick.Pooling.pas

@@ -295,22 +295,22 @@ function TPoolItem<T>._AddRef: Integer;
 
 function TPoolItem<T>._Release: Integer;
 begin
-  fLock.Enter;
   {$IFDEF DEBUG_OBJPOOL}
   TDebugger.Trace(Self,'Released Pool item');
   {$ENDIF}
   try
-    Dec(fRefCount);
-    Result := fRefCount;
+    result:=AtomicDecrement(fRefCount);
     if Result = 0 then
     begin
       FreeAndNil(fItem);
+      // The following is take from TInterfacedObject._Release()
+      // Mark the refcount field so that any refcounting during destruction doesn't infinitely recurse.
+      __MarkDestroying(Self);
       Destroy;
     end
     else fLastAccess := Now;
   finally
     if fRefCount = 1 then fSemaphore.Release;
-    fLock.Leave;
   end;
 end;