caio/clang-p2996
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

[flang] Add UNSIGNED (#113504)

Browse Source 
Implement the UNSIGNED extension type and operations under control of a
language feature flag (-funsigned).

This is nearly identical to the UNSIGNED feature that has been available
in Sun Fortran for years, and now implemented in GNU Fortran for
gfortran 15, and proposed for ISO standardization in J3/24-116.txt.

See the new documentation for details; but in short, this is C's
unsigned type, with guaranteed modular arithmetic for +, -, and *, and
the related transformational intrinsic functions SUM & al.
This commit is contained in:
Peter Klausler
2024-12-18 07:02:37 -08:00
committed by GitHub
parent 6f0e9c4a56
commit fc97d2e68b
98 changed files with 3293 additions and 746 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
flang/runtime/type-code.cpp
View File

@@ -33,6 +33,25 @@ RT_API_ATTRS TypeCode::TypeCode(TypeCategory f, int kind) {
break;
}
break;
case TypeCategory::Unsigned:
switch (kind) {
case 1:
raw_ = CFI_type_uint8_t;
break;
case 2:
raw_ = CFI_type_uint16_t;
break;
case 4:
raw_ = CFI_type_uint32_t;
break;
case 8:
raw_ = CFI_type_uint64_t;
break;
case 16:
raw_ = CFI_type_uint128_t;
break;
}
break;
case TypeCategory::Real:
switch (kind) {
case 2:
@@ -203,6 +222,16 @@ TypeCode::GetCategoryAndKind() const {
return std::make_pair(TypeCategory::Character, 2);
case CFI_type_char32_t:
return std::make_pair(TypeCategory::Character, 4);
case CFI_type_uint8_t:
return std::make_pair(TypeCategory::Unsigned, 1);
case CFI_type_uint16_t:
return std::make_pair(TypeCategory::Unsigned, 2);
case CFI_type_uint32_t:
return std::make_pair(TypeCategory::Unsigned, 4);
case CFI_type_uint64_t:
return std::make_pair(TypeCategory::Unsigned, 8);
case CFI_type_uint128_t:
return std::make_pair(TypeCategory::Unsigned, 16);
default:
return Fortran::common::nullopt;
}