anchor.diff:  end;
   
   class function BigInteger.Add(const Left, Right: BigInteger): BigInteger;
  +begin
  +  Add(Left, Right, Result);
  +end;
  +
  +class procedure BigInteger.Add(const Left, Right: BigInteger; var Result: BigInteger);
   var
  -  Res: BigInteger;
  -  LSize, RSize: Integer;
  -  SignBit: Integer;
  +  LSize, RSize, ResSize: Integer;
  +  LSign, RSign, ResSign: Integer;
  +  NewSize: Integer;
     Comparison: Integer;
  +  ResData: TMagnitude;
   begin
     if not Assigned(Left.FData) then
     begin
  
positive.code:   else
      InternalDecrement(PLimb(Result.FData), (Result.FSize and SizeMask));
    Result.Compact;
  end;
  
  procedure BigInteger.FromString(const Value: string);
  begin
    if not TryParse(Value, Self) then
    begin
      Self.FData := nil;
      Self.FSize := 0;
    end;
  end;
  
  {$IFNDEF BIGINTEGERIMMUTABLE}
  
negative.code: 
          LEA     ECX,[@RestJumps]
          JMP     [ECX + EDX*TYPE Pointer]
  
  @RestJumps:
  
  