anchor.diff:  
     while LCount > 0 do
     begin
  +  {$IFDEF CPU64BITS}
       Sum := UInt64(Left[0]) + (Sum shr 32);
       Result[0] := TLimb(Sum);
   
  
positive.code:   Bytes := (Bytes + 7) shr 3;
    if FSize > 0 then
    begin
      Neg := FData;
      ExtraByte := $00;
    end
    else
    begin
      SetLength(Neg, Size);
      InternalNegate(PLimb(FData), PLimb(Neg), Size);
      ExtraByte := $FF;
    end;
    SetLength(Result, Bytes + Byte(Bits = 0));
    Move(Neg[0], Result[0], Bytes);
    if Bits = 0 then
      Result[Bytes] := ExtraByte;
  end;
  
negative.code: 
  {$IFDEF PUREPASCAL}
  class procedure BigInteger.InternalAddPurePascal(Left, Right, Result: PLimb; LSize, RSize: Integer);
  var
    I: Integer;
    PTemp: PLimb;
  