anchor.diff:       opMANY:begin
         case Argument of
          0:begin
  -        // TODO
  -        Push(Instruction,WorkSubMatches[Instruction^.Value],1);
  -        WorkSubMatches[Instruction^.Value]:=Position;
  +        Push(Instruction,ManySubMatches[Instruction^.Value],1);
  +        ManySubMatches[Instruction^.Value]:=Position;
           Instruction:=Instruction^.Next;
           if ShouldVisit(Instruction,Position) then begin
            continue;
           end;
          end;
          1:begin
  -        WorkSubMatches[Instruction^.Value]:=Position;
  +        if ManySubMatches[Instruction^.Value]<Position then begin
  +         ManySubMatches[Instruction^.Value]:=Position;
  +        end;
          end;
         end;
        end;
  
positive.code:        CountInternalCaptures:longint;
  
         CountSubMatches:longint;
  
         CapturesToSubMatchesMap:TFLRECapturesToSubMatchesMap;
  
  
negative.code: destructor TFLREBitStateNFA.Destroy;
  begin
   SetLength(Jobs,0);
   SetLength(ManySubMatches,0);
   SetLength(WorkSubMatches,0);
   SetLength(MatchSubMatches,0);
   inherited Destroy;
  