anchor.diff:  function TFLRE.NewCharClass(const CharClass:TFLRECharClass):longint;
   var Counter:longint;
   begin
  - result:=-1;
  - for Counter:=0 to CountCharClasses-1 do begin
  -  if CharClasses[Counter]^=CharClass then begin
  -   result:=Counter;
  -   break;
  -  end;
  - end;
  + result:=CharClassHashMap.GetValue(CharClass);
    if result<0 then begin
     result:=CountCharClasses;
     inc(CountCharClasses);
  
positive.code:  Add(Key,Value);
  end;
  
  type TFLREUnicodeCharClass=class;
  
       TFLREUnicodeCharClassRange=class
  
negative.code:        property Values[const Key:ansistring]:TFLREStringIntegerPairHashMapData read GetValue write SetValue; default;
       end;
  
       TFLRECharClassHashMapData=int64;
  
       PFLRECharClassHashMapEntity=^TFLRECharClassHashMapEntity;
       TFLRECharClassHashMapEntity=record
        Key:TFLRECharClass;
        Value:TFLRECharClassHashMapData;
       end;
  
       TFLRECharClassHashMapEntities=array of TFLRECharClassHashMapEntity;
  
       TFLRECharClassHashMapEntityIndices=array of longint;
  
       TFLRECharClassHashMap=class
        private
         function FindCell(const Key:TFLRECharClass):longword;
         procedure Resize;
        protected
         function GetValue(const Key:TFLRECharClass):TFLRECharClassHashMapData;
         procedure SetValue(const Key:TFLRECharClass;const Value:TFLRECharClassHashMapData);
        public
         RealSize:longint;
         LogSize:longint;
         Size:longint;
         Entities:TFLRECharClassHashMapEntities;
         EntityToCellIndex:TFLRECharClassHashMapEntityIndices;
         CellToEntityIndex:TFLRECharClassHashMapEntityIndices;
         constructor Create;
         destructor Destroy; override;
         procedure Clear;
         function Add(const Key:TFLRECharClass;Value:TFLRECharClassHashMapData):PFLRECharClassHashMapEntity;
         function Get(const Key:TFLRECharClass;CreateIfNotExist:boolean=false):PFLRECharClassHashMapEntity;
         function Delete(const Key:TFLRECharClass):boolean;
         property Values[const Key:TFLRECharClass]:TFLRECharClassHashMapData read GetValue write SetValue; default;
       end;
  
       TFLREMultiSubMatches=array of longint;
  
       TFLREInstructionGenerations=array of int64;
  