anchor.diff:          continue;
          end;
         end;
  -     end;
  +     end;{}
        opSINGLECHAR:begin
         if (Position<LocalInputLength) and (byte(ansichar(LocalInput[Position]))=Instruction^.Value) then begin
          inc(Position);
  
positive.code:    repeat
  
      case Instruction^.IDandOpcode and $ff of
       opSPLIT:begin
        case Argument of
         0:begin
          Push(Instruction,Position,1);
  
negative.code:        end;
        end;
       end;
  {    opSPLITMATCH:begin
        if IsInstructionGreedy(Instruction) then begin
         // Greedy (Byte, match)
         Push(Instruction^.OtherNext,Position,0);
  