fix support for initialized TLS in static PIE binaries
[musl.git] / src / fcntl / fcntl.c
blobce615d0e5dcce990992bd99d65b52f1ec0a3d53c
1 #define _GNU_SOURCE
2 #include <fcntl.h>
3 #include <stdarg.h>
4 #include <errno.h>
5 #include "syscall.h"
6 #include "libc.h"
8 int fcntl(int fd, int cmd, ...)
10 unsigned long arg;
11 va_list ap;
12 va_start(ap, cmd);
13 arg = va_arg(ap, unsigned long);
14 va_end(ap);
15 if (cmd == F_SETFL) arg |= O_LARGEFILE;
16 if (cmd == F_SETLKW) return syscall_cp(SYS_fcntl, fd, cmd, (void *)arg);
17 if (cmd == F_GETOWN) {
18 struct f_owner_ex ex;
19 int ret = __syscall(SYS_fcntl, fd, F_GETOWN_EX, &ex);
20 if (ret == -EINVAL) return __syscall(SYS_fcntl, fd, cmd, (void *)arg);
21 if (ret) return __syscall_ret(ret);
22 return ex.type == F_OWNER_PGRP ? -ex.pid : ex.pid;
24 if (cmd == F_DUPFD_CLOEXEC) {
25 int ret = __syscall(SYS_fcntl, fd, F_DUPFD_CLOEXEC, arg);
26 if (ret != -EINVAL) {
27 if (ret >= 0)
28 __syscall(SYS_fcntl, ret, F_SETFD, FD_CLOEXEC);
29 return __syscall_ret(ret);
31 ret = __syscall(SYS_fcntl, fd, F_DUPFD_CLOEXEC, 0);
32 if (ret != -EINVAL) {
33 if (ret >= 0) __syscall(SYS_close, ret);
34 return __syscall_ret(-EINVAL);
36 ret = __syscall(SYS_fcntl, fd, F_DUPFD, arg);
37 if (ret >= 0) __syscall(SYS_fcntl, ret, F_SETFD, FD_CLOEXEC);
38 return __syscall_ret(ret);
40 switch (cmd) {
41 case F_SETLK:
42 case F_GETLK:
43 case F_GETOWN_EX:
44 case F_SETOWN_EX:
45 return syscall(SYS_fcntl, fd, cmd, (void *)arg);
46 default:
47 return syscall(SYS_fcntl, fd, cmd, arg);