anchor.diff:      Offsets: TCPFOffsets;
       QueueLast: PFloodSectorRec;
       Pool: PFloodSectorRec;
  -    PoolLast: PFloodSectorRec;
  +    PoolMarker: PFloodSectorRec;
       SectorValues: NativeUInt;
     end;
  +
  +const
  +  SECTORS_MAX_CHILDS = 4;
  +  
   
   procedure FillFloodSectorRec(var Result: TFloodSectorRec;
     Cell: PCPFCell; Sector: PByte{$ifdef LARGEINT}; NodeBuffers: PCPFNodeBuffers{$endif});
  
positive.code:           Inc(Flags);
            Inc(Flags, Offset);
          end;
          Mask := (Mask xor Flags) and -8;
          Offset := Flags and -8;
          Inc(Flags);
          Inc(Flags, Offset);
  
          // check child
          Offset := Storage.Offsets[Flags and 7];
  
negative.code: end;
  
  
  initialization
    {$ifdef CPF_GENERATE_LOOKUPS}
      GenerateLookups;
  