type-code.cpp
1.94 KB
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
//===-- 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