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
|
//===--- ModuleBuilder.cpp - Emit LLVM Code from ASTs ---------------------===//
//
// The LLVM Compiler Infrastructure
//
// This file is distributed under the University of Illinois Open Source
// License. See LICENSE.TXT for details.
//
//===----------------------------------------------------------------------===//
//
// This builds an AST and converts it to LLVM Code.
//
//===----------------------------------------------------------------------===//
#include "flang/CodeGen/ModuleBuilder.h"
#include "CodeGenModule.h"
#include "flang/AST/ASTContext.h"
#include "flang/AST/Decl.h"
#include "flang/AST/Expr.h"
#include "flang/Basic/Diagnostic.h"
#include "flang/Frontend/CodeGenOptions.h"
#include "llvm/ADT/StringRef.h"
#include "llvm/IR/DataLayout.h"
#include "llvm/IR/LLVMContext.h"
#include "llvm/IR/Module.h"
using namespace flang;
namespace {
using std::unique_ptr;
class CodeGeneratorImpl : public CodeGenerator {
DiagnosticsEngine &Diags;
std::unique_ptr<const llvm::DataLayout> TD;
ASTContext *Ctx;
const CodeGenOptions CodeGenOpts; // Intentionally copied in.
const TargetOptions Target;
protected:
std::unique_ptr<llvm::Module> M;
std::unique_ptr<CodeGen::CodeGenModule> Builder;
public:
CodeGeneratorImpl(DiagnosticsEngine &diags, const std::string& ModuleName,
const CodeGenOptions &CGO,
const TargetOptions &TO,
llvm::LLVMContext& C)
: Diags(diags), CodeGenOpts(CGO),
M(new llvm::Module(ModuleName, C)),
Target(TO) {}
virtual ~CodeGeneratorImpl() {}
virtual llvm::Module* GetModule() {
return M.get();
}
virtual llvm::Module* ReleaseModule() {
return M.release();
}
virtual void Initialize(ASTContext &Context) {
Ctx = &Context;
//M->setTargetTriple(Ctx->getTargetInfo().getTriple().getTriple());
//M->setDataLayout(Ctx->getTargetInfo().getTargetDescription());
M->setTargetTriple(Target.Triple);
TD.reset(new llvm::DataLayout(M.get()));
Builder.reset(new CodeGen::CodeGenModule(Context, CodeGenOpts, *M, *TD,
Diags));
}
virtual void HandleTranslationUnit(ASTContext &Ctx) {
if (Diags.hadErrors()) {
M.reset();
return;
}
auto TranslationUnit = Ctx.getTranslationUnitDecl();
auto I = TranslationUnit->decls_begin();
for(auto E = TranslationUnit->decls_end(); I!=E; ++I) {
if((*I)->getDeclContext() == TranslationUnit)
Builder->EmitTopLevelDecl(*I);
}
if (Builder)
Builder->Release();
}
};
}
void CodeGenerator::anchor() { }
CodeGenerator *flang::CreateLLVMCodeGen(DiagnosticsEngine &Diags,
const std::string& ModuleName,
const CodeGenOptions &CGO,
const TargetOptions &TO,
llvm::LLVMContext& C) {
return new CodeGeneratorImpl(Diags, ModuleName, CGO, TO, C);
}
|
