anchor.diff:        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
  +    opEOL:begin
  +     if Satisfy(sfEmptyEndLine,Position) then begin
         Instruction:=Instruction^.Next;
         continue;
        end else begin
  
positive.code: end;
  
  procedure TFLRE.AddThread(const ThreadLocalState:TFLREThreadLocalState;const ThreadList:PFLREThreadList;Instruction:PFLREInstruction;SubMatches:PFLRESubMatches;const Position:longint);
  var Thread:PFLREThread;
      CurrentChar,OtherChar:longword;
      OtherPosition:longint;
      BooleanValue:boolean;
  begin
   while assigned(Instruction) do begin
    if Instruction^.Generation=Generation then begin
  
negative.code:      continue;
      end;
      opBOL:begin
       if Satisfy(sfEmptyBeginLine,Position) then begin
        Instruction:=Instruction^.Next;
        continue;
       end else begin
  