anchor.diff:    end else begin
   
      if assigned(State) and ((State^.Flags and sfDFAMatchWins)<>0) then begin
  -    MatchEnd:=Position-1;
  +    MatchEnd:=StartPosition-1;
       result:=DFAMatch;
      end;
   
  
positive.code:         continue;
         end;
        end;
       end;
       opSINGLECHAR:begin
        if (Position<LocalInputLength) and (byte(ansichar(LocalInput[Position]))=Instruction^.Value) then begin
         inc(Position);
  
negative.code:    repeat
  
      case Instruction^.IDandOpcode and $ff of
       opSPLIT,opSPLITMATCH:begin
        case Argument of
         0:begin
          Push(Instruction,Position,1);
  