[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / stdio / getc_unlocked.cpp
blobecb31848ae53d8d8e1f72df63966a348e20b4abe
1 //===-- Implementation of getc_unlocked ----------------------------------===//
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/getc_unlocked.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, getc_unlocked, (::FILE * stream)) {
18 unsigned char c;
19 auto result =
20 reinterpret_cast<__llvm_libc::File *>(stream)->read_unlocked(&c, 1);
21 size_t r = result.value;
22 if (result.has_error())
23 errno = result.error;
25 if (r != 1)
26 return EOF;
27 return c;
30 } // namespace __llvm_libc