anchor.diff:              X := X - ((Mask xor PNativeInt(@Store.Info.FinishPoint)^) and Y and 1) - (Y shr 1);
               ChildNode.SortValue := {$ifdef CPUX86}ChildNode.{$endif}Path +
                  Cardinal(Store.Info.HeuristicsLine * (Y + (X and ((X shr HIGH_NATIVE_BIT) - 1))));
  -          end; *)
  +          end;
           end;
         end else
         begin
  
positive.code:           dX := dX - (Mask shr 16);
  
            // Way
            Mask := 2*Byte(dY > 0);
            X := 2*Byte(dX > 0);
            Inc(Mask, dY shr HIGH_NATIVE_BIT);
            Inc(X, dX shr HIGH_NATIVE_BIT);
            Mask := 3 * Mask;
            ChildNode.NodeInfo := ChildNode.NodeInfo or Cardinal((X - 1 + {3 *} Mask) shl 3);
  
            // Y := Abs(dY)
            Mask := -(dY shr HIGH_NATIVE_BIT);
  
negative.code:         {$endif}
  
          // child node info (with new parent bits)
          ChildNodeInfo := ChildNode.NodeInfo;
          ParentBits := ParentBits + (ChildNodeInfo and PARENT_BITS_CLEAR_MASK);
          if (ParentBits and ((ChildNodeInfo and $ff00) shl 8) = 0) then goto nextchild_continue;
  
  