anchor.diff:        while LCount > 0 do
         begin
           Product := UInt64(PLeft[0]) * CurrentRightLimb + PDest[0] + TUInt64(Product).Hi;
  -        PDest[0] := TUInt64(Product).Lo;
  +        PDest[0] := TLimb(Product);
           Product := UInt64(PLeft[1]) * CurrentRightLimb + PDest[1] + TUInt64(Product).Hi;
           PDest[1] := TUInt64(Product).Lo;
           Product := UInt64(PLeft[2]) * CurrentRightLimb + PDest[2] + TUInt64(Product).Hi;
  
positive.code: 
      Sum := UInt64(Left[3]) + Right[3] + (Sum shr 32);
      Result[3] := TLimb(Sum);
  
      Inc(Left, CUnrollIncrement);
      Inc(Right, CUnrollIncrement);
  
negative.code: 
    while LCount > 0 do
    begin
    {$IFDEF CPU64BITS}
      Sum := UInt64(Left[0]) + (Sum shr 32);
      Result[0] := TLimb(Sum);
  
  