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
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
|
//===--- ExecuteCompilerInvocation.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
//
//===----------------------------------------------------------------------===//
//
// This file holds ExecuteCompilerInvocation(). It is split into its own file to
// minimize the impact of pulling in essentially everything else in Flang.
//
//===----------------------------------------------------------------------===//
#include "flang/Frontend/CompilerInstance.h"
#include "flang/Frontend/FrontendActions.h"
#include "clang/Driver/Options.h"
#include "llvm/Option/OptTable.h"
#include "llvm/Option/Option.h"
#include "llvm/Support/BuryPointer.h"
#include "llvm/Support/CommandLine.h"
namespace Fortran::frontend {
static std::unique_ptr<FrontendAction> CreateFrontendBaseAction(
CompilerInstance &ci) {
ActionKind ak = ci.frontendOpts().programAction_;
switch (ak) {
case InputOutputTest:
return std::make_unique<InputOutputTestAction>();
break;
case PrintPreprocessedInput:
return std::make_unique<PrintPreprocessedAction>();
break;
case ParseSyntaxOnly:
return std::make_unique<ParseSyntaxOnlyAction>();
case EmitObj:
return std::make_unique<EmitObjAction>();
break;
case DebugUnparse:
return std::make_unique<DebugUnparseAction>();
break;
case DebugUnparseNoSema:
return std::make_unique<DebugUnparseNoSemaAction>();
break;
case DebugUnparseWithSymbols:
return std::make_unique<DebugUnparseWithSymbolsAction>();
break;
case DebugDumpSymbols:
return std::make_unique<DebugDumpSymbolsAction>();
break;
case DebugDumpParseTree:
return std::make_unique<DebugDumpParseTreeAction>();
break;
case DebugDumpParseTreeNoSema:
return std::make_unique<DebugDumpParseTreeNoSemaAction>();
break;
case DebugDumpAll:
return std::make_unique<DebugDumpAllAction>();
break;
case DebugDumpProvenance:
return std::make_unique<DebugDumpProvenanceAction>();
break;
case DebugDumpParsingLog:
return std::make_unique<DebugDumpParsingLogAction>();
break;
case DebugMeasureParseTree:
return std::make_unique<DebugMeasureParseTreeAction>();
break;
case DebugPreFIRTree:
return std::make_unique<DebugPreFIRTreeAction>();
break;
case GetDefinition:
return std::make_unique<GetDefinitionAction>();
break;
case GetSymbolsSources:
return std::make_unique<GetSymbolsSourcesAction>();
break;
case InitOnly:
return std::make_unique<InitOnlyAction>();
break;
default:
break;
// TODO:
// case RunPreprocessor:
// case ParserSyntaxOnly:
// case EmitLLVM:
// case EmitLLVMOnly:
// case EmitCodeGenOnly:
// (...)
}
return 0;
}
std::unique_ptr<FrontendAction> CreateFrontendAction(CompilerInstance &ci) {
// Create the underlying action.
std::unique_ptr<FrontendAction> act = CreateFrontendBaseAction(ci);
if (!act)
return nullptr;
return act;
}
bool ExecuteCompilerInvocation(CompilerInstance *flang) {
// Honor -help.
if (flang->frontendOpts().showHelp_) {
clang::driver::getDriverOptTable().printHelp(llvm::outs(),
"flang-new -fc1 [options] file...", "LLVM 'Flang' Compiler",
/*Include=*/clang::driver::options::FC1Option,
/*Exclude=*/llvm::opt::DriverFlag::HelpHidden,
/*ShowAllAliases=*/false);
return true;
}
// Honor -version.
if (flang->frontendOpts().showVersion_) {
llvm::cl::PrintVersionMessage();
return true;
}
// Create and execute the frontend action.
std::unique_ptr<FrontendAction> act(CreateFrontendAction(*flang));
if (!act)
return false;
bool success = flang->ExecuteAction(*act);
return success;
}
} // namespace Fortran::frontend
|
