anchor.diff:  
        TFLREPrefixCharClasses=array[0..MaxPrefixCharClasses-1] of TFLRECharClass;
       
  -     TFLREStringIntegerPairHashMapData=longint;
  +     TFLREStringIntegerPairHashMapData=int64;
   
        PFLREStringIntegerPairHashMapEntity=^TFLREStringIntegerPairHashMapEntity;
        TFLREStringIntegerPairHashMapEntity=record
  
positive.code: {$ifend}
  {$endif}
  
       PFLREFlag=^TFLREFlag;
       TFLREFlag=(rfCASEINSENSITIVE,
                  rfSINGLELINE,
  
negative.code:        inc(SourcePosition);
         if SourcePosition<=SourceLength then begin
          case Source[SourcePosition] of
           'b','y':begin
            result:=NewNode(ntBRK,nil,nil,nil,0);
            inc(SourcePosition);
           end;
           'B','Y':begin
            result:=NewNode(ntNBRK,nil,nil,nil,0);
            inc(SourcePosition);
           end;
           'A':begin
            if rfMULTILINE in Flags then begin
             result:=NewNode(ntBOL,nil,nil,nil,0);
            end else begin
             result:=NewNode(ntBOT,nil,nil,nil,0);
            end;
            inc(SourcePosition);
           end;
           'Z':begin
            if rfMULTILINE in Flags then begin
             result:=NewNode(ntEOL,nil,nil,nil,0);
            end else begin
             result:=NewNode(ntEOT,nil,nil,nil,0);
            end;
            inc(SourcePosition);
           end;
           'k':begin
            result:=NewNode(ntBOT,nil,nil,nil,0);
            inc(SourcePosition);
           end;
           'z':begin
            result:=NewNode(ntEOT,nil,nil,nil,0);
            inc(SourcePosition);
           end;
           else begin
            if (rfUTF8 in Flags) and (byte(ansichar(Source[SourcePosition]))>=$80) then begin
             UnicodeChar:=UTF8CodeUnitGetCharAndIncFallback(Source,SourcePosition);
             result:=NewUnicodeChar(UnicodeChar);
            end else begin
             UnicodeCharClass:=nil;
             try
              UnicodeCharClass:=ParseClassEscape(true);
              if assigned(UnicodeCharClass) then begin
               result:=NewUnicodeCharClass(UnicodeCharClass);
              end else begin
               raise EFLRE.Create('Syntax error');
              end;
             finally
              FreeAndNil(UnicodeCharClass);
             end;
            end;
           end;
          end;
         end else begin
          raise EFLRE.Create('Syntax error');
         end;
        end;
        '[':begin
         UnicodeCharClass:=nil;
         try
          if TestClassPOSIXCharacterClass then begin
           UnicodeCharClass:=TFLREUnicodeCharClass.Create(self);
           if not ParseClassPOSIXCharacterClass(UnicodeCharClass,true) then begin
            raise EFLRE.Create('Syntax error');
           end;
          end else begin
           UnicodeCharClass:=ParseCharacterClass;
          end;
          if assigned(UnicodeCharClass) then begin
           result:=NewUnicodeCharClass(UnicodeCharClass);
          end else begin
           raise EFLRE.Create('Syntax error');
          end;
         finally
          FreeAndNil(UnicodeCharClass);
         end;
        end;
        '.':begin
  