anchor.diff:        next_excluded:
           Node := Node.Next;
           Index := Cardinal(Node.Coordinates);
  -      until (Cardinal(Index) and FLAG_EXCLUDED_COORDINATES <> FLAG_EXCLUDED_COORDINATES);
  +      until (Cardinal(Index) and COORDINATES_FLAG_EXCLUDED <> COORDINATES_FLAG_EXCLUDED);
       end else
       begin
         // flag unattainables
  
positive.code: 
    fill_index:
      Index := (NativeUInt(Item) - NativeUInt(Excludes)) shr 5{div SizeOf(TCPFExcluded)};
      Index := (Index and MASK_BITS_15) + ((Index shl 1) and MASK_BITS_16_30) + NativeUInt(FLAG_EXCLUDED_COORDINATES);
      Cardinal(Node.Coordinates) := Index;
  
    next_point:
  
negative.code: 
    SECTOR_EMPTY = 0;
    SECTOR_PATHLESS = 1;
  
    COORDINATES_FLAG_EXCLUDED = Cardinal((1 shl 31) + (1 shl 15));
    COORDINATES_MASK_EXCLUDED_LOW = (1 shl 15) - 1;
    COORDINATES_MASK_EXCLUDED_HIGH = COORDINATES_MASK_EXCLUDED_LOW shl 16;
  
    {$ifdef LARGEINT}
      HIGH_NATIVE_BIT = 63;
  