anchor.diff:    end;
   
    begin
  +  flagp := WORST;
     Result := ParseAtom (flags);
     if Result = nil
      then EXIT;
  
positive.code:             do inc (i);
             if i > Len
              then Result := -1 // unbalansed '('
              else
               if TRegExpr.ParseModifiersStr (System.Copy (ARegExpr, i, i - i0), Modif)
                then AExtendedSyntax := (Modif and MaskModX) <> 0;
            end
           else begin // subexpression starts
             ASubExprs.Add (''); // just reserve space
  
negative.code:                 // If it could work, try it.
                  if (nextch = #0) or (reginput^ = nextch) then begin
                    {$IFDEF ComplexBraces}
                    System.Move (LoopStack, SavedLoopStack{%H-}, SizeOf (LoopStack)); //###0.925
                    SavedLoopStackIdx := LoopStackIdx;
                    {$ENDIF}
                    if MatchPrim (next) then begin
  