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
97
98
99
100
101
102
103
104
105
106
107
108
|
/*
* Copyright 2010-2012, The Android Open Source Project
*
* Licensed under the Apache License, Version 2.0 (the "License");
* you may not use this file except in compliance with the License.
* You may obtain a copy of the License at
*
* http://www.apache.org/licenses/LICENSE-2.0
*
* Unless required by applicable law or agreed to in writing, software
* distributed under the License is distributed on an "AS IS" BASIS,
* WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
* See the License for the specific language governing permissions and
* limitations under the License.
*/
#include "slang_rs_export_var.h"
#include "clang/AST/ASTContext.h"
#include "clang/AST/Type.h"
#include "llvm/ADT/APSInt.h"
#include "slang_rs_context.h"
#include "slang_rs_export_type.h"
namespace slang {
RSExportVar::RSExportVar(RSContext *Context,
const clang::VarDecl *VD,
const RSExportType *ET)
: RSExportable(Context, RSExportable::EX_VAR),
mName(VD->getName().data(), VD->getName().size()),
mET(ET),
mIsConst(false),
mIsUnsigned(false),
mArraySize(0),
mNumInits(0) {
// mInit - Evaluate initializer expression
const clang::Expr *Initializer = VD->getAnyInitializer();
if (Initializer != nullptr) {
switch (ET->getClass()) {
case RSExportType::ExportClassPrimitive:
case RSExportType::ExportClassVector: {
Initializer->EvaluateAsRValue(mInit, Context->getASTContext());
break;
}
case RSExportType::ExportClassPointer: {
if (Initializer->isNullPointerConstant(Context->getASTContext(),
clang::Expr::NPC_ValueDependentIsNotNull)) {
mInit.Val = clang::APValue(llvm::APSInt(1));
} else {
if (!Initializer->EvaluateAsRValue(mInit, Context->getASTContext())) {
Context->ReportError(Initializer->getExprLoc(),
"initializer is not an R-value");
}
}
break;
}
case RSExportType::ExportClassConstantArray: {
const clang::InitListExpr *IList =
static_cast<const clang::InitListExpr*>(Initializer);
if (!IList) {
Context->ReportError(VD->getLocation(),
"Unable to find initializer list");
break;
}
const RSExportConstantArrayType *ECAT =
static_cast<const RSExportConstantArrayType*>(ET);
mArraySize = ECAT->getSize();
mNumInits = IList->getNumInits();
for (unsigned int i = 0; i < mNumInits; i++) {
clang::Expr::EvalResult tempInit;
if (!IList->getInit(i)->EvaluateAsRValue(tempInit,
Context->getASTContext())) {
Context->ReportError(IList->getInit(i)->getExprLoc(),
"initializer is not an R-value");
}
mInitArray.push_back(tempInit);
}
break;
}
case RSExportType::ExportClassMatrix:
case RSExportType::ExportClassRecord: {
Context->ReportError(
VD->getLocation(),
"Reflection of initializer to variable '%0' (of type "
"'%1') is unsupported currently.")
<< mName << ET->getName();
break;
}
default: {
slangAssert(false && "Unknown class of type");
}
}
}
clang::QualType QT = VD->getTypeSourceInfo()->getType();
if (!QT.isNull()) {
mIsConst = QT.isConstQualified();
mIsUnsigned = QT->hasUnsignedIntegerRepresentation();
if (QT == Context->getASTContext().BoolTy) {
mIsUnsigned = false;
}
}
}
} // namespace slang
|
