anchor.diff:  end;
   
   function TCacheMem.FlushCache(const AFlushCacheList : TOrderedList<PCacheMemData>) : Boolean;
  -var i : Integer;
  +var i, LCount : Integer;
     PToCurrent, PToNext : PCacheMemData;
  -  LTotalBytesSaved, LTotalBytesError : Int64;
  -  {$IFDEF ABSTRACTMEM_ENABLE_STATS}
  +  LTotalBytesSaved, LTotalBytesError, LMillis, LInitialPendingBytes : Int64;
     LTickCount : TTickCount;
  -  {$ENDIF}
  -begin
  -  {$IFDEF ABSTRACTMEM_ENABLE_STATS}
  +begin
     LTickCount := TPlatform.GetTickCount;
  -  {$ENDIF}
     LTotalBytesSaved := 0;
     LTotalBytesError := 0;
  +  LInitialPendingBytes := FPendingToSaveBytes;
  +  LCount := 0;
     Result := True;
   
     if (FPendingToSaveBytes<=0) then Exit;
  
positive.code:   FOnSaveDataProc := AOnSaveDataProc;
    FOldestUsed := Nil;
    FNewestUsed := Nil;
  end;
  
  procedure TCacheMem.Delete(var APCacheMemData : PCacheMemData);
  
negative.code:     property CacheMemStats : TCacheMemStats read FCacheMemStats;
      {$ENDIF}
      function GetStatsReport(AClearStats : Boolean) : String;
      property OnFlushedCache : TOnFinalizedCacheProc read FOnFlushedCache write FOnFlushedCache;
    End;
  
  implementation
  