anchor.diff:          Offsets{$ifdef LARGEINT}, NodeBuffers{$endif});
       end;
   
  -    Mask := (Mask xor Flags) and $ff00;
  -    Offset := Flags and $ff00;
  +    Mask := (Mask xor Flags) and -8;
  +    Offset := Flags and -8;
       Inc(Flags);
       Inc(Flags, Offset);
     end;
  
positive.code: var
    Way, WayX, WayY: Integer;
    Child: Integer;
  begin
    LookupsText := TStringList.Create;
    try
  
negative.code:     NodeBuffers: PCPFNodeBuffers;
    {$endif}
  begin
    MaxI := Self.Width - 1;
    MaxJ := Self.Height - 1;
    Rounded := (Self.Kind = mkDiagonalEx);
    CellOffsets := @Self.FInfo.CellOffsets;
    Cell := @Self.FInfo.CellArray[0];
  