maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Add -funparse-with-symbols to enable new behavior 

Original-commit: flang-compiler/f18@7ad44e7e33
Reviewed-on: https://github.com/flang-compiler/f18/pull/112
This commit is contained in:
Tim Keith 2018-06-26 15:40:52 -07:00
parent 89840b5087
commit f77f9309fc
1 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
flang/tools/f18/f18.cc
View File

@ -84,6 +84,7 @@ struct DriverOptions {
bool dumpProvenance{false};
bool dumpCookedChars{false};
bool dumpUnparse{false};
bool dumpUnparseWithSymbols{false};
bool dumpParseTree{false};
bool dumpSymbols{false};
bool debugResolveNames{false};
@ -201,24 +202,24 @@ std::string CompileFortran(
if (driver.measureTree) {
MeasureParseTree(parseTree);
}
if (driver.dumpParseTree) {
Fortran::semantics::DumpTree(std::cout, parseTree);
}
if (driver.dumpUnparse) {
if (driver.dumpSymbols) {
Fortran::semantics::ResolveNames(parseTree, parsing.cooked());
Fortran::semantics::UnparseWithSymbols(
std::cout, parseTree, driver.encoding);
} else {
Unparse(std::cout, parseTree, driver.encoding, true);
}
return {};
}
if (driver.debugResolveNames || driver.dumpSymbols) {
if (driver.debugResolveNames || driver.dumpSymbols ||
driver.dumpUnparseWithSymbols) {
Fortran::semantics::ResolveNames(parseTree, parsing.cooked());
if (driver.dumpSymbols) {
Fortran::semantics::DumpSymbols(std::cout);
}
if (driver.dumpUnparseWithSymbols) {
Fortran::semantics::UnparseWithSymbols(
std::cout, parseTree, driver.encoding);
return {};
}
}
if (driver.dumpParseTree) {
Fortran::semantics::DumpTree(std::cout, parseTree);
}
if (driver.dumpUnparse) {
Unparse(std::cout, parseTree, driver.encoding, true /*capitalize*/);
return {};
}
if (driver.parseOnly) {
return {};
@ -365,6 +366,8 @@ int main(int argc, char *const argv[]) {
options.instrumentedParse = true;
} else if (arg == "-funparse") {
driver.dumpUnparse = true;
} else if (arg == "-funparse-with-symbols") {
driver.dumpUnparseWithSymbols = true;
} else if (arg == "-fparse-only") {
driver.parseOnly = true;
} else if (arg == "-c") {
@ -397,6 +400,7 @@ int main(int argc, char *const argv[]) {
<< " -fparse-only parse only, no output except messages\n"
<< " -funparse parse & reformat only, no code "
"generation\n"
<< " -funparse-with-symbols parse, resolve symbols, and unparse\n"
<< " -fdebug-measure-parse-tree\n"
<< " -fdebug-dump-provenance\n"
<< " -fdebug-dump-parse-tree\n"