anchor.diff:      FStorage.Initialize(FStorageFile, fmCreate);
       FStorage.FileInfo['/'].Attribute[AttrDataFormatVersion] := IntToStr(ADataFormatVersion);
     end;
  +  FCacheInfo := TCacheInfo.Create(1000, TIStringComparer.Ordinal);
  +  LoadCacheInfo('/');
   end; { TDLCache.Create }
  +
  +destructor TDLCache.Destroy;
  +begin
  +  FreeAndNil(FCacheInfo);
  +  inherited;
  +end; { TDLCache.Destroy }
   
   procedure TDLCache.BindTo(indexer: TProjectIndexer);
   begin
  
positive.code: implementation
  
  uses
    System.SysUtils, System.Classes,
    DelphiAST.Classes, DelphiAST.Serialize.Binary,
    ProjectIndexer,
    DSiWin32,
  
negative.code: procedure TDLCache.IndexerUnitParsed(Sender: TObject; const unitName, fileName: string;
    var syntaxTree: TSyntaxNode; syntaxTreeFromParser: boolean; var doAbort: boolean);
  var
    fn      : string;
    mem     : TMemoryStream;
    ser     : TBinarySerializer;
    str     : TStream;
    unitInfo: TUnitInfo;
  begin
    if not syntaxTreeFromParser then
      Exit; //already cached
  