[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / stdio / ftell.cpp
blob2d11a42a7466f7f375bbf902995d7b35e41b7ea5
1 //===-- Implementation of ftell -------------------------------------------===//
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/ftell.h"
10 #include "src/__support/File/file.h"
12 #include <errno.h>
13 #include <stdio.h>
15 namespace __llvm_libc {
17 LLVM_LIBC_FUNCTION(long, ftell, (::FILE * stream)) {
18 auto result = reinterpret_cast<__llvm_libc::File *>(stream)->tell();
19 if (!result.has_value()) {
20 errno = result.error();
21 return -1;
23 return result.value();
26 } // namespace __llvm_libc