anchor.diff:     if not assigned(FixedStringBoyerMooreSkip) then begin
       GetMem(FixedStringBoyerMooreSkip,SizeOf(TFLRECharPatternBitMasks));
      end;
  -{$if true}
      FillChar(FixedStringBoyerMooreSkip^,SizeOf(TFLRECharPatternBitMasks),#$0);
  -{$else}
  -   for c:=low(ansichar) to high(ansichar) do begin
  -    FixedStringBoyerMooreSkip^[c]:=FixedStringLength;
  -   end;
  -{$ifend}
      for i:=1 to FixedStringLength do begin
       FixedStringBoyerMooreSkip^[FixedString[i]]:=((FixedStringLength-(i-1))-1);
      end;
  
positive.code:    if not assigned(FixedStringPatternBitMasks) then begin
      GetMem(FixedStringPatternBitMasks,SizeOf(TFLRECharPatternBitMasks));
     end;
  {$if true}
     FillChar(FixedStringPatternBitMasks^,SizeOf(TFLRECharPatternBitMasks),#$0);
  {$else}
     for c:=low(ansichar) to high(ansichar) do begin
      FixedStringPatternBitMasks^[c]:=0;
     end;
  {$ifend}
     for i:=1 to FixedStringLength do begin
      FixedStringPatternBitMasks^[FixedString[i]]:=FixedStringPatternBitMasks^[FixedString[i]] or (1 shl (i-1));
     end;
  
negative.code:   if not assigned(PrefixPatternBitMasks) then begin
     GetMem(PrefixPatternBitMasks,SizeOf(TFLRECharPatternBitMasks));
    end;
    FillChar(PrefixPatternBitMasks^,SizeOf(TFLRECharPatternBitMasks),#$0);
    for CurrentPosition:=0 to CountPrefixCharClasses-1 do begin
     for CurrentChar:=low(ansichar) to high(ansichar) do begin
      if CurrentChar in PrefixCharClasses[CurrentPosition] then begin
  