[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / sys / stat / linux / fchmod.cpp
blobc6ce8d9acb8fc8aed020f8a0c67f0417eeacafb4
1 //===-- Linux implementation of fchmod ------------------------------------===//
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/sys/stat/fchmod.h"
11 #include "src/__support/OSUtil/syscall.h" // For internal syscall function.
12 #include "src/__support/common.h"
14 #include <errno.h>
15 #include <fcntl.h>
16 #include <sys/stat.h>
17 #include <sys/syscall.h> // For syscall numbers.
19 namespace __llvm_libc {
21 LLVM_LIBC_FUNCTION(int, fchmod, (int fd, mode_t mode)) {
22 long ret = __llvm_libc::syscall_impl(SYS_fchmod, fd, mode);
23 if (ret < 0) {
24 errno = -ret;
25 return -1;
27 return 0;
30 } // namespace __llvm_libc