anchor.diff:    Dec(Top, Ord(X <> 0));
   
     // each cell loop
  -  X := MaxI + 1{Width};
  +  X := MaximumI + 1{Width};
     Inc(Cell, Top * X{Width} + Left);
     CellLineOffset := (X{Width} - (Right - Left)) * SizeOf(TCPFCell);
     // for j := Top to Bottom - 1 do
  
positive.code:     procedure AddHeuristedNodes(const First, Last: PCPFNode);
      procedure ReleaseAttainableNodes;
      procedure ReleaseHeuristedNodes;
      // procedure ReleaseAllocatedNodes;
    {$ifdef CPFLIB}
    public
      procedure Destroy;
  
negative.code:   else
    if (FTileDefaultWeight < FTileWeightMinimum) then FTileDefaultWeight := FTileWeightMinimum;
    if (FTileDefaultWeightDiagonal < FTileWeightMinimum) then FTileDefaultWeightDiagonal := FTileWeightMinimum;
    FActualInfo.Weights.Count := 255;
  
    // internal buffers
  