squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

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

Browse source 
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));