Skip to content

Commit 0037c20

Browse files
authored
[flang][runtime] Fix CUDA build (#154357)
Address problems with CUDA build of flang-new runtime after a recent patch to an external open file API.
1 parent 30c5c48 commit 0037c20

File tree

2 files changed

+4
-4
lines changed

2 files changed

+4
-4
lines changed

flang-rt/lib/runtime/pseudo-unit.cpp

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -160,7 +160,7 @@ void PseudoOpenFile::WaitAll(IoErrorHandler &handler) {
160160
handler.Crash("%s: unsupported", RT_PRETTY_FUNCTION);
161161
}
162162

163-
Position PseudoOpenFile::InquirePosition() const {
163+
Position PseudoOpenFile::InquirePosition(FileOffset) const {
164164
Terminator{__FILE__, __LINE__}.Crash("%s: unsupported", RT_PRETTY_FUNCTION);
165165
}
166166

flang-rt/lib/runtime/unit.h

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -88,7 +88,7 @@ class PseudoOpenFile {
8888
FileOffset, const char *, std::size_t, IoErrorHandler &);
8989
RT_API_ATTRS void Wait(int id, IoErrorHandler &);
9090
RT_API_ATTRS void WaitAll(IoErrorHandler &);
91-
RT_API_ATTRS Position InquirePosition() const;
91+
RT_API_ATTRS Position InquirePosition(FileOffset) const;
9292
};
9393
#endif // defined(RT_USE_PSEUDO_FILE_UNIT)
9494

@@ -198,8 +198,8 @@ class ExternalFileUnit : public ConnectionState,
198198
RT_API_ATTRS int GetAsynchronousId(IoErrorHandler &);
199199
RT_API_ATTRS bool Wait(int);
200200
RT_API_ATTRS Position InquirePosition() const {
201-
return OpenFile::InquirePosition(
202-
static_cast<FileOffset>(frameOffsetInFile_ + recordOffsetInFrame_));
201+
return OpenFileClass::InquirePosition(
202+
static_cast<std::int64_t>(frameOffsetInFile_ + recordOffsetInFrame_));
203203
}
204204

205205
private:

0 commit comments

Comments
 (0)