11e573f37SJoseph Huber //===-- Implementation of fclose ------------------------------------------===// 21e573f37SJoseph Huber // 31e573f37SJoseph Huber // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 41e573f37SJoseph Huber // See https://llvm.org/LICENSE.txt for license information. 51e573f37SJoseph Huber // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 61e573f37SJoseph Huber // 71e573f37SJoseph Huber //===----------------------------------------------------------------------===// 81e573f37SJoseph Huber 91e573f37SJoseph Huber #include "src/stdio/fclose.h" 101e573f37SJoseph Huber #include "src/__support/File/file.h" 111e573f37SJoseph Huber 125aed6d67SMichael Jones #include "hdr/types/FILE.h" 13*5ff3ff33SPetr Hosek #include "src/__support/macros/config.h" 141e573f37SJoseph Huber #include "src/errno/libc_errno.h" 151e573f37SJoseph Huber 16*5ff3ff33SPetr Hosek namespace LIBC_NAMESPACE_DECL { 171e573f37SJoseph Huber 181e573f37SJoseph Huber LLVM_LIBC_FUNCTION(int, fclose, (::FILE * stream)) { 19b6bc9d72SGuillaume Chatelet int result = reinterpret_cast<LIBC_NAMESPACE::File *>(stream)->close(); 201e573f37SJoseph Huber if (result != 0) { 211e573f37SJoseph Huber libc_errno = result; 221e573f37SJoseph Huber return EOF; 231e573f37SJoseph Huber } 241e573f37SJoseph Huber return 0; 251e573f37SJoseph Huber } 261e573f37SJoseph Huber 27*5ff3ff33SPetr Hosek } // namespace LIBC_NAMESPACE_DECL 28