Changeset View
Changeset View
Standalone View
Standalone View
flang/lib/Evaluate/target.cpp
| Show All 10 Lines | |||||
| #include "flang/Evaluate/common.h" | #include "flang/Evaluate/common.h" | ||||
| #include "flang/Evaluate/type.h" | #include "flang/Evaluate/type.h" | ||||
| namespace Fortran::evaluate { | namespace Fortran::evaluate { | ||||
| Rounding TargetCharacteristics::defaultRounding; | Rounding TargetCharacteristics::defaultRounding; | ||||
| TargetCharacteristics::TargetCharacteristics() { | TargetCharacteristics::TargetCharacteristics() { | ||||
| // TODO: Fill in the type information from command-line targeting information. | |||||
| auto enableCategoryKinds{[this](TypeCategory category) { | auto enableCategoryKinds{[this](TypeCategory category) { | ||||
| for (int kind{0}; kind < maxKind; ++kind) { | for (int kind{0}; kind < maxKind; ++kind) { | ||||
| if (CanSupportType(category, kind)) { | if (CanSupportType(category, kind)) { | ||||
| auto byteSize{static_cast<std::size_t>(kind)}; | auto byteSize{static_cast<std::size_t>(kind)}; | ||||
| if (category == TypeCategory::Real || | if (category == TypeCategory::Real || | ||||
| category == TypeCategory::Complex) { | category == TypeCategory::Complex) { | ||||
| if (kind == 3) { | if (kind == 3) { | ||||
| // non-IEEE 16-bit format (truncated 32-bit) | // non-IEEE 16-bit format (truncated 32-bit) | ||||
| ▲ Show 20 Lines • Show All 170 Lines • Show Last 20 Lines | |||||