[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / stdio / fseek.cpp
blob4a29c99509d196421a9d7fd7bc1e1cb420d6b2af
1 //===-- Implementation of fseek -------------------------------------------===//
2 //
3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
4 // See https://llvm.org/LICENSE.txt for license information.
5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
6 //
7 //===----------------------------------------------------------------------===//
9 #include "src/stdio/fseek.h"
10 #include "src/__support/File/file.h"
12 #include <errno.h>
13 #include <stdio.h>
15 namespace __llvm_libc {
17 LLVM_LIBC_FUNCTION(int, fseek, (::FILE * stream, long offset, int whence)) {
18 auto result =
19 reinterpret_cast<__llvm_libc::File *>(stream)->seek(offset, whence);
20 if (!result.has_value()) {
21 errno = result.error();
22 return -1;
24 return 0;
27 } // namespace __llvm_libc