anchor.diff:        inc(Count);
        end;
       end;
  -    if CurrentPosition=0 then begin
  -     DFAFastBeginningSearch:=(Count>0) and (Count=1);
  -    end;
  -    if (Count>0) and (Count<=128) then begin
  -     inc(CountObviousPrefixCharClasses);
  -    end;
  -   end;
  +    inc(TotalCount,Count);
  +   end;
  +   if CountPrefixCharClasses>0 then begin
  +    AveragePrefixCharClassesVariance:=(TotalCount+((CountPrefixCharClasses+1) div 2)) div CountPrefixCharClasses;
  +   end else begin
  +    AveragePrefixCharClassesVariance:=255;
  +   end;
  +   DFAFastBeginningSearch:=AveragePrefixCharClassesVariance<32;
   
      CompilePrefixPattern;
   
  
positive.code:    end;
    end;
   end;
  var ThreadIndex,Count,Index:longint;
      CurrentThreadList,NewThreadList,TemporaryThreadList:PThreadList;
      CurrentThread:PThread;
      Instruction:PFLREInstruction;
  
negative.code:     end;
     end;
  
     TotalCount:=0;
     for CurrentPosition:=0 to CountPrefixCharClasses-1 do begin
      Count:=0;
      for CurrentChar:=#0 to #255 do begin
  