Mercurial > hg > CbC > CbC_llvm
diff flang/lib/Decimal/binary-to-decimal.cpp @ 236:c4bab56944e8 llvm-original
LLVM 16
author | kono |
---|---|
date | Wed, 09 Nov 2022 17:45:10 +0900 |
parents | 79ff65ed7e25 |
children |
line wrap: on
line diff
--- a/flang/lib/Decimal/binary-to-decimal.cpp Wed Jul 21 10:27:27 2021 +0900 +++ b/flang/lib/Decimal/binary-to-decimal.cpp Wed Nov 09 17:45:10 2022 +0900 @@ -9,6 +9,7 @@ #include "big-radix-floating-point.h" #include "flang/Decimal/decimal.h" #include <cassert> +#include <cfloat> #include <string> namespace Fortran::decimal { @@ -310,7 +311,6 @@ more.Next(); } number.Minimize(Big{less, rounding}, Big{more, rounding}); - } else { } return number.ConvertToDecimal(buffer, size, flags, digits); } @@ -350,14 +350,14 @@ rounding, Fortran::decimal::BinaryFloatingPointNumber<53>(x)); } -#if LONG_DOUBLE == 80 +#if LDBL_MANT_DIG == 64 ConversionToDecimalResult ConvertLongDoubleToDecimal(char *buffer, std::size_t size, enum DecimalConversionFlags flags, int digits, enum FortranRounding rounding, long double x) { return Fortran::decimal::ConvertToDecimal(buffer, size, flags, digits, rounding, Fortran::decimal::BinaryFloatingPointNumber<64>(x)); } -#elif LONG_DOUBLE == 128 +#elif LDBL_MANT_DIG == 113 ConversionToDecimalResult ConvertLongDoubleToDecimal(char *buffer, std::size_t size, enum DecimalConversionFlags flags, int digits, enum FortranRounding rounding, long double x) {