anchor.diff:   end;
   end;
   
  -function TFLREDFA.RunStateOnByte(State:PFLREDFAState;const Position:longint;const CurrentChar:longword;const Reversed:boolean):PFLREDFAState;
  +function TFLREDFA.RunStateOnByte(State:PFLREDFAState;const Position:longint;const CurrentChar:longword):PFLREDFAState;
   var Counter:longint;
       Instruction:PFLREInstruction;
       NeedFlags,BeforeFlags,OldBeforeFlags,AfterFlags,Flags,UnicodeChar:longword;
  
positive.code:   end else begin
     CurrentChar:=$ffffffff;
    end;
    if StartPosition<=0 then begin
     Start:=sskBeginText;
     Flags:=sfEmptyBeginText or sfEmptyBeginLine;
  
negative.code:        procedure AddToWorkQueue(const WorkQueue:TFLREDFAWorkQueue;Instruction:PFLREInstruction;Flags:longword);
         procedure ProcessWorkQueueOnZeroWidthString(const OldWorkQueue,NewWorkQueue:TFLREDFAWorkQueue;Flags:longword);
         procedure ProcessWorkQueueOnByte(const OldWorkQueue,NewWorkQueue:TFLREDFAWorkQueue;CurrentChar,Flags:longword;var IsMatch:boolean);
         function RunStateOnByte(State:PFLREDFAState;const Position:longint;const CurrentChar:longword):PFLREDFAState;
         function InitializeStartState(const StartPosition:longint;const UnanchoredStart:boolean):PFLREDFAState;
  
         function SearchMatch(const StartPosition,UntilExcludingPosition:longint;out MatchEnd:longint;const UnanchoredStart:boolean):longint;
  
       end;
  
  