anchor.diff:          end;
          end;
         end else begin
  -       case ThreadLocalState.Input[OtherPosition] of
  -        #10,#13:begin
  +       case byte(ansichar(ThreadLocalState.Input[OtherPosition])) of
  +        $0a,$0d,$85:begin
            Instruction:=Instruction^.Next;
            continue;
           end;
  
positive.code:  end;
  end;
  
  function TFLRE.NewSubMatches(const Count:longint;const BitState:longword):PFLRESubMatches; {$ifdef caninline}inline;{$endif}
  begin
   if assigned(FreeSubMatches) then begin
  
negative.code:  result.SubMatches:=SubMatches;
  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;
  