anchor.diff:    end;
    end;
   end;
  -                                           
  +
   function TFLREThreadLocalStorageInstance.DFAProcessNextState(State:PFLREDFAState;const CurrentChar:ansichar;const Reversed:boolean):PFLREDFAState;
   var Counter:longint;
       Instruction:PFLREInstruction;
  
positive.code:      inc(StackPointer);
       Instruction:=Instruction^.Next;
      end;
      else begin
       if State.CountInstructions>=length(State.Instructions) then begin
        SetLength(State.Instructions,(State.CountInstructions+1)*2);
  
negative.code:   if (MatchCondition<>sfImpossible) and (((MatchCondition and sfEmptyAllFlags)=0) or Satisfy(MatchCondition)) then begin
     if ((MatchCondition and sfCapMask)<>0) and (TwoCountOfCaptures>0) then begin
      for Counter:=0 to TwoCountOfCaptures-1 do begin
       if (MatchCondition and ((1 shl sfCapShift) shl Counter))<>0 then begin   
        OnePassNFAWorkCaptures[Counter]:=CurrentPosition;
       end;
      end;
  