fix signed overflow in ftok
[musl] / src / fcntl / fcntl.c
1 #define _GNU_SOURCE
2 #include <fcntl.h>
3 #include <stdarg.h>
4 #include <errno.h>
5 #include "syscall.h"
6 #include "libc.h"
7
8 int fcntl(int fd, int cmd, ...)
9 {
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;
23         }
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);
30                 }
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);
35                 }
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);
39         }
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);
48         }
49 }