anchor.diff:   SetLength(CharClasses,0);
    CountCharClasses:=0;
   
  + CharClassHashMap.Free;
  +
    SetLength(LookAssertionStrings,0);
   
    if assigned(OnePassNFANodes) then begin
  
positive.code:  Add(Key,Value);
  end;
  
  type TFLREUnicodeCharClass=class;
  
       TFLREUnicodeCharClassRange=class
  
negative.code: function TFLRE.NewCharClass(const CharClass:TFLRECharClass):longint;
  var Counter:longint;
  begin
   result:=CharClassHashMap.GetValue(CharClass);
   if result<0 then begin
    result:=CountCharClasses;
    inc(CountCharClasses);
  