anchor.diff:    Node:=NodeEx^;
     if assigned(Node) then begin
      case Node^.NodeType of
  -    ntCHAR,ntANY,ntBOL,ntEOL,ntBOT,ntEOT,ntBRK,ntNBRK,ntLOOKBEHINDNEGATIVE,ntLOOKBEHINDPOSITIVE,ntLOOKAHEADNEGATIVE,ntLOOKAHEADPOSITIVE:begin
  +    ntCHAR,ntANY,ntBOL,ntEOL,ntBOT,ntEOT,ntBRK,ntNBRK,ntLOOKBEHINDNEGATIVE,ntLOOKBEHINDPOSITIVE,ntLOOKAHEADNEGATIVE,ntLOOKAHEADPOSITIVE,ntBACKREFERENCE,ntBACKREFERENCEIGNORECASE:begin
       end;
       ntPAREN,ntEXACT:begin
        NodeEx:=@Node^.Left;
  
positive.code:  result^.SubMatches[Index]:=Position;
  end;
  
  procedure TFLREThreadLocalStorageInstance.ParallelNFAAddThread(const ThreadList:PFLREThreadList;Instruction:PFLREInstruction;State:PFLREParallelNFAState;const Position:longint);
   function Satisfy(const NextFlags:longword;const Position:longint):boolean;
   begin
  
negative.code:        end;
        end;
       end;
       opBACKREFERENCE,opBACKREFERENCEIGNORECASE:begin
        Instruction:=Instruction^.Next;
        if ShouldVisit(Instruction,Position) then begin
         continue;
        end;
       end;
      end;
  
      break;
  