llvm-project/flang/runtime/type-code.cpp

Ignoring revisions in .git-blame-ignore-revs. Click here to bypass and see the normal blame view.

97 lines
1.9 KiB
C++
Raw Normal View History

//===-- runtime/type-code.cpp ---------------------------------------------===//
//
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
// See https://llvm.org/LICENSE.txt for license information.
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
//
//===----------------------------------------------------------------------===//
#include "type-code.h"
namespace Fortran::runtime {
TypeCode::TypeCode(TypeCategory f, int kind) {
switch (f) {
case TypeCategory::Integer:
switch (kind) {
case 1:
raw_ = CFI_type_int8_t;
break;
case 2:
raw_ = CFI_type_int16_t;
break;
case 4:
raw_ = CFI_type_int32_t;
break;
case 8:
raw_ = CFI_type_int64_t;
break;
case 16:
raw_ = CFI_type_int128_t;
break;
}
break;
case TypeCategory::Real:
switch (kind) {
case 4:
raw_ = CFI_type_float;
break;
case 8:
raw_ = CFI_type_double;
break;
case 10:
case 16:
raw_ = CFI_type_long_double;
break;
}
break;
case TypeCategory::Complex:
switch (kind) {
case 4:
raw_ = CFI_type_float_Complex;
break;
case 8:
raw_ = CFI_type_double_Complex;
break;
case 10:
case 16:
raw_ = CFI_type_long_double_Complex;
break;
}
break;
case TypeCategory::Character:
switch (kind) {
case 1:
raw_ = CFI_type_char;
break;
case 2:
raw_ = CFI_type_char16_t;
break;
case 4:
raw_ = CFI_type_char32_t;
break;
}
break;
case TypeCategory::Logical:
switch (kind) {
case 1:
raw_ = CFI_type_Bool;
break;
case 2:
raw_ = CFI_type_int16_t;
break;
case 4:
raw_ = CFI_type_int32_t;
break;
case 8:
raw_ = CFI_type_int64_t;
break;
}
break;
case TypeCategory::Derived:
raw_ = CFI_type_struct;
break;
}
}
} // namespace Fortran::runtime