anchor.diff:   FreeAndNil(StateCache);
    SetLength(StackInstructions,0);
    SetLength(InstructionGenerations,0);
  + WorkQueues[0].Free;
  + WorkQueues[1].Free;
    inherited Destroy;
   end;
   
  
positive.code:        StatePoolFree:PFLREDFAStatePool;
         StatePoolSize:TFLREPtrUInt;
         StatePoolSizePowerOfTwo:TFLREPtrUInt;
         constructor Create(const AThreadLocalStorageInstance:TFLREThreadLocalStorageInstance);
         destructor Destroy; override;
         function CacheState(const State:PFLREDFAState):PFLREDFAState; {$ifdef caninline}inline;{$endif}
  
negative.code:        procedure Add(const ID:longint); reintroduce;
       end;
  
       TFLREDFAWorkQueues=array[0..1] of TFLREDFAWorkQueue;
  
       TFLRECharPatternBitMasks=array[ansichar] of longword;
  
       TFLREBoyerMooreNext=array of longint;
  