anchor.diff:       end else begin
         Include(Flags,rfNAMED);
        end;
  -    end;
  +    end;       
       's':begin
        if rfSINGLELINE in Flags then begin
         raise EFLRE.Create('Too many single-line regular expression modifier flags');
  
positive.code:                 rfMULTILINE,
                  rfFREESPACING,
                  rfNAMED,
                  rfUNGREEDY,
                  rfLONGEST,
                  rfMULTIMATCH,
  
negative.code:          raise EFLRE.Create('Syntax error');
          end;
         end else begin
          result:=NewNumberedGroup;
         end;
         if (SourcePosition<=SourceLength) and (Source[SourcePosition]=')') then begin
          inc(SourcePosition);
  