anchor.diff:    LookupLine(Format(FmtStr, Args));
   end;
   
  -procedure AddChildArray(WayX, WayY: Integer; Finalize: Boolean);
  +procedure AddChildArray(WayX, WayY: Integer; dXSmall, Finalize: Boolean);
   const
     CHILD_VALUES: array[0..7] of Word = (
       ((1 shl 0) shl 8) or (0 shl 4),
  
positive.code:   WayX := -WayX;
    WayY := -WayY;
  
    // way child
    if (WayX < 0) then
    begin
      if (WayY < 0) then
      begin
        WayChild := 0;
      end else
      if (WayY = 0) then
      begin
        WayChild := 7;
      end else
      // (WayY > 0) then
      begin
        WayChild := 6;
      end;
    end else
    if (WayX = 0) then
    begin
      if (WayY < 0) then WayChild := 1
      else WayChild := 4;
    end else
    // (WayX > 0) then
    begin
      if (WayY < 0) then
      begin
        WayChild := 2;
      end else
      if (WayY = 0) then
      begin
        WayChild := 3;
      end else
      // (WayY > 0) then
      begin
        WayChild := 4;
      end;
    end;
  
    Child := @ChildList[0];
    for i := 0 to 4 do
    begin
      N1 := (WayChild + i + 8) and 7;
      N2 := (WayChild - i + 8) and 7;
  
      if (N1 = N2) then
      begin
        AddChild(N1);
      end else
      if ((N2 = 3) or (N2 = 7)) and (i <> 2) then
      begin
        AddChild(N2);
        AddChild(N1);
      end else
      begin
        AddChild(N1);
        AddChild(N2);
      end;
    end;
  
    S := Format(' ($%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x, $%0.4x)',
      [ChildList[0], ChildList[1], ChildList[2], ChildList[3],
       ChildList[4], ChildList[5], ChildList[6], ChildList[7]]);
  
negative.code:   PATHLENGTH_LIMIT = 6666667;
    NATTANABLE_LENGTH_LIMIT = not Cardinal(PATHLENGTH_LIMIT);
    SORTVALUE_LIMIT = NATTANABLE_LENGTH_LIMIT - 1;
    FLAG_DX_SMALLER = 1 shl 6;
    FLAG_ATTAINABLE = 1 shl 6;
    FLAG_KNOWN_PATH = 1 shl 7;
    FLAGS_CLEAN_MASK = Integer(not ((7 shl 3) or (FLAG_ATTAINABLE or FLAG_DX_SMALLER) or FLAG_KNOWN_PATH));
    PATHLESS_TILE_WEIGHT = High(Cardinal) shr 1;
  
    {$ifdef LARGEINT}
  