anchor.diff:         if rfUTF8 in Flags then begin
           UnicodeCharClass:=nil;
           try
  -         UnicodeCharClass:=TFLREUnicodeCharClass.Create(self);
  +         UnicodeCharClass:=TFLREUnicodeCharClass.Create;
            if rfSINGLELINE in Flags then begin
             UnicodeCharClass.AddRange($00000000,$ffffffff);
            end else begin
  
positive.code:        end;
         b:=ParseClassAtom;
         if (not b.IsSingle) and (assigned(b.First) and (a.First.Lo<=a.First.Hi)) then begin
          c:=TFLREUnicodeCharClass.Create(self);
          c.AddChar(b.First.Lo);
          c.Canonicalized:=b.Canonicalized;
          c.Inverted:=b.Inverted;
  
negative.code:        function EqualsTo(OtherObject:TFLREUnicodeCharClass):boolean;
       end;
  
  var LowerUpperCaseUnicodeCharClass:TFLREUnicodeCharClass;
  
  constructor TFLREUnicodeCharClassRange.Create(ACharClass:TFLREUnicodeCharClass;ALo,AHi:longword);
  begin
   inherited Create;
  