diff options
| author | Andre Kuhlenschmidt <andre.kuhlenschmidt@gmail.com> | 2025-09-10 09:31:27 -0700 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-09-10 09:31:27 -0700 |
| commit | fb29d26a0d6bd32314a39b548313f0092401f4f6 (patch) | |
| tree | 083fc541555829782f01d7da961d40a5715fe76f | |
| parent | 71389a5c7bbcf1b2200f5434d794e6ee44c59e4b (diff) | |
| download | llvm-revert-157571-bug157509.zip llvm-revert-157571-bug157509.tar.gz llvm-revert-157571-bug157509.tar.bz2 | |
Revert "[flang][runtime] Preserve some list-directed input state in child (#1…"revert-157571-bug157509
This reverts commit 71389a5c7bbcf1b2200f5434d794e6ee44c59e4b.
| -rw-r--r-- | flang-rt/include/flang-rt/runtime/io-stmt.h | 5 | ||||
| -rw-r--r-- | flang-rt/lib/runtime/io-stmt.cpp | 16 |
2 files changed, 0 insertions, 21 deletions
diff --git a/flang-rt/include/flang-rt/runtime/io-stmt.h b/flang-rt/include/flang-rt/runtime/io-stmt.h index 03b6efd..b98422b 100644 --- a/flang-rt/include/flang-rt/runtime/io-stmt.h +++ b/flang-rt/include/flang-rt/runtime/io-stmt.h @@ -458,11 +458,6 @@ public: namelistGroup_ = namelistGroup; } - RT_API_ATTRS bool eatComma() const { return eatComma_; } - RT_API_ATTRS void set_eatComma(bool yes) { eatComma_ = yes; } - RT_API_ATTRS bool hitSlash() const { return hitSlash_; } - RT_API_ATTRS void set_hitSlash(bool yes) { hitSlash_ = yes; } - protected: const NamelistGroup *namelistGroup_{nullptr}; diff --git a/flang-rt/lib/runtime/io-stmt.cpp b/flang-rt/lib/runtime/io-stmt.cpp index e260c0c..3260c8f 100644 --- a/flang-rt/lib/runtime/io-stmt.cpp +++ b/flang-rt/lib/runtime/io-stmt.cpp @@ -1076,14 +1076,6 @@ void ChildFormattedIoStatementState<DIR, CHAR>::CompleteOperation() { template <Direction DIR, typename CHAR> int ChildFormattedIoStatementState<DIR, CHAR>::EndIoStatement() { - if constexpr (DIR == Direction::Input) { - if (auto *listInput{this->child() - .parent() - .template get_if< - ListDirectedStatementState<Direction::Input>>()}) { - listInput->set_eatComma(false); - } - } CompleteOperation(); return ChildIoStatementState<DIR>::EndIoStatement(); } @@ -1105,7 +1097,6 @@ ChildListIoStatementState<DIR>::ChildListIoStatementState( if constexpr (DIR == Direction::Input) { if (auto *listInput{child.parent() .get_if<ListDirectedStatementState<Direction::Input>>()}) { - this->set_eatComma(listInput->eatComma()); this->namelistGroup_ = listInput->namelistGroup(); } } @@ -1130,13 +1121,6 @@ bool ChildListIoStatementState<DIR>::AdvanceRecord(int n) { template <Direction DIR> int ChildListIoStatementState<DIR>::EndIoStatement() { if constexpr (DIR == Direction::Input) { - if (auto *listInput{this->child() - .parent() - .template get_if< - ListDirectedStatementState<Direction::Input>>()}) { - listInput->set_eatComma(this->eatComma()); - listInput->set_hitSlash(this->hitSlash()); - } if (int status{ListDirectedStatementState<DIR>::EndIoStatement()}; status != IostatOk) { return status; |