Skip to content

Commit 677203f

Browse files
klauslerronlieb
authored andcommitted
[flang][runtime] Fix CUDA build (llvm#154357)
Address problems with CUDA build of flang-new runtime after a recent patch to an external open file API.
1 parent 350104a commit 677203f

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
@@ -90,7 +90,7 @@ class PseudoOpenFile {
9090
FileOffset, const char *, std::size_t, IoErrorHandler &);
9191
RT_API_ATTRS void Wait(int id, IoErrorHandler &);
9292
RT_API_ATTRS void WaitAll(IoErrorHandler &);
93-
RT_API_ATTRS Position InquirePosition() const;
93+
RT_API_ATTRS Position InquirePosition(FileOffset) const;
9494
};
9595
#endif // defined(RT_USE_PSEUDO_FILE_UNIT)
9696

@@ -200,8 +200,8 @@ class ExternalFileUnit : public ConnectionState,
200200
RT_API_ATTRS int GetAsynchronousId(IoErrorHandler &);
201201
RT_API_ATTRS bool Wait(int);
202202
RT_API_ATTRS Position InquirePosition() const {
203-
return OpenFile::InquirePosition(
204-
static_cast<FileOffset>(frameOffsetInFile_ + recordOffsetInFrame_));
203+
return OpenFileClass::InquirePosition(
204+
static_cast<std::int64_t>(frameOffsetInFile_ + recordOffsetInFrame_));
205205
}
206206

207207
private:

0 commit comments

Comments
 (0)