anchor.diff:       TFLREMultiCaptures=array of TFLRECaptures;
   
        TFLREPrefixCharClasses=array[0..MaxPrefixCharClasses-1] of TFLRECharClass;
  -    
  +
  +     PFLREIntegerArray=^TFLREIntegerArray;
  +     TFLREIntegerArray=array[0..(2147483647 div sizeof(longint))-1] of longint;
  +
  +     TFLREIntegerList=class
  +      private
  +       List:PFLREIntegerArray;
  +       CountItems:longint;
  +       Allocated:longint;
  +       IsSorted:boolean;
  +       function GetItem(Index:longint):longint;
  +       procedure SetItem(Index:longint;Value:longint);
  +       function GetItemPointer(Index:longint):pointer;
  +      public
  +       constructor Create;
  +       destructor Destroy; override;
  +       procedure Clear;
  +       function Add(Item:longint):longint;
  +       function AddSorted(Item:longint):longint;
  +       procedure Insert(Index:longint;Item:longint);
  +       procedure Delete(Index:longint);
  +       function Remove(Item:longint):longint;
  +       function Find(Item:longint):longint;
  +       function IndexOf(Item:longint):longint;
  +       procedure Exchange(Index1,Index2:longint);
  +       procedure SetCapacity(NewCapacity:longint);
  +       procedure SetCount(NewCount:longint);
  +       procedure Sort;
  +       property Count:longint read CountItems;
  +       property Capacity:longint read Allocated write SetCapacity;
  +       property Item[Index:longint]:longint read GetItem write SetItem; default;
  +       property Items[Index:longint]:longint read GetItem write SetItem;
  +       property PItems[Index:longint]:pointer read GetItemPointer;
  +     end;
  +
        TFLREStringIntegerPairHashMapData=int64;
   
        PFLREStringIntegerPairHashMapEntity=^TFLREStringIntegerPairHashMapEntity;
  
positive.code: 
  procedure TFLRE.CompileFixedStringSearch;
  var c:ansichar;
      i,j,k:integer;
      HasMatch:boolean;
  begin
   FixedStringLength:=length(FixedString);
  
negative.code: end;
  
  function CompareDFAState(const a,b:PFLREDFAState):boolean;
  var i:longint;
  begin
   result:=a=b;
   if not result then begin
  