mirrors/llvm-project
0
0
Fork 0
mirror of https://github.com/llvm/llvm-project.git synced 2025-04-25 00:56:04 +00:00
Code Issues Projects Releases Wiki Activity

[flang] Bugfixing and review comments.

Browse Source 
Original-commit: flang-compiler/f18@29cabc7100
Reviewed-on: https://github.com/flang-compiler/f18/pull/25
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2018-03-13 16:47:48 -07:00
parent 79d044e9b5
commit 47dbbda25d
2 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flang/lib/parser/characters.cc
View File

@ -5,7 +5,7 @@ namespace parser {
std::optional<int> UTF8CharacterBytes(const char *p) {
if ((*p & 0x80) == 0) {
return 1;
return {1};
}
if ((*p & 0xf8) == 0xf0) {
if ((p[1] & 0xc0) == 0x80 && (p[2] & 0xc0) == 0x80 &&

14
flang/lib/parser/unparse.cc
View File

@ -1633,15 +1633,15 @@ public:
}
bool Pre(const EndProgramStmt &x) { // R1403
Outdent(), Put("END PROGRAM"), Walk(" ", x.v);
return true;
return false;
}
bool Pre(const ModuleStmt &) { // R1405
Put("MODULE "), Indent();
return true;
}
bool Pre(const EndModuleStmt &) { // R1406
Outdent(), Put("END MODULE");
return true;
bool Pre(const EndModuleStmt &x) { // R1406
Outdent(), Put("END MODULE"), Walk(" ", x.v);
return false;
}
bool Pre(const UseStmt &x) { // R1409
Put("USE"), Walk(", ", x.nature), Put(" :: "), Walk(x.moduleName);
@ -1667,9 +1667,9 @@ public:
Walk(std::get<Name>(x.t)), Walk(":", std::get<std::optional<Name>>(x.t));
return false;
}
bool Pre(const EndSubmoduleStmt &) { // R1419
Outdent(), Put("END SUBMODULE");
return true;
bool Pre(const EndSubmoduleStmt &x) { // R1419
Outdent(), Put("END SUBMODULE"), Walk(" ", x.v);
return false;
}
bool Pre(const BlockDataStmt &x) { // R1421
Put("BLOCK DATA"), Walk(" ", x.v), Indent();