anchor.diff:  end;
   
   procedure TFLRE.AddThread(const ThreadLocalState:TFLREThreadLocalState;const ThreadList:PFLREThreadList;Instruction:PFLREInstruction;SubMatches:PFLRESubMatches;const Position:longint);
  + function Satisfy(const NextFlags:longword;const Position:longint):boolean;
  + begin
  +  result:=((NextFlags and sfEmptyAllFlags) and not ThreadLocalState.GetSatisfyFlags(Position))=0;
  + end;
   var Thread:PFLREThread;
  -    CurrentChar,OtherChar:longword;
  -    OtherPosition:longint;
  -    BooleanValue:boolean;
   begin
    while assigned(Instruction) do begin
     if Instruction^.Generation=Generation then begin
  
positive.code:       break;
       end;
      end;
      opEOT:begin
       if rfUTF8 in Flags then begin
        OtherPosition:=Position;
        UTF8PtrSafeInc(ThreadLocalState.Input,ThreadLocalState.InputLength,OtherPosition);
       end else begin
        OtherPosition:=Position+1;
       end;
       if OtherPosition>=ThreadLocalState.InputLength then begin
        Instruction:=Instruction^.Next;
        continue;
       end else begin
  
negative.code:      continue;
      end;
      opBOL:begin
       if Satisfy(sfEmptyBeginLine,Position) then begin
        Instruction:=Instruction^.Next;
        continue;
       end else begin
  