[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / stdio / fputc.cpp
blob8287e4e8770a02f88532bd1703259c523d129c22
1 //===-- Implementation of fputc -------------------------------------------===//
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/fputc.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, fputc, (int c, ::FILE *stream)) {
18 unsigned char uc = static_cast<unsigned char>(c);
20 auto result = reinterpret_cast<__llvm_libc::File *>(stream)->write(&uc, 1);
21 if (result.has_error())
22 errno = result.error;
23 size_t written = result.value;
25 if (1 != written) {
26 // The stream should be in an error state in this case.
27 return EOF;
29 return 0;
32 } // namespace __llvm_libc