anchor.diff:   State.NextStates[Instance.ByteMap[byte(ansichar(CurrentChar))]]:=result;
   end;
   
  -procedure TFLREThreadLocalStorage.DFADestroyStatePool(StatePool:PFLREDFAStatePool);
  +procedure TFLREThreadLocalStorageInstance.DFADestroyStatePool(StatePool:PFLREDFAStatePool);
   var Pool,NextPool:PFLREDFAStatePool;
       State:PFLREDFAState;
   begin
  
positive.code: 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;
   end;
  
   for Index:=0 to Nodes.Count-1 do begin
  
negative.code:  end;
  end;
  
  function TFLREThreadLocalStorageInstance.SearchMatchReversedDFA(const StartPosition,UntilIncludingPosition:longint;out MatchBegin:longint):longint;
  var Position:longint;
      State,LastState:PFLREDFAState;
      LocalInput:pansichar;
  