anchor.diff:         StatePoolFree:PFLREDFAStatePool;
          StatePoolSize:TFLREPtrUInt;
          StatePoolSizePowerOfTwo:TFLREPtrUInt;
  +       WorkQueues:TFLREDFAWorkQueues;
          constructor Create(const AThreadLocalStorageInstance:TFLREThreadLocalStorageInstance);
          destructor Destroy; override;
          function CacheState(const State:PFLREDFAState):PFLREDFAState; {$ifdef caninline}inline;{$endif}
  
positive.code:        procedure Add(const ID:longint); reintroduce;
       end;
  
       TFLRECharPatternBitMasks=array[ansichar] of longword;
  
       TFLREBoyerMooreNext=array of longint;
  
negative.code: 
   end;
  
   if Instance.DFAFast then begin
    WorkQueues[0]:=nil;
    WorkQueues[1]:=nil;
   end else begin
    WorkQueues[0]:=TFLREDFAWorkQueue.Create(Max(Instance.CountForwardInstructions,Instance.CountBackwardInstructions),Max(Instance.CountForwardInstructions,Instance.CountBackwardInstructions));
    WorkQueues[1]:=TFLREDFAWorkQueue.Create(Max(Instance.CountForwardInstructions,Instance.CountBackwardInstructions),Max(Instance.CountForwardInstructions,Instance.CountBackwardInstructions));
   end;
  
  end;
  
  destructor TFLREDFA.Destroy;
  