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

[flang] Observe line length limit when unparsing BOZ literals. 

Original-commit: flang-compiler/f18@2c2e4035b6
Reviewed-on: https://github.com/flang-compiler/f18/pull/85
Tree-same-pre-rewrite: false
This commit is contained in:
peter klausler 2018-05-09 15:48:17 -07:00
parent a1e4a80ae6
commit a726229c3a
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -347,7 +347,15 @@ public:
}
void Unparse(const BOZLiteralConstant &x) { // R764 - R767
Put("Z'");
out_ << std::hex << x.v << std::dec << '\'';
bool any{false};
for (int j{60}; j >= 0; j -= 4) {
int d = (x.v >> j) & 0xf;
if (d != 0 || any || j == 0) {
Put(d > 9 ? 'a' + d - 10 : '0' + d);
any = true;
}
}
Put('\'');
}
void Unparse(const AcValue::Triplet &x) { // R773
Walk(std::get<0>(x.t)), Put(':'), Walk(std::get<1>(x.t));