anchor.diff:    if (Flags and carfNAMED)<>0 then begin
      Include(RealFlags,rfNAMED);
     end;
  +  if (Flags and carfNOCAPTURES)<>0 then begin
  +   Include(RealFlags,rfNOCAPTURES);
  +  end;
     if (Flags and carfUNGREEDY)<>0 then begin
      Include(RealFlags,rfUNGREEDY);
     end;
  
positive.code:          raise EFLRE.Create('Syntax error');
          end;
         end else begin
          if rfNAMED in Flags then begin
           result:=ParseDisjunction;
          end else begin
           result:=NewNumberedGroup;
          end;
         end;
         if (SourcePosition<=SourceLength) and (Source[SourcePosition]=')') then begin
          inc(SourcePosition);
  
negative.code:       carfMULTILINE=1 shl 2;
        carfFREESPACING=1 shl 3;
        carfNAMED=1 shl 4;
        carfNOCAPTURES=1 shl 5;
        carfUNGREEDY=1 shl 6;
        carfLONGEST=1 shl 7;
        carfMULTIMATCH=1 shl 8;
        carfUTF8=1 shl 9;
        carfDELIMITERS=1 shl 10;
  
  type EFLRE=class(Exception);
  
  