anchor.diff:   inherited Destroy;
   end;
   
  -function TFLREDFA.CacheState(const State:PFLREDFAState):PFLREDFAState; {$ifdef caninline}inline;{$endif}
  +function TFLREDFA.CacheState(const State:PFLREDFAState):PFLREDFAState;
   begin
   
    // Is it already cached?
  
positive.code:       n=TFLREUInt32($5052acdb);
  var b:PFLRERawByteChar;
      h,k:TFLREUInt32;
      p:{$ifdef fpc}TFLREUInt64{$else}TFLREInt64{$endif};
  begin
   h:=Len;
   k:=h+n+1;
  
negative.code:  result:=Process(RootNode);
  end;
  
  function TFLRE.IsWordChar(const CharValue:TFLREUInt32):boolean;
  begin
   if CharValue=$ffffffff then begin
    result:=false;
  