anchor.diff:    // terminate?                                                                                            //
     ///////////////////////////////////////////////////////////////////////////////////////////////////////////
   
  -  if Right.FValue = BigInteger.Zero then
  +  if Right.FValue.IsZero then
       Error(ecDivByZero, []);
     TargetScale := Left.Scale - Right.Scale;
     if Left.FValue.IsZero then
  
positive.code: 
    Value.FScale := LNumDecimals;
    Value.FValue := BigInteger(LIntValue);
    if LIsNegative then
      Value.FValue.SetSign(-1);
    Result := True;
  end;
  
negative.code: {$OVERFLOWCHECKS OFF}
  
  uses
    Velthuis.ExactFloatStrings, Velthuis.FloatUtils, Velthuis.Numerics;
  
  resourcestring
    SErrorBigDecimalParsing = '''%s'' is not valid BigDecimal value.';
  