anchor.diff:       Node:=nil;
       end;
       if not assigned(Node) then begin
  -     Node:=NewNOP;
  +     Node:=NewEmptyMatch;
       end;
       SkipFreeSpacingWhiteSpace;
       if assigned(result) then begin
  
positive.code:    end;
    end;
    begin
     f:=UnicodeBlockHashMap[Name];
     if f>0 then begin
      UnicodeCharClass.AddUnicodeBlock(f,IgnoreCase);
      UnicodeCharClass.Canonicalized:=true;
      exit;
     end;
    end;
    if Name='alnum' then begin
     if rfUTF8 in Flags then begin
      UnicodeCharClass.AddUnicodeCategory((1 shl FLREUnicodeCategoryLu) or (1 shl FLREUnicodeCategoryLl) or (1 shl FLREUnicodeCategoryLt) or (1 shl FLREUnicodeCategoryNd),IgnoreCase);
     end else begin
  
negative.code:        constructor Create;
         destructor Destroy; override;
         procedure Clear;
         procedure LowerCaseAssignFrom(const HashMap:TFLREStringIntegerPairHashMap);
         function Add(const Key:TFLRERawByteString;Value:TFLREStringIntegerPairHashMapData):PFLREStringIntegerPairHashMapEntity;
         function Get(const Key:TFLRERawByteString;CreateIfNotExist:boolean=false):PFLREStringIntegerPairHashMapEntity;
         function Delete(const Key:TFLRERawByteString):boolean;
  