anchor.diff:   FreeAndNil(StateCache);
    SetLength(StackInstructions,0);
    SetLength(InstructionGenerations,0);
  + WorkQueues[0].Free;
  + WorkQueues[1].Free;
    inherited Destroy;
   end;
   
  
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;
  