anchor.diff:      function CellInformation(const X, Y: Word): string;
       function NodeInformation(const Node: PCPFNode): string;
       function HotPoolInformation: string;
  -    procedure ClipHotPoolInformation;
       procedure SaveHotPoolToFile(const FileName: string = 'HotPool.txt');
     {$endif}
     public
  
positive.code:            , KOL, err
           {$else}
             , SysUtils
             {$if Defined(CPFDBG) or Defined(CPF_GENERATE_LOOKUPS)}
             , Classes, Clipbrd
             {$ifend}
           {$endif}
         {$endif};
  
  
negative.code:         // way (child list)
          if (WayBits <> -1) then
          begin
            ChildList := @CHILD_ARRAYS[WayBits];
            CellInfo := CellInfo + Format(', way: %d%d%d',
              [(ChildList[0] shr 4) and 7, (ChildList[1] shr 4) and 7, (ChildList[2] shr 4) and 7]);
          end;
  