anchor.diff:  var Index:longint;
       NextCharClassAction:PFLREOnePassNFAStateCharClassAction;
       Flags:longword;
  -    ThreadLocalStorage,NextThreadLocalStorage:TFLREThreadLocalStorage;
  -begin
  -
  - ThreadLocalStorage:=ThreadLocalStorages;
  - ThreadLocalStorages:=nil;
  - while assigned(ThreadLocalStorage) do begin
  -  NextThreadLocalStorage:=ThreadLocalStorage.AllNext;
  -  ThreadLocalStorage.Free;
  -  ThreadLocalStorage:=NextThreadLocalStorage;
  +    ThreadLocalStorageInstance,NextThreadLocalStorageInstance:TFLREThreadLocalStorageInstance;
  +begin
  +
  + ThreadLocalStorageInstance:=ThreadLocalStorageInstances;
  + ThreadLocalStorageInstances:=nil;
  + while assigned(ThreadLocalStorageInstance) do begin
  +  NextThreadLocalStorageInstance:=ThreadLocalStorageInstance.AllNext;
  +  ThreadLocalStorageInstance.Free;
  +  ThreadLocalStorageInstance:=NextThreadLocalStorageInstance;
    end;
   
    for Index:=0 to Nodes.Count-1 do begin
  
positive.code:  end;
  end;
  
  destructor TFLREThreadLocalStorage.Destroy;
  var State:PFLREParallelNFAState;
  begin
  
  
negative.code:  end;
  end;
  
  function TFLREThreadLocalStorageInstance.DFAAllocateNewStatePool:PFLREDFAStatePool;
  begin
   if assigned(DFAStatePoolFree) then begin
    result:=DFAStatePoolFree;
  