?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
hw/pcie: better hotplug/hotunplug support
[qemu.git] / linux-user / syscall.c
blob7d7407920b8793c2566c2b3abd7bc118c333c3f9
1 /*
2 * Linux syscalls
3 *
4 * Copyright (c) 2003 Fabrice Bellard
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
10 *
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
15 *
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, see <http://www.gnu.org/licenses/>.
18 */
19 #define _ATFILE_SOURCE
20 #include <stdlib.h>
21 #include <stdio.h>
22 #include <stdarg.h>
23 #include <string.h>
24 #include <elf.h>
25 #include <endian.h>
26 #include <errno.h>
27 #include <unistd.h>
28 #include <fcntl.h>
29 #include <time.h>
30 #include <limits.h>
31 #include <grp.h>
32 #include <sys/types.h>
33 #include <sys/ipc.h>
34 #include <sys/msg.h>
35 #include <sys/wait.h>
36 #include <sys/time.h>
37 #include <sys/stat.h>
38 #include <sys/mount.h>
39 #include <sys/file.h>
40 #include <sys/fsuid.h>
41 #include <sys/personality.h>
42 #include <sys/prctl.h>
43 #include <sys/resource.h>
44 #include <sys/mman.h>
45 #include <sys/swap.h>
46 #include <linux/capability.h>
47 #include <signal.h>
48 #include <sched.h>
49 #ifdef __ia64__
50 int __clone2(int (*fn)(void *), void *child_stack_base,
51 size_t stack_size, int flags, void *arg, ...);
52 #endif
53 #include <sys/socket.h>
54 #include <sys/un.h>
55 #include <sys/uio.h>
56 #include <sys/poll.h>
57 #include <sys/times.h>
58 #include <sys/shm.h>
59 #include <sys/sem.h>
60 #include <sys/statfs.h>
61 #include <utime.h>
62 #include <sys/sysinfo.h>
63 //#include <sys/user.h>
64 #include <netinet/ip.h>
65 #include <netinet/tcp.h>
66 #include <linux/wireless.h>
67 #include <linux/icmp.h>
68 #include "qemu-common.h"
69 #ifdef TARGET_GPROF
70 #include <sys/gmon.h>
71 #endif
72 #ifdef CONFIG_EVENTFD
73 #include <sys/eventfd.h>
74 #endif
75 #ifdef CONFIG_EPOLL
76 #include <sys/epoll.h>
77 #endif
78 #ifdef CONFIG_ATTR
79 #include "qemu/xattr.h"
80 #endif
81 #ifdef CONFIG_SENDFILE
82 #include <sys/sendfile.h>
83 #endif
84
85 #define termios host_termios
86 #define winsize host_winsize
87 #define termio host_termio
88 #define sgttyb host_sgttyb /* same as target */
89 #define tchars host_tchars /* same as target */
90 #define ltchars host_ltchars /* same as target */
91
92 #include <linux/termios.h>
93 #include <linux/unistd.h>
94 #include <linux/cdrom.h>
95 #include <linux/hdreg.h>
96 #include <linux/soundcard.h>
97 #include <linux/kd.h>
98 #include <linux/mtio.h>
99 #include <linux/fs.h>
100 #if defined(CONFIG_FIEMAP)
101 #include <linux/fiemap.h>
102 #endif
103 #include <linux/fb.h>
104 #include <linux/vt.h>
105 #include <linux/dm-ioctl.h>
106 #include <linux/reboot.h>
107 #include <linux/route.h>
108 #include <linux/filter.h>
109 #include <linux/blkpg.h>
110 #include "linux_loop.h"
111 #include "uname.h"
112
113 #include "qemu.h"
114
115 #define CLONE_NPTL_FLAGS2 (CLONE_SETTLS | \
116 CLONE_PARENT_SETTID | CLONE_CHILD_SETTID | CLONE_CHILD_CLEARTID)
117
118 //#define DEBUG
119
120 //#include <linux/msdos_fs.h>
121 #define VFAT_IOCTL_READDIR_BOTH _IOR('r', 1, struct linux_dirent [2])
122 #define VFAT_IOCTL_READDIR_SHORT _IOR('r', 2, struct linux_dirent [2])
123
124
125 #undef _syscall0
126 #undef _syscall1
127 #undef _syscall2
128 #undef _syscall3
129 #undef _syscall4
130 #undef _syscall5
131 #undef _syscall6
132
133 #define _syscall0(type,name) \
134 static type name (void) \
135 { \
136 return syscall(__NR_##name); \
137 }
138
139 #define _syscall1(type,name,type1,arg1) \
140 static type name (type1 arg1) \
141 { \
142 return syscall(__NR_##name, arg1); \
143 }
144
145 #define _syscall2(type,name,type1,arg1,type2,arg2) \
146 static type name (type1 arg1,type2 arg2) \
147 { \
148 return syscall(__NR_##name, arg1, arg2); \
149 }
150
151 #define _syscall3(type,name,type1,arg1,type2,arg2,type3,arg3) \
152 static type name (type1 arg1,type2 arg2,type3 arg3) \
153 { \
154 return syscall(__NR_##name, arg1, arg2, arg3); \
155 }
156
157 #define _syscall4(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4) \
158 static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4) \
159 { \
160 return syscall(__NR_##name, arg1, arg2, arg3, arg4); \
161 }
162
163 #define _syscall5(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4, \
164 type5,arg5) \
165 static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4,type5 arg5) \
166 { \
167 return syscall(__NR_##name, arg1, arg2, arg3, arg4, arg5); \
168 }
169
170
171 #define _syscall6(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4, \
172 type5,arg5,type6,arg6) \
173 static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4,type5 arg5, \
174 type6 arg6) \
175 { \
176 return syscall(__NR_##name, arg1, arg2, arg3, arg4, arg5, arg6); \
177 }
178
179
180 #define __NR_sys_uname __NR_uname
181 #define __NR_sys_getcwd1 __NR_getcwd
182 #define __NR_sys_getdents __NR_getdents
183 #define __NR_sys_getdents64 __NR_getdents64
184 #define __NR_sys_getpriority __NR_getpriority
185 #define __NR_sys_rt_sigqueueinfo __NR_rt_sigqueueinfo
186 #define __NR_sys_syslog __NR_syslog
187 #define __NR_sys_tgkill __NR_tgkill
188 #define __NR_sys_tkill __NR_tkill
189 #define __NR_sys_futex __NR_futex
190 #define __NR_sys_inotify_init __NR_inotify_init
191 #define __NR_sys_inotify_add_watch __NR_inotify_add_watch
192 #define __NR_sys_inotify_rm_watch __NR_inotify_rm_watch
193
194 #if defined(__alpha__) || defined (__ia64__) || defined(__x86_64__) || \
195 defined(__s390x__)
196 #define __NR__llseek __NR_lseek
197 #endif
198
199 /* Newer kernel ports have llseek() instead of _llseek() */
200 #if defined(TARGET_NR_llseek) && !defined(TARGET_NR__llseek)
201 #define TARGET_NR__llseek TARGET_NR_llseek
202 #endif
203
204 #ifdef __NR_gettid
205 _syscall0(int, gettid)
206 #else
207 /* This is a replacement for the host gettid() and must return a host
208 errno. */
209 static int gettid(void) {
210 return -ENOSYS;
211 }
212 #endif
213 #ifdef __NR_getdents
214 _syscall3(int, sys_getdents, uint, fd, struct linux_dirent *, dirp, uint, count);
215 #endif
216 #if !defined(__NR_getdents) || \
217 (defined(TARGET_NR_getdents64) && defined(__NR_getdents64))
218 _syscall3(int, sys_getdents64, uint, fd, struct linux_dirent64 *, dirp, uint, count);
219 #endif
220 #if defined(TARGET_NR__llseek) && defined(__NR_llseek)
221 _syscall5(int, _llseek, uint, fd, ulong, hi, ulong, lo,
222 loff_t *, res, uint, wh);
223 #endif
224 _syscall3(int,sys_rt_sigqueueinfo,int,pid,int,sig,siginfo_t *,uinfo)
225 _syscall3(int,sys_syslog,int,type,char*,bufp,int,len)
226 #if defined(TARGET_NR_tgkill) && defined(__NR_tgkill)
227 _syscall3(int,sys_tgkill,int,tgid,int,pid,int,sig)
228 #endif
229 #if defined(TARGET_NR_tkill) && defined(__NR_tkill)
230 _syscall2(int,sys_tkill,int,tid,int,sig)
231 #endif
232 #ifdef __NR_exit_group
233 _syscall1(int,exit_group,int,error_code)
234 #endif
235 #if defined(TARGET_NR_set_tid_address) && defined(__NR_set_tid_address)
236 _syscall1(int,set_tid_address,int *,tidptr)
237 #endif
238 #if defined(TARGET_NR_futex) && defined(__NR_futex)
239 _syscall6(int,sys_futex,int *,uaddr,int,op,int,val,
240 const struct timespec *,timeout,int *,uaddr2,int,val3)
241 #endif
242 #define __NR_sys_sched_getaffinity __NR_sched_getaffinity
243 _syscall3(int, sys_sched_getaffinity, pid_t, pid, unsigned int, len,
244 unsigned long *, user_mask_ptr);
245 #define __NR_sys_sched_setaffinity __NR_sched_setaffinity
246 _syscall3(int, sys_sched_setaffinity, pid_t, pid, unsigned int, len,
247 unsigned long *, user_mask_ptr);
248 _syscall4(int, reboot, int, magic1, int, magic2, unsigned int, cmd,
249 void *, arg);
250 _syscall2(int, capget, struct __user_cap_header_struct *, header,
251 struct __user_cap_data_struct *, data);
252 _syscall2(int, capset, struct __user_cap_header_struct *, header,
253 struct __user_cap_data_struct *, data);
254
255 static bitmask_transtbl fcntl_flags_tbl[] = {
256 { TARGET_O_ACCMODE, TARGET_O_WRONLY, O_ACCMODE, O_WRONLY, },
257 { TARGET_O_ACCMODE, TARGET_O_RDWR, O_ACCMODE, O_RDWR, },
258 { TARGET_O_CREAT, TARGET_O_CREAT, O_CREAT, O_CREAT, },
259 { TARGET_O_EXCL, TARGET_O_EXCL, O_EXCL, O_EXCL, },
260 { TARGET_O_NOCTTY, TARGET_O_NOCTTY, O_NOCTTY, O_NOCTTY, },
261 { TARGET_O_TRUNC, TARGET_O_TRUNC, O_TRUNC, O_TRUNC, },
262 { TARGET_O_APPEND, TARGET_O_APPEND, O_APPEND, O_APPEND, },
263 { TARGET_O_NONBLOCK, TARGET_O_NONBLOCK, O_NONBLOCK, O_NONBLOCK, },
264 { TARGET_O_SYNC, TARGET_O_DSYNC, O_SYNC, O_DSYNC, },
265 { TARGET_O_SYNC, TARGET_O_SYNC, O_SYNC, O_SYNC, },
266 { TARGET_FASYNC, TARGET_FASYNC, FASYNC, FASYNC, },
267 { TARGET_O_DIRECTORY, TARGET_O_DIRECTORY, O_DIRECTORY, O_DIRECTORY, },
268 { TARGET_O_NOFOLLOW, TARGET_O_NOFOLLOW, O_NOFOLLOW, O_NOFOLLOW, },
269 #if defined(O_DIRECT)
270 { TARGET_O_DIRECT, TARGET_O_DIRECT, O_DIRECT, O_DIRECT, },
271 #endif
272 #if defined(O_NOATIME)
273 { TARGET_O_NOATIME, TARGET_O_NOATIME, O_NOATIME, O_NOATIME },
274 #endif
275 #if defined(O_CLOEXEC)
276 { TARGET_O_CLOEXEC, TARGET_O_CLOEXEC, O_CLOEXEC, O_CLOEXEC },
277 #endif
278 #if defined(O_PATH)
279 { TARGET_O_PATH, TARGET_O_PATH, O_PATH, O_PATH },
280 #endif
281 /* Don't terminate the list prematurely on 64-bit host+guest. */
282 #if TARGET_O_LARGEFILE != 0 || O_LARGEFILE != 0
283 { TARGET_O_LARGEFILE, TARGET_O_LARGEFILE, O_LARGEFILE, O_LARGEFILE, },
284 #endif
285 { 0, 0, 0, 0 }
286 };
287
288 static int sys_getcwd1(char *buf, size_t size)
289 {
290 if (getcwd(buf, size) == NULL) {
291 /* getcwd() sets errno */
292 return (-1);
293 }
294 return strlen(buf)+1;
295 }
296
297 #ifdef TARGET_NR_openat
298 static int sys_openat(int dirfd, const char *pathname, int flags, mode_t mode)
299 {
300 /*
301 * open(2) has extra parameter 'mode' when called with
302 * flag O_CREAT.
303 */
304 if ((flags & O_CREAT) != 0) {
305 return (openat(dirfd, pathname, flags, mode));
306 }
307 return (openat(dirfd, pathname, flags));
308 }
309 #endif
310
311 #ifdef TARGET_NR_utimensat
312 #ifdef CONFIG_UTIMENSAT
313 static int sys_utimensat(int dirfd, const char *pathname,
314 const struct timespec times[2], int flags)
315 {
316 if (pathname == NULL)
317 return futimens(dirfd, times);
318 else
319 return utimensat(dirfd, pathname, times, flags);
320 }
321 #elif defined(__NR_utimensat)
322 #define __NR_sys_utimensat __NR_utimensat
323 _syscall4(int,sys_utimensat,int,dirfd,const char *,pathname,
324 const struct timespec *,tsp,int,flags)
325 #else
326 static int sys_utimensat(int dirfd, const char *pathname,
327 const struct timespec times[2], int flags)
328 {
329 errno = ENOSYS;
330 return -1;
331 }
332 #endif
333 #endif /* TARGET_NR_utimensat */
334
335 #ifdef CONFIG_INOTIFY
336 #include <sys/inotify.h>
337
338 #if defined(TARGET_NR_inotify_init) && defined(__NR_inotify_init)
339 static int sys_inotify_init(void)
340 {
341 return (inotify_init());
342 }
343 #endif
344 #if defined(TARGET_NR_inotify_add_watch) && defined(__NR_inotify_add_watch)
345 static int sys_inotify_add_watch(int fd,const char *pathname, int32_t mask)
346 {
347 return (inotify_add_watch(fd, pathname, mask));
348 }
349 #endif
350 #if defined(TARGET_NR_inotify_rm_watch) && defined(__NR_inotify_rm_watch)
351 static int sys_inotify_rm_watch(int fd, int32_t wd)
352 {
353 return (inotify_rm_watch(fd, wd));
354 }
355 #endif
356 #ifdef CONFIG_INOTIFY1
357 #if defined(TARGET_NR_inotify_init1) && defined(__NR_inotify_init1)
358 static int sys_inotify_init1(int flags)
359 {
360 return (inotify_init1(flags));
361 }
362 #endif
363 #endif
364 #else
365 /* Userspace can usually survive runtime without inotify */
366 #undef TARGET_NR_inotify_init
367 #undef TARGET_NR_inotify_init1
368 #undef TARGET_NR_inotify_add_watch
369 #undef TARGET_NR_inotify_rm_watch
370 #endif /* CONFIG_INOTIFY */
371
372 #if defined(TARGET_NR_ppoll)
373 #ifndef __NR_ppoll
374 # define __NR_ppoll -1
375 #endif
376 #define __NR_sys_ppoll __NR_ppoll
377 _syscall5(int, sys_ppoll, struct pollfd *, fds, nfds_t, nfds,
378 struct timespec *, timeout, const sigset_t *, sigmask,
379 size_t, sigsetsize)
380 #endif
381
382 #if defined(TARGET_NR_pselect6)
383 #ifndef __NR_pselect6
384 # define __NR_pselect6 -1
385 #endif
386 #define __NR_sys_pselect6 __NR_pselect6
387 _syscall6(int, sys_pselect6, int, nfds, fd_set *, readfds, fd_set *, writefds,
388 fd_set *, exceptfds, struct timespec *, timeout, void *, sig);
389 #endif
390
391 #if defined(TARGET_NR_prlimit64)
392 #ifndef __NR_prlimit64
393 # define __NR_prlimit64 -1
394 #endif
395 #define __NR_sys_prlimit64 __NR_prlimit64
396 /* The glibc rlimit structure may not be that used by the underlying syscall */
397 struct host_rlimit64 {
398 uint64_t rlim_cur;
399 uint64_t rlim_max;
400 };
401 _syscall4(int, sys_prlimit64, pid_t, pid, int, resource,
402 const struct host_rlimit64 *, new_limit,
403 struct host_rlimit64 *, old_limit)
404 #endif
405
406
407 #if defined(TARGET_NR_timer_create)
408 /* Maxiumum of 32 active POSIX timers allowed at any one time. */
409 static timer_t g_posix_timers[32] = { 0, } ;
410
411 static inline int next_free_host_timer(void)
412 {
413 int k ;
414 /* FIXME: Does finding the next free slot require a lock? */
415 for (k = 0; k < ARRAY_SIZE(g_posix_timers); k++) {
416 if (g_posix_timers[k] == 0) {
417 g_posix_timers[k] = (timer_t) 1;
418 return k;
419 }
420 }
421 return -1;
422 }
423 #endif
424
425 /* ARM EABI and MIPS expect 64bit types aligned even on pairs or registers */
426 #ifdef TARGET_ARM
427 static inline int regpairs_aligned(void *cpu_env) {
428 return ((((CPUARMState *)cpu_env)->eabi) == 1) ;
429 }
430 #elif defined(TARGET_MIPS)
431 static inline int regpairs_aligned(void *cpu_env) { return 1; }
432 #elif defined(TARGET_PPC) && !defined(TARGET_PPC64)
433 /* SysV AVI for PPC32 expects 64bit parameters to be passed on odd/even pairs
434 * of registers which translates to the same as ARM/MIPS, because we start with
435 * r3 as arg1 */
436 static inline int regpairs_aligned(void *cpu_env) { return 1; }
437 #else
438 static inline int regpairs_aligned(void *cpu_env) { return 0; }
439 #endif
440
441 #define ERRNO_TABLE_SIZE 1200
442
443 /* target_to_host_errno_table[] is initialized from
444 * host_to_target_errno_table[] in syscall_init(). */
445 static uint16_t target_to_host_errno_table[ERRNO_TABLE_SIZE] = {
446 };
447
448 /*
449 * This list is the union of errno values overridden in asm-<arch>/errno.h
450 * minus the errnos that are not actually generic to all archs.
451 */
452 static uint16_t host_to_target_errno_table[ERRNO_TABLE_SIZE] = {
453 [EIDRM] = TARGET_EIDRM,
454 [ECHRNG] = TARGET_ECHRNG,
455 [EL2NSYNC] = TARGET_EL2NSYNC,
456 [EL3HLT] = TARGET_EL3HLT,
457 [EL3RST] = TARGET_EL3RST,
458 [ELNRNG] = TARGET_ELNRNG,
459 [EUNATCH] = TARGET_EUNATCH,
460 [ENOCSI] = TARGET_ENOCSI,
461 [EL2HLT] = TARGET_EL2HLT,
462 [EDEADLK] = TARGET_EDEADLK,
463 [ENOLCK] = TARGET_ENOLCK,
464 [EBADE] = TARGET_EBADE,
465 [EBADR] = TARGET_EBADR,
466 [EXFULL] = TARGET_EXFULL,
467 [ENOANO] = TARGET_ENOANO,
468 [EBADRQC] = TARGET_EBADRQC,
469 [EBADSLT] = TARGET_EBADSLT,
470 [EBFONT] = TARGET_EBFONT,
471 [ENOSTR] = TARGET_ENOSTR,
472 [ENODATA] = TARGET_ENODATA,
473 [ETIME] = TARGET_ETIME,
474 [ENOSR] = TARGET_ENOSR,
475 [ENONET] = TARGET_ENONET,
476 [ENOPKG] = TARGET_ENOPKG,
477 [EREMOTE] = TARGET_EREMOTE,
478 [ENOLINK] = TARGET_ENOLINK,
479 [EADV] = TARGET_EADV,
480 [ESRMNT] = TARGET_ESRMNT,
481 [ECOMM] = TARGET_ECOMM,
482 [EPROTO] = TARGET_EPROTO,
483 [EDOTDOT] = TARGET_EDOTDOT,
484 [EMULTIHOP] = TARGET_EMULTIHOP,
485 [EBADMSG] = TARGET_EBADMSG,
486 [ENAMETOOLONG] = TARGET_ENAMETOOLONG,
487 [EOVERFLOW] = TARGET_EOVERFLOW,
488 [ENOTUNIQ] = TARGET_ENOTUNIQ,
489 [EBADFD] = TARGET_EBADFD,
490 [EREMCHG] = TARGET_EREMCHG,
491 [ELIBACC] = TARGET_ELIBACC,
492 [ELIBBAD] = TARGET_ELIBBAD,
493 [ELIBSCN] = TARGET_ELIBSCN,
494 [ELIBMAX] = TARGET_ELIBMAX,
495 [ELIBEXEC] = TARGET_ELIBEXEC,
496 [EILSEQ] = TARGET_EILSEQ,
497 [ENOSYS] = TARGET_ENOSYS,
498 [ELOOP] = TARGET_ELOOP,
499 [ERESTART] = TARGET_ERESTART,
500 [ESTRPIPE] = TARGET_ESTRPIPE,
501 [ENOTEMPTY] = TARGET_ENOTEMPTY,
502 [EUSERS] = TARGET_EUSERS,
503 [ENOTSOCK] = TARGET_ENOTSOCK,
504 [EDESTADDRREQ] = TARGET_EDESTADDRREQ,
505 [EMSGSIZE] = TARGET_EMSGSIZE,
506 [EPROTOTYPE] = TARGET_EPROTOTYPE,
507 [ENOPROTOOPT] = TARGET_ENOPROTOOPT,
508 [EPROTONOSUPPORT] = TARGET_EPROTONOSUPPORT,
509 [ESOCKTNOSUPPORT] = TARGET_ESOCKTNOSUPPORT,
510 [EOPNOTSUPP] = TARGET_EOPNOTSUPP,
511 [EPFNOSUPPORT] = TARGET_EPFNOSUPPORT,
512 [EAFNOSUPPORT] = TARGET_EAFNOSUPPORT,
513 [EADDRINUSE] = TARGET_EADDRINUSE,
514 [EADDRNOTAVAIL] = TARGET_EADDRNOTAVAIL,
515 [ENETDOWN] = TARGET_ENETDOWN,
516 [ENETUNREACH] = TARGET_ENETUNREACH,
517 [ENETRESET] = TARGET_ENETRESET,
518 [ECONNABORTED] = TARGET_ECONNABORTED,
519 [ECONNRESET] = TARGET_ECONNRESET,
520 [ENOBUFS] = TARGET_ENOBUFS,
521 [EISCONN] = TARGET_EISCONN,
522 [ENOTCONN] = TARGET_ENOTCONN,
523 [EUCLEAN] = TARGET_EUCLEAN,
524 [ENOTNAM] = TARGET_ENOTNAM,
525 [ENAVAIL] = TARGET_ENAVAIL,
526 [EISNAM] = TARGET_EISNAM,
527 [EREMOTEIO] = TARGET_EREMOTEIO,
528 [ESHUTDOWN] = TARGET_ESHUTDOWN,
529 [ETOOMANYREFS] = TARGET_ETOOMANYREFS,
530 [ETIMEDOUT] = TARGET_ETIMEDOUT,
531 [ECONNREFUSED] = TARGET_ECONNREFUSED,
532 [EHOSTDOWN] = TARGET_EHOSTDOWN,
533 [EHOSTUNREACH] = TARGET_EHOSTUNREACH,
534 [EALREADY] = TARGET_EALREADY,
535 [EINPROGRESS] = TARGET_EINPROGRESS,
536 [ESTALE] = TARGET_ESTALE,
537 [ECANCELED] = TARGET_ECANCELED,
538 [ENOMEDIUM] = TARGET_ENOMEDIUM,
539 [EMEDIUMTYPE] = TARGET_EMEDIUMTYPE,
540 #ifdef ENOKEY
541 [ENOKEY] = TARGET_ENOKEY,
542 #endif
543 #ifdef EKEYEXPIRED
544 [EKEYEXPIRED] = TARGET_EKEYEXPIRED,
545 #endif
546 #ifdef EKEYREVOKED
547 [EKEYREVOKED] = TARGET_EKEYREVOKED,
548 #endif
549 #ifdef EKEYREJECTED
550 [EKEYREJECTED] = TARGET_EKEYREJECTED,
551 #endif
552 #ifdef EOWNERDEAD
553 [EOWNERDEAD] = TARGET_EOWNERDEAD,
554 #endif
555 #ifdef ENOTRECOVERABLE
556 [ENOTRECOVERABLE] = TARGET_ENOTRECOVERABLE,
557 #endif
558 };
559
560 static inline int host_to_target_errno(int err)
561 {
562 if(host_to_target_errno_table[err])
563 return host_to_target_errno_table[err];
564 return err;
565 }
566
567 static inline int target_to_host_errno(int err)
568 {
569 if (target_to_host_errno_table[err])
570 return target_to_host_errno_table[err];
571 return err;
572 }
573
574 static inline abi_long get_errno(abi_long ret)
575 {
576 if (ret == -1)
577 return -host_to_target_errno(errno);
578 else
579 return ret;
580 }
581
582 static inline int is_error(abi_long ret)
583 {
584 return (abi_ulong)ret >= (abi_ulong)(-4096);
585 }
586
587 char *target_strerror(int err)
588 {
589 if ((err >= ERRNO_TABLE_SIZE) || (err < 0)) {
590 return NULL;
591 }
592 return strerror(target_to_host_errno(err));
593 }
594
595 static abi_ulong target_brk;
596 static abi_ulong target_original_brk;
597 static abi_ulong brk_page;
598
599 void target_set_brk(abi_ulong new_brk)
600 {
601 target_original_brk = target_brk = HOST_PAGE_ALIGN(new_brk);
602 brk_page = HOST_PAGE_ALIGN(target_brk);
603 }
604
605 //#define DEBUGF_BRK(message, args...) do { fprintf(stderr, (message), ## args); } while (0)
606 #define DEBUGF_BRK(message, args...)
607
608 /* do_brk() must return target values and target errnos. */
609 abi_long do_brk(abi_ulong new_brk)
610 {
611 abi_long mapped_addr;
612 int new_alloc_size;
613
614 DEBUGF_BRK("do_brk(" TARGET_ABI_FMT_lx ") -> ", new_brk);
615
616 if (!new_brk) {
617 DEBUGF_BRK(TARGET_ABI_FMT_lx " (!new_brk)\n", target_brk);
618 return target_brk;
619 }
620 if (new_brk < target_original_brk) {
621 DEBUGF_BRK(TARGET_ABI_FMT_lx " (new_brk < target_original_brk)\n",
622 target_brk);
623 return target_brk;
624 }
625
626 /* If the new brk is less than the highest page reserved to the
627 * target heap allocation, set it and we're almost done... */
628 if (new_brk <= brk_page) {
629 /* Heap contents are initialized to zero, as for anonymous
630 * mapped pages. */
631 if (new_brk > target_brk) {
632 memset(g2h(target_brk), 0, new_brk - target_brk);
633 }
634 target_brk = new_brk;
635 DEBUGF_BRK(TARGET_ABI_FMT_lx " (new_brk <= brk_page)\n", target_brk);
636 return target_brk;
637 }
638
639 /* We need to allocate more memory after the brk... Note that
640 * we don't use MAP_FIXED because that will map over the top of
641 * any existing mapping (like the one with the host libc or qemu
642 * itself); instead we treat "mapped but at wrong address" as
643 * a failure and unmap again.
644 */
645 new_alloc_size = HOST_PAGE_ALIGN(new_brk - brk_page);
646 mapped_addr = get_errno(target_mmap(brk_page, new_alloc_size,
647 PROT_READ|PROT_WRITE,
648 MAP_ANON|MAP_PRIVATE, 0, 0));
649
650 if (mapped_addr == brk_page) {
651 /* Heap contents are initialized to zero, as for anonymous
652 * mapped pages. Technically the new pages are already
653 * initialized to zero since they *are* anonymous mapped
654 * pages, however we have to take care with the contents that
655 * come from the remaining part of the previous page: it may
656 * contains garbage data due to a previous heap usage (grown
657 * then shrunken). */
658 memset(g2h(target_brk), 0, brk_page - target_brk);
659
660 target_brk = new_brk;
661 brk_page = HOST_PAGE_ALIGN(target_brk);
662 DEBUGF_BRK(TARGET_ABI_FMT_lx " (mapped_addr == brk_page)\n",
663 target_brk);
664 return target_brk;
665 } else if (mapped_addr != -1) {
666 /* Mapped but at wrong address, meaning there wasn't actually
667 * enough space for this brk.
668 */
669 target_munmap(mapped_addr, new_alloc_size);
670 mapped_addr = -1;
671 DEBUGF_BRK(TARGET_ABI_FMT_lx " (mapped_addr != -1)\n", target_brk);
672 }
673 else {
674 DEBUGF_BRK(TARGET_ABI_FMT_lx " (otherwise)\n", target_brk);
675 }
676
677 #if defined(TARGET_ALPHA)
678 /* We (partially) emulate OSF/1 on Alpha, which requires we
679 return a proper errno, not an unchanged brk value. */
680 return -TARGET_ENOMEM;
681 #endif
682 /* For everything else, return the previous break. */
683 return target_brk;
684 }
685
686 static inline abi_long copy_from_user_fdset(fd_set *fds,
687 abi_ulong target_fds_addr,
688 int n)
689 {
690 int i, nw, j, k;
691 abi_ulong b, *target_fds;
692
693 nw = (n + TARGET_ABI_BITS - 1) / TARGET_ABI_BITS;
694 if (!(target_fds = lock_user(VERIFY_READ,
695 target_fds_addr,
696 sizeof(abi_ulong) * nw,
697 1)))
698 return -TARGET_EFAULT;
699
700 FD_ZERO(fds);
701 k = 0;
702 for (i = 0; i < nw; i++) {
703 /* grab the abi_ulong */
704 __get_user(b, &target_fds[i]);
705 for (j = 0; j < TARGET_ABI_BITS; j++) {
706 /* check the bit inside the abi_ulong */
707 if ((b >> j) & 1)
708 FD_SET(k, fds);
709 k++;
710 }
711 }
712
713 unlock_user(target_fds, target_fds_addr, 0);
714
715 return 0;
716 }
717
718 static inline abi_ulong copy_from_user_fdset_ptr(fd_set *fds, fd_set **fds_ptr,
719 abi_ulong target_fds_addr,
720 int n)
721 {
722 if (target_fds_addr) {
723 if (copy_from_user_fdset(fds, target_fds_addr, n))
724 return -TARGET_EFAULT;
725 *fds_ptr = fds;
726 } else {
727 *fds_ptr = NULL;
728 }
729 return 0;
730 }
731
732 static inline abi_long copy_to_user_fdset(abi_ulong target_fds_addr,
733 const fd_set *fds,
734 int n)
735 {
736 int i, nw, j, k;
737 abi_long v;
738 abi_ulong *target_fds;
739
740 nw = (n + TARGET_ABI_BITS - 1) / TARGET_ABI_BITS;
741 if (!(target_fds = lock_user(VERIFY_WRITE,
742 target_fds_addr,
743 sizeof(abi_ulong) * nw,
744 0)))
745 return -TARGET_EFAULT;
746
747 k = 0;
748 for (i = 0; i < nw; i++) {
749 v = 0;
750 for (j = 0; j < TARGET_ABI_BITS; j++) {
751 v |= ((abi_ulong)(FD_ISSET(k, fds) != 0) << j);
752 k++;
753 }
754 __put_user(v, &target_fds[i]);
755 }
756
757 unlock_user(target_fds, target_fds_addr, sizeof(abi_ulong) * nw);
758
759 return 0;
760 }
761
762 #if defined(__alpha__)
763 #define HOST_HZ 1024
764 #else
765 #define HOST_HZ 100
766 #endif
767
768 static inline abi_long host_to_target_clock_t(long ticks)
769 {
770 #if HOST_HZ == TARGET_HZ
771 return ticks;
772 #else
773 return ((int64_t)ticks * TARGET_HZ) / HOST_HZ;
774 #endif
775 }
776
777 static inline abi_long host_to_target_rusage(abi_ulong target_addr,
778 const struct rusage *rusage)
779 {
780 struct target_rusage *target_rusage;
781
782 if (!lock_user_struct(VERIFY_WRITE, target_rusage, target_addr, 0))
783 return -TARGET_EFAULT;
784 target_rusage->ru_utime.tv_sec = tswapal(rusage->ru_utime.tv_sec);
785 target_rusage->ru_utime.tv_usec = tswapal(rusage->ru_utime.tv_usec);
786 target_rusage->ru_stime.tv_sec = tswapal(rusage->ru_stime.tv_sec);
787 target_rusage->ru_stime.tv_usec = tswapal(rusage->ru_stime.tv_usec);
788 target_rusage->ru_maxrss = tswapal(rusage->ru_maxrss);
789 target_rusage->ru_ixrss = tswapal(rusage->ru_ixrss);
790 target_rusage->ru_idrss = tswapal(rusage->ru_idrss);
791 target_rusage->ru_isrss = tswapal(rusage->ru_isrss);
792 target_rusage->ru_minflt = tswapal(rusage->ru_minflt);
793 target_rusage->ru_majflt = tswapal(rusage->ru_majflt);
794 target_rusage->ru_nswap = tswapal(rusage->ru_nswap);
795 target_rusage->ru_inblock = tswapal(rusage->ru_inblock);
796 target_rusage->ru_oublock = tswapal(rusage->ru_oublock);
797 target_rusage->ru_msgsnd = tswapal(rusage->ru_msgsnd);
798 target_rusage->ru_msgrcv = tswapal(rusage->ru_msgrcv);
799 target_rusage->ru_nsignals = tswapal(rusage->ru_nsignals);
800 target_rusage->ru_nvcsw = tswapal(rusage->ru_nvcsw);
801 target_rusage->ru_nivcsw = tswapal(rusage->ru_nivcsw);
802 unlock_user_struct(target_rusage, target_addr, 1);
803
804 return 0;
805 }
806
807 static inline rlim_t target_to_host_rlim(abi_ulong target_rlim)
808 {
809 abi_ulong target_rlim_swap;
810 rlim_t result;
811
812 target_rlim_swap = tswapal(target_rlim);
813 if (target_rlim_swap == TARGET_RLIM_INFINITY)
814 return RLIM_INFINITY;
815
816 result = target_rlim_swap;
817 if (target_rlim_swap != (rlim_t)result)
818 return RLIM_INFINITY;
819
820 return result;
821 }
822
823 static inline abi_ulong host_to_target_rlim(rlim_t rlim)
824 {
825 abi_ulong target_rlim_swap;
826 abi_ulong result;
827
828 if (rlim == RLIM_INFINITY || rlim != (abi_long)rlim)
829 target_rlim_swap = TARGET_RLIM_INFINITY;
830 else
831 target_rlim_swap = rlim;
832 result = tswapal(target_rlim_swap);
833
834 return result;
835 }
836
837 static inline int target_to_host_resource(int code)
838 {
839 switch (code) {
840 case TARGET_RLIMIT_AS:
841 return RLIMIT_AS;
842 case TARGET_RLIMIT_CORE:
843 return RLIMIT_CORE;
844 case TARGET_RLIMIT_CPU:
845 return RLIMIT_CPU;
846 case TARGET_RLIMIT_DATA:
847 return RLIMIT_DATA;
848 case TARGET_RLIMIT_FSIZE:
849 return RLIMIT_FSIZE;
850 case TARGET_RLIMIT_LOCKS:
851 return RLIMIT_LOCKS;
852 case TARGET_RLIMIT_MEMLOCK:
853 return RLIMIT_MEMLOCK;
854 case TARGET_RLIMIT_MSGQUEUE:
855 return RLIMIT_MSGQUEUE;
856 case TARGET_RLIMIT_NICE:
857 return RLIMIT_NICE;
858 case TARGET_RLIMIT_NOFILE:
859 return RLIMIT_NOFILE;
860 case TARGET_RLIMIT_NPROC:
861 return RLIMIT_NPROC;
862 case TARGET_RLIMIT_RSS:
863 return RLIMIT_RSS;
864 case TARGET_RLIMIT_RTPRIO:
865 return RLIMIT_RTPRIO;
866 case TARGET_RLIMIT_SIGPENDING:
867 return RLIMIT_SIGPENDING;
868 case TARGET_RLIMIT_STACK:
869 return RLIMIT_STACK;
870 default:
871 return code;
872 }
873 }
874
875 static inline abi_long copy_from_user_timeval(struct timeval *tv,
876 abi_ulong target_tv_addr)
877 {
878 struct target_timeval *target_tv;
879
880 if (!lock_user_struct(VERIFY_READ, target_tv, target_tv_addr, 1))
881 return -TARGET_EFAULT;
882
883 __get_user(tv->tv_sec, &target_tv->tv_sec);
884 __get_user(tv->tv_usec, &target_tv->tv_usec);
885
886 unlock_user_struct(target_tv, target_tv_addr, 0);
887
888 return 0;
889 }
890
891 static inline abi_long copy_to_user_timeval(abi_ulong target_tv_addr,
892 const struct timeval *tv)
893 {
894 struct target_timeval *target_tv;
895
896 if (!lock_user_struct(VERIFY_WRITE, target_tv, target_tv_addr, 0))
897 return -TARGET_EFAULT;
898
899 __put_user(tv->tv_sec, &target_tv->tv_sec);
900 __put_user(tv->tv_usec, &target_tv->tv_usec);
901
902 unlock_user_struct(target_tv, target_tv_addr, 1);
903
904 return 0;
905 }
906
907 #if defined(TARGET_NR_mq_open) && defined(__NR_mq_open)
908 #include <mqueue.h>
909
910 static inline abi_long copy_from_user_mq_attr(struct mq_attr *attr,
911 abi_ulong target_mq_attr_addr)
912 {
913 struct target_mq_attr *target_mq_attr;
914
915 if (!lock_user_struct(VERIFY_READ, target_mq_attr,
916 target_mq_attr_addr, 1))
917 return -TARGET_EFAULT;
918
919 __get_user(attr->mq_flags, &target_mq_attr->mq_flags);
920 __get_user(attr->mq_maxmsg, &target_mq_attr->mq_maxmsg);
921 __get_user(attr->mq_msgsize, &target_mq_attr->mq_msgsize);
922 __get_user(attr->mq_curmsgs, &target_mq_attr->mq_curmsgs);
923
924 unlock_user_struct(target_mq_attr, target_mq_attr_addr, 0);
925
926 return 0;
927 }
928
929 static inline abi_long copy_to_user_mq_attr(abi_ulong target_mq_attr_addr,
930 const struct mq_attr *attr)
931 {
932 struct target_mq_attr *target_mq_attr;
933
934 if (!lock_user_struct(VERIFY_WRITE, target_mq_attr,
935 target_mq_attr_addr, 0))
936 return -TARGET_EFAULT;
937
938 __put_user(attr->mq_flags, &target_mq_attr->mq_flags);
939 __put_user(attr->mq_maxmsg, &target_mq_attr->mq_maxmsg);
940 __put_user(attr->mq_msgsize, &target_mq_attr->mq_msgsize);
941 __put_user(attr->mq_curmsgs, &target_mq_attr->mq_curmsgs);
942
943 unlock_user_struct(target_mq_attr, target_mq_attr_addr, 1);
944
945 return 0;
946 }
947 #endif
948
949 #if defined(TARGET_NR_select) || defined(TARGET_NR__newselect)
950 /* do_select() must return target values and target errnos. */
951 static abi_long do_select(int n,
952 abi_ulong rfd_addr, abi_ulong wfd_addr,
953 abi_ulong efd_addr, abi_ulong target_tv_addr)
954 {
955 fd_set rfds, wfds, efds;
956 fd_set *rfds_ptr, *wfds_ptr, *efds_ptr;
957 struct timeval tv, *tv_ptr;
958 abi_long ret;
959
960 ret = copy_from_user_fdset_ptr(&rfds, &rfds_ptr, rfd_addr, n);
961 if (ret) {
962 return ret;
963 }
964 ret = copy_from_user_fdset_ptr(&wfds, &wfds_ptr, wfd_addr, n);
965 if (ret) {
966 return ret;
967 }
968 ret = copy_from_user_fdset_ptr(&efds, &efds_ptr, efd_addr, n);
969 if (ret) {
970 return ret;
971 }
972
973 if (target_tv_addr) {
974 if (copy_from_user_timeval(&tv, target_tv_addr))
975 return -TARGET_EFAULT;
976 tv_ptr = &tv;
977 } else {
978 tv_ptr = NULL;
979 }
980
981 ret = get_errno(select(n, rfds_ptr, wfds_ptr, efds_ptr, tv_ptr));
982
983 if (!is_error(ret)) {
984 if (rfd_addr && copy_to_user_fdset(rfd_addr, &rfds, n))
985 return -TARGET_EFAULT;
986 if (wfd_addr && copy_to_user_fdset(wfd_addr, &wfds, n))
987 return -TARGET_EFAULT;
988 if (efd_addr && copy_to_user_fdset(efd_addr, &efds, n))
989 return -TARGET_EFAULT;
990
991 if (target_tv_addr && copy_to_user_timeval(target_tv_addr, &tv))
992 return -TARGET_EFAULT;
993 }
994
995 return ret;
996 }
997 #endif
998
999 static abi_long do_pipe2(int host_pipe[], int flags)
1000 {
1001 #ifdef CONFIG_PIPE2
1002 return pipe2(host_pipe, flags);
1003 #else
1004 return -ENOSYS;
1005 #endif
1006 }
1007
1008 static abi_long do_pipe(void *cpu_env, abi_ulong pipedes,
1009 int flags, int is_pipe2)
1010 {
1011 int host_pipe[2];
1012 abi_long ret;
1013 ret = flags ? do_pipe2(host_pipe, flags) : pipe(host_pipe);
1014
1015 if (is_error(ret))
1016 return get_errno(ret);
1017
1018 /* Several targets have special calling conventions for the original
1019 pipe syscall, but didn't replicate this into the pipe2 syscall. */
1020 if (!is_pipe2) {
1021 #if defined(TARGET_ALPHA)
1022 ((CPUAlphaState *)cpu_env)->ir[IR_A4] = host_pipe[1];
1023 return host_pipe[0];
1024 #elif defined(TARGET_MIPS)
1025 ((CPUMIPSState*)cpu_env)->active_tc.gpr[3] = host_pipe[1];
1026 return host_pipe[0];
1027 #elif defined(TARGET_SH4)
1028 ((CPUSH4State*)cpu_env)->gregs[1] = host_pipe[1];
1029 return host_pipe[0];
1030 #elif defined(TARGET_SPARC)
1031 ((CPUSPARCState*)cpu_env)->regwptr[1] = host_pipe[1];
1032 return host_pipe[0];
1033 #endif
1034 }
1035
1036 if (put_user_s32(host_pipe[0], pipedes)
1037 || put_user_s32(host_pipe[1], pipedes + sizeof(host_pipe[0])))
1038 return -TARGET_EFAULT;
1039 return get_errno(ret);
1040 }
1041
1042 static inline abi_long target_to_host_ip_mreq(struct ip_mreqn *mreqn,
1043 abi_ulong target_addr,
1044 socklen_t len)
1045 {
1046 struct target_ip_mreqn *target_smreqn;
1047
1048 target_smreqn = lock_user(VERIFY_READ, target_addr, len, 1);
1049 if (!target_smreqn)
1050 return -TARGET_EFAULT;
1051 mreqn->imr_multiaddr.s_addr = target_smreqn->imr_multiaddr.s_addr;
1052 mreqn->imr_address.s_addr = target_smreqn->imr_address.s_addr;
1053 if (len == sizeof(struct target_ip_mreqn))
1054 mreqn->imr_ifindex = tswapal(target_smreqn->imr_ifindex);
1055 unlock_user(target_smreqn, target_addr, 0);
1056
1057 return 0;
1058 }
1059
1060 static inline abi_long target_to_host_sockaddr(struct sockaddr *addr,
1061 abi_ulong target_addr,
1062 socklen_t len)
1063 {
1064 const socklen_t unix_maxlen = sizeof (struct sockaddr_un);
1065 sa_family_t sa_family;
1066 struct target_sockaddr *target_saddr;
1067
1068 target_saddr = lock_user(VERIFY_READ, target_addr, len, 1);
1069 if (!target_saddr)
1070 return -TARGET_EFAULT;
1071
1072 sa_family = tswap16(target_saddr->sa_family);
1073
1074 /* Oops. The caller might send a incomplete sun_path; sun_path
1075 * must be terminated by \0 (see the manual page), but
1076 * unfortunately it is quite common to specify sockaddr_un
1077 * length as "strlen(x->sun_path)" while it should be
1078 * "strlen(...) + 1". We'll fix that here if needed.
1079 * Linux kernel has a similar feature.
1080 */
1081
1082 if (sa_family == AF_UNIX) {
1083 if (len < unix_maxlen && len > 0) {
1084 char *cp = (char*)target_saddr;
1085
1086 if ( cp[len-1] && !cp[len] )
1087 len++;
1088 }
1089 if (len > unix_maxlen)
1090 len = unix_maxlen;
1091 }
1092
1093 memcpy(addr, target_saddr, len);
1094 addr->sa_family = sa_family;
1095 unlock_user(target_saddr, target_addr, 0);
1096
1097 return 0;
1098 }
1099
1100 static inline abi_long host_to_target_sockaddr(abi_ulong target_addr,
1101 struct sockaddr *addr,
1102 socklen_t len)
1103 {
1104 struct target_sockaddr *target_saddr;
1105
1106 target_saddr = lock_user(VERIFY_WRITE, target_addr, len, 0);
1107 if (!target_saddr)
1108 return -TARGET_EFAULT;
1109 memcpy(target_saddr, addr, len);
1110 target_saddr->sa_family = tswap16(addr->sa_family);
1111 unlock_user(target_saddr, target_addr, len);
1112
1113 return 0;
1114 }
1115
1116 static inline abi_long target_to_host_cmsg(struct msghdr *msgh,
1117 struct target_msghdr *target_msgh)
1118 {
1119 struct cmsghdr *cmsg = CMSG_FIRSTHDR(msgh);
1120 abi_long msg_controllen;
1121 abi_ulong target_cmsg_addr;
1122 struct target_cmsghdr *target_cmsg;
1123 socklen_t space = 0;
1124
1125 msg_controllen = tswapal(target_msgh->msg_controllen);
1126 if (msg_controllen < sizeof (struct target_cmsghdr))
1127 goto the_end;
1128 target_cmsg_addr = tswapal(target_msgh->msg_control);
1129 target_cmsg = lock_user(VERIFY_READ, target_cmsg_addr, msg_controllen, 1);
1130 if (!target_cmsg)
1131 return -TARGET_EFAULT;
1132
1133 while (cmsg && target_cmsg) {
1134 void *data = CMSG_DATA(cmsg);
1135 void *target_data = TARGET_CMSG_DATA(target_cmsg);
1136
1137 int len = tswapal(target_cmsg->cmsg_len)
1138 - TARGET_CMSG_ALIGN(sizeof (struct target_cmsghdr));
1139
1140 space += CMSG_SPACE(len);
1141 if (space > msgh->msg_controllen) {
1142 space -= CMSG_SPACE(len);
1143 gemu_log("Host cmsg overflow\n");
1144 break;
1145 }
1146
1147 if (tswap32(target_cmsg->cmsg_level) == TARGET_SOL_SOCKET) {
1148 cmsg->cmsg_level = SOL_SOCKET;
1149 } else {
1150 cmsg->cmsg_level = tswap32(target_cmsg->cmsg_level);
1151 }
1152 cmsg->cmsg_type = tswap32(target_cmsg->cmsg_type);
1153 cmsg->cmsg_len = CMSG_LEN(len);
1154
1155 if (cmsg->cmsg_level != SOL_SOCKET || cmsg->cmsg_type != SCM_RIGHTS) {
1156 gemu_log("Unsupported ancillary data: %d/%d\n", cmsg->cmsg_level, cmsg->cmsg_type);
1157 memcpy(data, target_data, len);
1158 } else {
1159 int *fd = (int *)data;
1160 int *target_fd = (int *)target_data;
1161 int i, numfds = len / sizeof(int);
1162
1163 for (i = 0; i < numfds; i++)
1164 fd[i] = tswap32(target_fd[i]);
1165 }
1166
1167 cmsg = CMSG_NXTHDR(msgh, cmsg);
1168 target_cmsg = TARGET_CMSG_NXTHDR(target_msgh, target_cmsg);
1169 }
1170 unlock_user(target_cmsg, target_cmsg_addr, 0);
1171 the_end:
1172 msgh->msg_controllen = space;
1173 return 0;
1174 }
1175
1176 static inline abi_long host_to_target_cmsg(struct target_msghdr *target_msgh,
1177 struct msghdr *msgh)
1178 {
1179 struct cmsghdr *cmsg = CMSG_FIRSTHDR(msgh);
1180 abi_long msg_controllen;
1181 abi_ulong target_cmsg_addr;
1182 struct target_cmsghdr *target_cmsg;
1183 socklen_t space = 0;
1184
1185 msg_controllen = tswapal(target_msgh->msg_controllen);
1186 if (msg_controllen < sizeof (struct target_cmsghdr))
1187 goto the_end;
1188 target_cmsg_addr = tswapal(target_msgh->msg_control);
1189 target_cmsg = lock_user(VERIFY_WRITE, target_cmsg_addr, msg_controllen, 0);
1190 if (!target_cmsg)
1191 return -TARGET_EFAULT;
1192
1193 while (cmsg && target_cmsg) {
1194 void *data = CMSG_DATA(cmsg);
1195 void *target_data = TARGET_CMSG_DATA(target_cmsg);
1196
1197 int len = cmsg->cmsg_len - CMSG_ALIGN(sizeof (struct cmsghdr));
1198
1199 space += TARGET_CMSG_SPACE(len);
1200 if (space > msg_controllen) {
1201 space -= TARGET_CMSG_SPACE(len);
1202 gemu_log("Target cmsg overflow\n");
1203 break;
1204 }
1205
1206 if (cmsg->cmsg_level == SOL_SOCKET) {
1207 target_cmsg->cmsg_level = tswap32(TARGET_SOL_SOCKET);
1208 } else {
1209 target_cmsg->cmsg_level = tswap32(cmsg->cmsg_level);
1210 }
1211 target_cmsg->cmsg_type = tswap32(cmsg->cmsg_type);
1212 target_cmsg->cmsg_len = tswapal(TARGET_CMSG_LEN(len));
1213
1214 switch (cmsg->cmsg_level) {
1215 case SOL_SOCKET:
1216 switch (cmsg->cmsg_type) {
1217 case SCM_RIGHTS:
1218 {
1219 int *fd = (int *)data;
1220 int *target_fd = (int *)target_data;
1221 int i, numfds = len / sizeof(int);
1222
1223 for (i = 0; i < numfds; i++)
1224 target_fd[i] = tswap32(fd[i]);
1225 break;
1226 }
1227 case SO_TIMESTAMP:
1228 {
1229 struct timeval *tv = (struct timeval *)data;
1230 struct target_timeval *target_tv =
1231 (struct target_timeval *)target_data;
1232
1233 if (len != sizeof(struct timeval))
1234 goto unimplemented;
1235
1236 /* copy struct timeval to target */
1237 target_tv->tv_sec = tswapal(tv->tv_sec);
1238 target_tv->tv_usec = tswapal(tv->tv_usec);
1239 break;
1240 }
1241 case SCM_CREDENTIALS:
1242 {
1243 struct ucred *cred = (struct ucred *)data;
1244 struct target_ucred *target_cred =
1245 (struct target_ucred *)target_data;
1246
1247 __put_user(cred->pid, &target_cred->pid);
1248 __put_user(cred->uid, &target_cred->uid);
1249 __put_user(cred->gid, &target_cred->gid);
1250 break;
1251 }
1252 default:
1253 goto unimplemented;
1254 }
1255 break;
1256
1257 default:
1258 unimplemented:
1259 gemu_log("Unsupported ancillary data: %d/%d\n",
1260 cmsg->cmsg_level, cmsg->cmsg_type);
1261 memcpy(target_data, data, len);
1262 }
1263
1264 cmsg = CMSG_NXTHDR(msgh, cmsg);
1265 target_cmsg = TARGET_CMSG_NXTHDR(target_msgh, target_cmsg);
1266 }
1267 unlock_user(target_cmsg, target_cmsg_addr, space);
1268 the_end:
1269 target_msgh->msg_controllen = tswapal(space);
1270 return 0;
1271 }
1272
1273 /* do_setsockopt() Must return target values and target errnos. */
1274 static abi_long do_setsockopt(int sockfd, int level, int optname,
1275 abi_ulong optval_addr, socklen_t optlen)
1276 {
1277 abi_long ret;
1278 int val;
1279 struct ip_mreqn *ip_mreq;
1280 struct ip_mreq_source *ip_mreq_source;
1281
1282 switch(level) {
1283 case SOL_TCP:
1284 /* TCP options all take an 'int' value. */
1285 if (optlen < sizeof(uint32_t))
1286 return -TARGET_EINVAL;
1287
1288 if (get_user_u32(val, optval_addr))
1289 return -TARGET_EFAULT;
1290 ret = get_errno(setsockopt(sockfd, level, optname, &val, sizeof(val)));
1291 break;
1292 case SOL_IP:
1293 switch(optname) {
1294 case IP_TOS:
1295 case IP_TTL:
1296 case IP_HDRINCL:
1297 case IP_ROUTER_ALERT:
1298 case IP_RECVOPTS:
1299 case IP_RETOPTS:
1300 case IP_PKTINFO:
1301 case IP_MTU_DISCOVER:
1302 case IP_RECVERR:
1303 case IP_RECVTOS:
1304 #ifdef IP_FREEBIND
1305 case IP_FREEBIND:
1306 #endif
1307 case IP_MULTICAST_TTL:
1308 case IP_MULTICAST_LOOP:
1309 val = 0;
1310 if (optlen >= sizeof(uint32_t)) {
1311 if (get_user_u32(val, optval_addr))
1312 return -TARGET_EFAULT;
1313 } else if (optlen >= 1) {
1314 if (get_user_u8(val, optval_addr))
1315 return -TARGET_EFAULT;
1316 }
1317 ret = get_errno(setsockopt(sockfd, level, optname, &val, sizeof(val)));
1318 break;
1319 case IP_ADD_MEMBERSHIP:
1320 case IP_DROP_MEMBERSHIP:
1321 if (optlen < sizeof (struct target_ip_mreq) ||
1322 optlen > sizeof (struct target_ip_mreqn))
1323 return -TARGET_EINVAL;
1324
1325 ip_mreq = (struct ip_mreqn *) alloca(optlen);
1326 target_to_host_ip_mreq(ip_mreq, optval_addr, optlen);
1327 ret = get_errno(setsockopt(sockfd, level, optname, ip_mreq, optlen));
1328 break;
1329
1330 case IP_BLOCK_SOURCE:
1331 case IP_UNBLOCK_SOURCE:
1332 case IP_ADD_SOURCE_MEMBERSHIP:
1333 case IP_DROP_SOURCE_MEMBERSHIP:
1334 if (optlen != sizeof (struct target_ip_mreq_source))
1335 return -TARGET_EINVAL;
1336
1337 ip_mreq_source = lock_user(VERIFY_READ, optval_addr, optlen, 1);
1338 ret = get_errno(setsockopt(sockfd, level, optname, ip_mreq_source, optlen));
1339 unlock_user (ip_mreq_source, optval_addr, 0);
1340 break;
1341
1342 default:
1343 goto unimplemented;
1344 }
1345 break;
1346 case SOL_IPV6:
1347 switch (optname) {
1348 case IPV6_MTU_DISCOVER:
1349 case IPV6_MTU:
1350 case IPV6_V6ONLY:
1351 case IPV6_RECVPKTINFO:
1352 val = 0;
1353 if (optlen < sizeof(uint32_t)) {
1354 return -TARGET_EINVAL;
1355 }
1356 if (get_user_u32(val, optval_addr)) {
1357 return -TARGET_EFAULT;
1358 }
1359 ret = get_errno(setsockopt(sockfd, level, optname,
1360 &val, sizeof(val)));
1361 break;
1362 default:
1363 goto unimplemented;
1364 }
1365 break;
1366 case SOL_RAW:
1367 switch (optname) {
1368 case ICMP_FILTER:
1369 /* struct icmp_filter takes an u32 value */
1370 if (optlen < sizeof(uint32_t)) {
1371 return -TARGET_EINVAL;
1372 }
1373
1374 if (get_user_u32(val, optval_addr)) {
1375 return -TARGET_EFAULT;
1376 }
1377 ret = get_errno(setsockopt(sockfd, level, optname,
1378 &val, sizeof(val)));
1379 break;
1380
1381 default:
1382 goto unimplemented;
1383 }
1384 break;
1385 case TARGET_SOL_SOCKET:
1386 switch (optname) {
1387 case TARGET_SO_RCVTIMEO:
1388 {
1389 struct timeval tv;
1390
1391 optname = SO_RCVTIMEO;
1392
1393 set_timeout:
1394 if (optlen != sizeof(struct target_timeval)) {
1395 return -TARGET_EINVAL;
1396 }
1397
1398 if (copy_from_user_timeval(&tv, optval_addr)) {
1399 return -TARGET_EFAULT;
1400 }
1401
1402 ret = get_errno(setsockopt(sockfd, SOL_SOCKET, optname,
1403 &tv, sizeof(tv)));
1404 return ret;
1405 }
1406 case TARGET_SO_SNDTIMEO:
1407 optname = SO_SNDTIMEO;
1408 goto set_timeout;
1409 case TARGET_SO_ATTACH_FILTER:
1410 {
1411 struct target_sock_fprog *tfprog;
1412 struct target_sock_filter *tfilter;
1413 struct sock_fprog fprog;
1414 struct sock_filter *filter;
1415 int i;
1416
1417 if (optlen != sizeof(*tfprog)) {
1418 return -TARGET_EINVAL;
1419 }
1420 if (!lock_user_struct(VERIFY_READ, tfprog, optval_addr, 0)) {
1421 return -TARGET_EFAULT;
1422 }
1423 if (!lock_user_struct(VERIFY_READ, tfilter,
1424 tswapal(tfprog->filter), 0)) {
1425 unlock_user_struct(tfprog, optval_addr, 1);
1426 return -TARGET_EFAULT;
1427 }
1428
1429 fprog.len = tswap16(tfprog->len);
1430 filter = malloc(fprog.len * sizeof(*filter));
1431 if (filter == NULL) {
1432 unlock_user_struct(tfilter, tfprog->filter, 1);
1433 unlock_user_struct(tfprog, optval_addr, 1);
1434 return -TARGET_ENOMEM;
1435 }
1436 for (i = 0; i < fprog.len; i++) {
1437 filter[i].code = tswap16(tfilter[i].code);
1438 filter[i].jt = tfilter[i].jt;
1439 filter[i].jf = tfilter[i].jf;
1440 filter[i].k = tswap32(tfilter[i].k);
1441 }
1442 fprog.filter = filter;
1443
1444 ret = get_errno(setsockopt(sockfd, SOL_SOCKET,
1445 SO_ATTACH_FILTER, &fprog, sizeof(fprog)));
1446 free(filter);
1447
1448 unlock_user_struct(tfilter, tfprog->filter, 1);
1449 unlock_user_struct(tfprog, optval_addr, 1);
1450 return ret;
1451 }
1452 /* Options with 'int' argument. */
1453 case TARGET_SO_DEBUG:
1454 optname = SO_DEBUG;
1455 break;
1456 case TARGET_SO_REUSEADDR:
1457 optname = SO_REUSEADDR;
1458 break;
1459 case TARGET_SO_TYPE:
1460 optname = SO_TYPE;
1461 break;
1462 case TARGET_SO_ERROR:
1463 optname = SO_ERROR;
1464 break;
1465 case TARGET_SO_DONTROUTE:
1466 optname = SO_DONTROUTE;
1467 break;
1468 case TARGET_SO_BROADCAST:
1469 optname = SO_BROADCAST;
1470 break;
1471 case TARGET_SO_SNDBUF:
1472 optname = SO_SNDBUF;
1473 break;
1474 case TARGET_SO_RCVBUF:
1475 optname = SO_RCVBUF;
1476 break;
1477 case TARGET_SO_KEEPALIVE:
1478 optname = SO_KEEPALIVE;
1479 break;
1480 case TARGET_SO_OOBINLINE:
1481 optname = SO_OOBINLINE;
1482 break;
1483 case TARGET_SO_NO_CHECK:
1484 optname = SO_NO_CHECK;
1485 break;
1486 case TARGET_SO_PRIORITY:
1487 optname = SO_PRIORITY;
1488 break;
1489 #ifdef SO_BSDCOMPAT
1490 case TARGET_SO_BSDCOMPAT:
1491 optname = SO_BSDCOMPAT;
1492 break;
1493 #endif
1494 case TARGET_SO_PASSCRED:
1495 optname = SO_PASSCRED;
1496 break;
1497 case TARGET_SO_TIMESTAMP:
1498 optname = SO_TIMESTAMP;
1499 break;
1500 case TARGET_SO_RCVLOWAT:
1501 optname = SO_RCVLOWAT;
1502 break;
1503 break;
1504 default:
1505 goto unimplemented;
1506 }
1507 if (optlen < sizeof(uint32_t))
1508 return -TARGET_EINVAL;
1509
1510 if (get_user_u32(val, optval_addr))
1511 return -TARGET_EFAULT;
1512 ret = get_errno(setsockopt(sockfd, SOL_SOCKET, optname, &val, sizeof(val)));
1513 break;
1514 default:
1515 unimplemented:
1516 gemu_log("Unsupported setsockopt level=%d optname=%d\n", level, optname);
1517 ret = -TARGET_ENOPROTOOPT;
1518 }
1519 return ret;
1520 }
1521
1522 /* do_getsockopt() Must return target values and target errnos. */
1523 static abi_long do_getsockopt(int sockfd, int level, int optname,
1524 abi_ulong optval_addr, abi_ulong optlen)
1525 {
1526 abi_long ret;
1527 int len, val;
1528 socklen_t lv;
1529
1530 switch(level) {
1531 case TARGET_SOL_SOCKET:
1532 level = SOL_SOCKET;
1533 switch (optname) {
1534 /* These don't just return a single integer */
1535 case TARGET_SO_LINGER:
1536 case TARGET_SO_RCVTIMEO:
1537 case TARGET_SO_SNDTIMEO:
1538 case TARGET_SO_PEERNAME:
1539 goto unimplemented;
1540 case TARGET_SO_PEERCRED: {
1541 struct ucred cr;
1542 socklen_t crlen;
1543 struct target_ucred *tcr;
1544
1545 if (get_user_u32(len, optlen)) {
1546 return -TARGET_EFAULT;
1547 }
1548 if (len < 0) {
1549 return -TARGET_EINVAL;
1550 }
1551
1552 crlen = sizeof(cr);
1553 ret = get_errno(getsockopt(sockfd, level, SO_PEERCRED,
1554 &cr, &crlen));
1555 if (ret < 0) {
1556 return ret;
1557 }
1558 if (len > crlen) {
1559 len = crlen;
1560 }
1561 if (!lock_user_struct(VERIFY_WRITE, tcr, optval_addr, 0)) {
1562 return -TARGET_EFAULT;
1563 }
1564 __put_user(cr.pid, &tcr->pid);
1565 __put_user(cr.uid, &tcr->uid);
1566 __put_user(cr.gid, &tcr->gid);
1567 unlock_user_struct(tcr, optval_addr, 1);
1568 if (put_user_u32(len, optlen)) {
1569 return -TARGET_EFAULT;
1570 }
1571 break;
1572 }
1573 /* Options with 'int' argument. */
1574 case TARGET_SO_DEBUG:
1575 optname = SO_DEBUG;
1576 goto int_case;
1577 case TARGET_SO_REUSEADDR:
1578 optname = SO_REUSEADDR;
1579 goto int_case;
1580 case TARGET_SO_TYPE:
1581 optname = SO_TYPE;
1582 goto int_case;
1583 case TARGET_SO_ERROR:
1584 optname = SO_ERROR;
1585 goto int_case;
1586 case TARGET_SO_DONTROUTE:
1587 optname = SO_DONTROUTE;
1588 goto int_case;
1589 case TARGET_SO_BROADCAST:
1590 optname = SO_BROADCAST;
1591 goto int_case;
1592 case TARGET_SO_SNDBUF:
1593 optname = SO_SNDBUF;
1594 goto int_case;
1595 case TARGET_SO_RCVBUF:
1596 optname = SO_RCVBUF;
1597 goto int_case;
1598 case TARGET_SO_KEEPALIVE:
1599 optname = SO_KEEPALIVE;
1600 goto int_case;
1601 case TARGET_SO_OOBINLINE:
1602 optname = SO_OOBINLINE;
1603 goto int_case;
1604 case TARGET_SO_NO_CHECK:
1605 optname = SO_NO_CHECK;
1606 goto int_case;
1607 case TARGET_SO_PRIORITY:
1608 optname = SO_PRIORITY;
1609 goto int_case;
1610 #ifdef SO_BSDCOMPAT
1611 case TARGET_SO_BSDCOMPAT:
1612 optname = SO_BSDCOMPAT;
1613 goto int_case;
1614 #endif
1615 case TARGET_SO_PASSCRED:
1616 optname = SO_PASSCRED;
1617 goto int_case;
1618 case TARGET_SO_TIMESTAMP:
1619 optname = SO_TIMESTAMP;
1620 goto int_case;
1621 case TARGET_SO_RCVLOWAT:
1622 optname = SO_RCVLOWAT;
1623 goto int_case;
1624 default:
1625 goto int_case;
1626 }
1627 break;
1628 case SOL_TCP:
1629 /* TCP options all take an 'int' value. */
1630 int_case:
1631 if (get_user_u32(len, optlen))
1632 return -TARGET_EFAULT;
1633 if (len < 0)
1634 return -TARGET_EINVAL;
1635 lv = sizeof(lv);
1636 ret = get_errno(getsockopt(sockfd, level, optname, &val, &lv));
1637 if (ret < 0)
1638 return ret;
1639 if (len > lv)
1640 len = lv;
1641 if (len == 4) {
1642 if (put_user_u32(val, optval_addr))
1643 return -TARGET_EFAULT;
1644 } else {
1645 if (put_user_u8(val, optval_addr))
1646 return -TARGET_EFAULT;
1647 }
1648 if (put_user_u32(len, optlen))
1649 return -TARGET_EFAULT;
1650 break;
1651 case SOL_IP:
1652 switch(optname) {
1653 case IP_TOS:
1654 case IP_TTL:
1655 case IP_HDRINCL:
1656 case IP_ROUTER_ALERT:
1657 case IP_RECVOPTS:
1658 case IP_RETOPTS:
1659 case IP_PKTINFO:
1660 case IP_MTU_DISCOVER:
1661 case IP_RECVERR:
1662 case IP_RECVTOS:
1663 #ifdef IP_FREEBIND
1664 case IP_FREEBIND:
1665 #endif
1666 case IP_MULTICAST_TTL:
1667 case IP_MULTICAST_LOOP:
1668 if (get_user_u32(len, optlen))
1669 return -TARGET_EFAULT;
1670 if (len < 0)
1671 return -TARGET_EINVAL;
1672 lv = sizeof(lv);
1673 ret = get_errno(getsockopt(sockfd, level, optname, &val, &lv));
1674 if (ret < 0)
1675 return ret;
1676 if (len < sizeof(int) && len > 0 && val >= 0 && val < 255) {
1677 len = 1;
1678 if (put_user_u32(len, optlen)
1679 || put_user_u8(val, optval_addr))
1680 return -TARGET_EFAULT;
1681 } else {
1682 if (len > sizeof(int))
1683 len = sizeof(int);
1684 if (put_user_u32(len, optlen)
1685 || put_user_u32(val, optval_addr))
1686 return -TARGET_EFAULT;
1687 }
1688 break;
1689 default:
1690 ret = -TARGET_ENOPROTOOPT;
1691 break;
1692 }
1693 break;
1694 default:
1695 unimplemented:
1696 gemu_log("getsockopt level=%d optname=%d not yet supported\n",
1697 level, optname);
1698 ret = -TARGET_EOPNOTSUPP;
1699 break;
1700 }
1701 return ret;
1702 }
1703
1704 static struct iovec *lock_iovec(int type, abi_ulong target_addr,
1705 int count, int copy)
1706 {
1707 struct target_iovec *target_vec;
1708 struct iovec *vec;
1709 abi_ulong total_len, max_len;
1710 int i;
1711 int err = 0;
1712
1713 if (count == 0) {
1714 errno = 0;
1715 return NULL;
1716 }
1717 if (count < 0 || count > IOV_MAX) {
1718 errno = EINVAL;
1719 return NULL;
1720 }
1721
1722 vec = calloc(count, sizeof(struct iovec));
1723 if (vec == NULL) {
1724 errno = ENOMEM;
1725 return NULL;
1726 }
1727
1728 target_vec = lock_user(VERIFY_READ, target_addr,
1729 count * sizeof(struct target_iovec), 1);
1730 if (target_vec == NULL) {
1731 err = EFAULT;
1732 goto fail2;
1733 }
1734
1735 /* ??? If host page size > target page size, this will result in a
1736 value larger than what we can actually support. */
1737 max_len = 0x7fffffff & TARGET_PAGE_MASK;
1738 total_len = 0;
1739
1740 for (i = 0; i < count; i++) {
1741 abi_ulong base = tswapal(target_vec[i].iov_base);
1742 abi_long len = tswapal(target_vec[i].iov_len);
1743
1744 if (len < 0) {
1745 err = EINVAL;
1746 goto fail;
1747 } else if (len == 0) {
1748 /* Zero length pointer is ignored. */
1749 vec[i].iov_base = 0;
1750 } else {
1751 vec[i].iov_base = lock_user(type, base, len, copy);
1752 if (!vec[i].iov_base) {
1753 err = EFAULT;
1754 goto fail;
1755 }
1756 if (len > max_len - total_len) {
1757 len = max_len - total_len;
1758 }
1759 }
1760 vec[i].iov_len = len;
1761 total_len += len;
1762 }
1763
1764 unlock_user(target_vec, target_addr, 0);
1765 return vec;
1766
1767 fail:
1768 unlock_user(target_vec, target_addr, 0);
1769 fail2:
1770 free(vec);
1771 errno = err;
1772 return NULL;
1773 }
1774
1775 static void unlock_iovec(struct iovec *vec, abi_ulong target_addr,
1776 int count, int copy)
1777 {
1778 struct target_iovec *target_vec;
1779 int i;
1780
1781 target_vec = lock_user(VERIFY_READ, target_addr,
1782 count * sizeof(struct target_iovec), 1);
1783 if (target_vec) {
1784 for (i = 0; i < count; i++) {
1785 abi_ulong base = tswapal(target_vec[i].iov_base);
1786 abi_long len = tswapal(target_vec[i].iov_base);
1787 if (len < 0) {
1788 break;
1789 }
1790 unlock_user(vec[i].iov_base, base, copy ? vec[i].iov_len : 0);
1791 }
1792 unlock_user(target_vec, target_addr, 0);
1793 }
1794
1795 free(vec);
1796 }
1797
1798 static inline int target_to_host_sock_type(int *type)
1799 {
1800 int host_type = 0;
1801 int target_type = *type;
1802
1803 switch (target_type & TARGET_SOCK_TYPE_MASK) {
1804 case TARGET_SOCK_DGRAM:
1805 host_type = SOCK_DGRAM;
1806 break;
1807 case TARGET_SOCK_STREAM:
1808 host_type = SOCK_STREAM;
1809 break;
1810 default:
1811 host_type = target_type & TARGET_SOCK_TYPE_MASK;
1812 break;
1813 }
1814 if (target_type & TARGET_SOCK_CLOEXEC) {
1815 #if defined(SOCK_CLOEXEC)
1816 host_type |= SOCK_CLOEXEC;
1817 #else
1818 return -TARGET_EINVAL;
1819 #endif
1820 }
1821 if (target_type & TARGET_SOCK_NONBLOCK) {
1822 #if defined(SOCK_NONBLOCK)
1823 host_type |= SOCK_NONBLOCK;
1824 #elif !defined(O_NONBLOCK)
1825 return -TARGET_EINVAL;
1826 #endif
1827 }
1828 *type = host_type;
1829 return 0;
1830 }
1831
1832 /* Try to emulate socket type flags after socket creation. */
1833 static int sock_flags_fixup(int fd, int target_type)
1834 {
1835 #if !defined(SOCK_NONBLOCK) && defined(O_NONBLOCK)
1836 if (target_type & TARGET_SOCK_NONBLOCK) {
1837 int flags = fcntl(fd, F_GETFL);
1838 if (fcntl(fd, F_SETFL, O_NONBLOCK | flags) == -1) {
1839 close(fd);
1840 return -TARGET_EINVAL;
1841 }
1842 }
1843 #endif
1844 return fd;
1845 }
1846
1847 /* do_socket() Must return target values and target errnos. */
1848 static abi_long do_socket(int domain, int type, int protocol)
1849 {
1850 int target_type = type;
1851 int ret;
1852
1853 ret = target_to_host_sock_type(&type);
1854 if (ret) {
1855 return ret;
1856 }
1857
1858 if (domain == PF_NETLINK)
1859 return -TARGET_EAFNOSUPPORT;
1860 ret = get_errno(socket(domain, type, protocol));
1861 if (ret >= 0) {
1862 ret = sock_flags_fixup(ret, target_type);
1863 }
1864 return ret;
1865 }
1866
1867 /* do_bind() Must return target values and target errnos. */
1868 static abi_long do_bind(int sockfd, abi_ulong target_addr,
1869 socklen_t addrlen)
1870 {
1871 void *addr;
1872 abi_long ret;
1873
1874 if ((int)addrlen < 0) {
1875 return -TARGET_EINVAL;
1876 }
1877
1878 addr = alloca(addrlen+1);
1879
1880 ret = target_to_host_sockaddr(addr, target_addr, addrlen);
1881 if (ret)
1882 return ret;
1883
1884 return get_errno(bind(sockfd, addr, addrlen));
1885 }
1886
1887 /* do_connect() Must return target values and target errnos. */
1888 static abi_long do_connect(int sockfd, abi_ulong target_addr,
1889 socklen_t addrlen)
1890 {
1891 void *addr;
1892 abi_long ret;
1893
1894 if ((int)addrlen < 0) {
1895 return -TARGET_EINVAL;
1896 }
1897
1898 addr = alloca(addrlen);
1899
1900 ret = target_to_host_sockaddr(addr, target_addr, addrlen);
1901 if (ret)
1902 return ret;
1903
1904 return get_errno(connect(sockfd, addr, addrlen));
1905 }
1906
1907 /* do_sendrecvmsg_locked() Must return target values and target errnos. */
1908 static abi_long do_sendrecvmsg_locked(int fd, struct target_msghdr *msgp,
1909 int flags, int send)
1910 {
1911 abi_long ret, len;
1912 struct msghdr msg;
1913 int count;
1914 struct iovec *vec;
1915 abi_ulong target_vec;
1916
1917 if (msgp->msg_name) {
1918 msg.msg_namelen = tswap32(msgp->msg_namelen);
1919 msg.msg_name = alloca(msg.msg_namelen);
1920 ret = target_to_host_sockaddr(msg.msg_name, tswapal(msgp->msg_name),
1921 msg.msg_namelen);
1922 if (ret) {
1923 goto out2;
1924 }
1925 } else {
1926 msg.msg_name = NULL;
1927 msg.msg_namelen = 0;
1928 }
1929 msg.msg_controllen = 2 * tswapal(msgp->msg_controllen);
1930 msg.msg_control = alloca(msg.msg_controllen);
1931 msg.msg_flags = tswap32(msgp->msg_flags);
1932
1933 count = tswapal(msgp->msg_iovlen);
1934 target_vec = tswapal(msgp->msg_iov);
1935 vec = lock_iovec(send ? VERIFY_READ : VERIFY_WRITE,
1936 target_vec, count, send);
1937 if (vec == NULL) {
1938 ret = -host_to_target_errno(errno);
1939 goto out2;
1940 }
1941 msg.msg_iovlen = count;
1942 msg.msg_iov = vec;
1943
1944 if (send) {
1945 ret = target_to_host_cmsg(&msg, msgp);
1946 if (ret == 0)
1947 ret = get_errno(sendmsg(fd, &msg, flags));
1948 } else {
1949 ret = get_errno(recvmsg(fd, &msg, flags));
1950 if (!is_error(ret)) {
1951 len = ret;
1952 ret = host_to_target_cmsg(msgp, &msg);
1953 if (!is_error(ret)) {
1954 msgp->msg_namelen = tswap32(msg.msg_namelen);
1955 if (msg.msg_name != NULL) {
1956 ret = host_to_target_sockaddr(tswapal(msgp->msg_name),
1957 msg.msg_name, msg.msg_namelen);
1958 if (ret) {
1959 goto out;
1960 }
1961 }
1962
1963 ret = len;
1964 }
1965 }
1966 }
1967
1968 out:
1969 unlock_iovec(vec, target_vec, count, !send);
1970 out2:
1971 return ret;
1972 }
1973
1974 static abi_long do_sendrecvmsg(int fd, abi_ulong target_msg,
1975 int flags, int send)
1976 {
1977 abi_long ret;
1978 struct target_msghdr *msgp;
1979
1980 if (!lock_user_struct(send ? VERIFY_READ : VERIFY_WRITE,
1981 msgp,
1982 target_msg,
1983 send ? 1 : 0)) {
1984 return -TARGET_EFAULT;
1985 }
1986 ret = do_sendrecvmsg_locked(fd, msgp, flags, send);
1987 unlock_user_struct(msgp, target_msg, send ? 0 : 1);
1988 return ret;
1989 }
1990
1991 #ifdef TARGET_NR_sendmmsg
1992 /* We don't rely on the C library to have sendmmsg/recvmmsg support,
1993 * so it might not have this *mmsg-specific flag either.
1994 */
1995 #ifndef MSG_WAITFORONE
1996 #define MSG_WAITFORONE 0x10000
1997 #endif
1998
1999 static abi_long do_sendrecvmmsg(int fd, abi_ulong target_msgvec,
2000 unsigned int vlen, unsigned int flags,
2001 int send)
2002 {
2003 struct target_mmsghdr *mmsgp;
2004 abi_long ret = 0;
2005 int i;
2006
2007 if (vlen > UIO_MAXIOV) {
2008 vlen = UIO_MAXIOV;
2009 }
2010
2011 mmsgp = lock_user(VERIFY_WRITE, target_msgvec, sizeof(*mmsgp) * vlen, 1);
2012 if (!mmsgp) {
2013 return -TARGET_EFAULT;
2014 }
2015
2016 for (i = 0; i < vlen; i++) {
2017 ret = do_sendrecvmsg_locked(fd, &mmsgp[i].msg_hdr, flags, send);
2018 if (is_error(ret)) {
2019 break;
2020 }
2021 mmsgp[i].msg_len = tswap32(ret);
2022 /* MSG_WAITFORONE turns on MSG_DONTWAIT after one packet */
2023 if (flags & MSG_WAITFORONE) {
2024 flags |= MSG_DONTWAIT;
2025 }
2026 }
2027
2028 unlock_user(mmsgp, target_msgvec, sizeof(*mmsgp) * i);
2029
2030 /* Return number of datagrams sent if we sent any at all;
2031 * otherwise return the error.
2032 */
2033 if (i) {
2034 return i;
2035 }
2036 return ret;
2037 }
2038 #endif
2039
2040 /* If we don't have a system accept4() then just call accept.
2041 * The callsites to do_accept4() will ensure that they don't
2042 * pass a non-zero flags argument in this config.
2043 */
2044 #ifndef CONFIG_ACCEPT4
2045 static inline int accept4(int sockfd, struct sockaddr *addr,
2046 socklen_t *addrlen, int flags)
2047 {
2048 assert(flags == 0);
2049 return accept(sockfd, addr, addrlen);
2050 }
2051 #endif
2052
2053 /* do_accept4() Must return target values and target errnos. */
2054 static abi_long do_accept4(int fd, abi_ulong target_addr,
2055 abi_ulong target_addrlen_addr, int flags)
2056 {
2057 socklen_t addrlen;
2058 void *addr;
2059 abi_long ret;
2060 int host_flags;
2061
2062 host_flags = target_to_host_bitmask(flags, fcntl_flags_tbl);
2063
2064 if (target_addr == 0) {
2065 return get_errno(accept4(fd, NULL, NULL, host_flags));
2066 }
2067
2068 /* linux returns EINVAL if addrlen pointer is invalid */
2069 if (get_user_u32(addrlen, target_addrlen_addr))
2070 return -TARGET_EINVAL;
2071
2072 if ((int)addrlen < 0) {
2073 return -TARGET_EINVAL;
2074 }
2075
2076 if (!access_ok(VERIFY_WRITE, target_addr, addrlen))
2077 return -TARGET_EINVAL;
2078
2079 addr = alloca(addrlen);
2080
2081 ret = get_errno(accept4(fd, addr, &addrlen, host_flags));
2082 if (!is_error(ret)) {
2083 host_to_target_sockaddr(target_addr, addr, addrlen);
2084 if (put_user_u32(addrlen, target_addrlen_addr))
2085 ret = -TARGET_EFAULT;
2086 }
2087 return ret;
2088 }
2089
2090 /* do_getpeername() Must return target values and target errnos. */
2091 static abi_long do_getpeername(int fd, abi_ulong target_addr,
2092 abi_ulong target_addrlen_addr)
2093 {
2094 socklen_t addrlen;
2095 void *addr;
2096 abi_long ret;
2097
2098 if (get_user_u32(addrlen, target_addrlen_addr))
2099 return -TARGET_EFAULT;
2100
2101 if ((int)addrlen < 0) {
2102 return -TARGET_EINVAL;
2103 }
2104
2105 if (!access_ok(VERIFY_WRITE, target_addr, addrlen))
2106 return -TARGET_EFAULT;
2107
2108 addr = alloca(addrlen);
2109
2110 ret = get_errno(getpeername(fd, addr, &addrlen));
2111 if (!is_error(ret)) {
2112 host_to_target_sockaddr(target_addr, addr, addrlen);
2113 if (put_user_u32(addrlen, target_addrlen_addr))
2114 ret = -TARGET_EFAULT;
2115 }
2116 return ret;
2117 }
2118
2119 /* do_getsockname() Must return target values and target errnos. */
2120 static abi_long do_getsockname(int fd, abi_ulong target_addr,
2121 abi_ulong target_addrlen_addr)
2122 {
2123 socklen_t addrlen;
2124 void *addr;
2125 abi_long ret;
2126
2127 if (get_user_u32(addrlen, target_addrlen_addr))
2128 return -TARGET_EFAULT;
2129
2130 if ((int)addrlen < 0) {
2131 return -TARGET_EINVAL;
2132 }
2133
2134 if (!access_ok(VERIFY_WRITE, target_addr, addrlen))
2135 return -TARGET_EFAULT;
2136
2137 addr = alloca(addrlen);
2138
2139 ret = get_errno(getsockname(fd, addr, &addrlen));
2140 if (!is_error(ret)) {
2141 host_to_target_sockaddr(target_addr, addr, addrlen);
2142 if (put_user_u32(addrlen, target_addrlen_addr))
2143 ret = -TARGET_EFAULT;
2144 }
2145 return ret;
2146 }
2147
2148 /* do_socketpair() Must return target values and target errnos. */
2149 static abi_long do_socketpair(int domain, int type, int protocol,
2150 abi_ulong target_tab_addr)
2151 {
2152 int tab[2];
2153 abi_long ret;
2154
2155 target_to_host_sock_type(&type);
2156
2157 ret = get_errno(socketpair(domain, type, protocol, tab));
2158 if (!is_error(ret)) {
2159 if (put_user_s32(tab[0], target_tab_addr)
2160 || put_user_s32(tab[1], target_tab_addr + sizeof(tab[0])))
2161 ret = -TARGET_EFAULT;
2162 }
2163 return ret;
2164 }
2165
2166 /* do_sendto() Must return target values and target errnos. */
2167 static abi_long do_sendto(int fd, abi_ulong msg, size_t len, int flags,
2168 abi_ulong target_addr, socklen_t addrlen)
2169 {
2170 void *addr;
2171 void *host_msg;
2172 abi_long ret;
2173
2174 if ((int)addrlen < 0) {
2175 return -TARGET_EINVAL;
2176 }
2177
2178 host_msg = lock_user(VERIFY_READ, msg, len, 1);
2179 if (!host_msg)
2180 return -TARGET_EFAULT;
2181 if (target_addr) {
2182 addr = alloca(addrlen);
2183 ret = target_to_host_sockaddr(addr, target_addr, addrlen);
2184 if (ret) {
2185 unlock_user(host_msg, msg, 0);
2186 return ret;
2187 }
2188 ret = get_errno(sendto(fd, host_msg, len, flags, addr, addrlen));
2189 } else {
2190 ret = get_errno(send(fd, host_msg, len, flags));
2191 }
2192 unlock_user(host_msg, msg, 0);
2193 return ret;
2194 }
2195
2196 /* do_recvfrom() Must return target values and target errnos. */
2197 static abi_long do_recvfrom(int fd, abi_ulong msg, size_t len, int flags,
2198 abi_ulong target_addr,
2199 abi_ulong target_addrlen)
2200 {
2201 socklen_t addrlen;
2202 void *addr;
2203 void *host_msg;
2204 abi_long ret;
2205
2206 host_msg = lock_user(VERIFY_WRITE, msg, len, 0);
2207 if (!host_msg)
2208 return -TARGET_EFAULT;
2209 if (target_addr) {
2210 if (get_user_u32(addrlen, target_addrlen)) {
2211 ret = -TARGET_EFAULT;
2212 goto fail;
2213 }
2214 if ((int)addrlen < 0) {
2215 ret = -TARGET_EINVAL;
2216 goto fail;
2217 }
2218 addr = alloca(addrlen);
2219 ret = get_errno(recvfrom(fd, host_msg, len, flags, addr, &addrlen));
2220 } else {
2221 addr = NULL; /* To keep compiler quiet. */
2222 ret = get_errno(qemu_recv(fd, host_msg, len, flags));
2223 }
2224 if (!is_error(ret)) {
2225 if (target_addr) {
2226 host_to_target_sockaddr(target_addr, addr, addrlen);
2227 if (put_user_u32(addrlen, target_addrlen)) {
2228 ret = -TARGET_EFAULT;
2229 goto fail;
2230 }
2231 }
2232 unlock_user(host_msg, msg, len);
2233 } else {
2234 fail:
2235 unlock_user(host_msg, msg, 0);
2236 }
2237 return ret;
2238 }
2239
2240 #ifdef TARGET_NR_socketcall
2241 /* do_socketcall() Must return target values and target errnos. */
2242 static abi_long do_socketcall(int num, abi_ulong vptr)
2243 {
2244 static const unsigned ac[] = { /* number of arguments per call */
2245 [SOCKOP_socket] = 3, /* domain, type, protocol */
2246 [SOCKOP_bind] = 3, /* sockfd, addr, addrlen */
2247 [SOCKOP_connect] = 3, /* sockfd, addr, addrlen */
2248 [SOCKOP_listen] = 2, /* sockfd, backlog */
2249 [SOCKOP_accept] = 3, /* sockfd, addr, addrlen */
2250 [SOCKOP_accept4] = 4, /* sockfd, addr, addrlen, flags */
2251 [SOCKOP_getsockname] = 3, /* sockfd, addr, addrlen */
2252 [SOCKOP_getpeername] = 3, /* sockfd, addr, addrlen */
2253 [SOCKOP_socketpair] = 4, /* domain, type, protocol, tab */
2254 [SOCKOP_send] = 4, /* sockfd, msg, len, flags */
2255 [SOCKOP_recv] = 4, /* sockfd, msg, len, flags */
2256 [SOCKOP_sendto] = 6, /* sockfd, msg, len, flags, addr, addrlen */
2257 [SOCKOP_recvfrom] = 6, /* sockfd, msg, len, flags, addr, addrlen */
2258 [SOCKOP_shutdown] = 2, /* sockfd, how */
2259 [SOCKOP_sendmsg] = 3, /* sockfd, msg, flags */
2260 [SOCKOP_recvmsg] = 3, /* sockfd, msg, flags */
2261 [SOCKOP_setsockopt] = 5, /* sockfd, level, optname, optval, optlen */
2262 [SOCKOP_getsockopt] = 5, /* sockfd, level, optname, optval, optlen */
2263 };
2264 abi_long a[6]; /* max 6 args */
2265
2266 /* first, collect the arguments in a[] according to ac[] */
2267 if (num >= 0 && num < ARRAY_SIZE(ac)) {
2268 unsigned i;
2269 assert(ARRAY_SIZE(a) >= ac[num]); /* ensure we have space for args */
2270 for (i = 0; i < ac[num]; ++i) {
2271 if (get_user_ual(a[i], vptr + i * sizeof(abi_long)) != 0) {
2272 return -TARGET_EFAULT;
2273 }
2274 }
2275 }
2276
2277 /* now when we have the args, actually handle the call */
2278 switch (num) {
2279 case SOCKOP_socket: /* domain, type, protocol */
2280 return do_socket(a[0], a[1], a[2]);
2281 case SOCKOP_bind: /* sockfd, addr, addrlen */
2282 return do_bind(a[0], a[1], a[2]);
2283 case SOCKOP_connect: /* sockfd, addr, addrlen */
2284 return do_connect(a[0], a[1], a[2]);
2285 case SOCKOP_listen: /* sockfd, backlog */
2286 return get_errno(listen(a[0], a[1]));
2287 case SOCKOP_accept: /* sockfd, addr, addrlen */
2288 return do_accept4(a[0], a[1], a[2], 0);
2289 case SOCKOP_accept4: /* sockfd, addr, addrlen, flags */
2290 return do_accept4(a[0], a[1], a[2], a[3]);
2291 case SOCKOP_getsockname: /* sockfd, addr, addrlen */
2292 return do_getsockname(a[0], a[1], a[2]);
2293 case SOCKOP_getpeername: /* sockfd, addr, addrlen */
2294 return do_getpeername(a[0], a[1], a[2]);
2295 case SOCKOP_socketpair: /* domain, type, protocol, tab */
2296 return do_socketpair(a[0], a[1], a[2], a[3]);
2297 case SOCKOP_send: /* sockfd, msg, len, flags */
2298 return do_sendto(a[0], a[1], a[2], a[3], 0, 0);
2299 case SOCKOP_recv: /* sockfd, msg, len, flags */
2300 return do_recvfrom(a[0], a[1], a[2], a[3], 0, 0);
2301 case SOCKOP_sendto: /* sockfd, msg, len, flags, addr, addrlen */
2302 return do_sendto(a[0], a[1], a[2], a[3], a[4], a[5]);
2303 case SOCKOP_recvfrom: /* sockfd, msg, len, flags, addr, addrlen */
2304 return do_recvfrom(a[0], a[1], a[2], a[3], a[4], a[5]);
2305 case SOCKOP_shutdown: /* sockfd, how */
2306 return get_errno(shutdown(a[0], a[1]));
2307 case SOCKOP_sendmsg: /* sockfd, msg, flags */
2308 return do_sendrecvmsg(a[0], a[1], a[2], 1);
2309 case SOCKOP_recvmsg: /* sockfd, msg, flags */
2310 return do_sendrecvmsg(a[0], a[1], a[2], 0);
2311 case SOCKOP_setsockopt: /* sockfd, level, optname, optval, optlen */
2312 return do_setsockopt(a[0], a[1], a[2], a[3], a[4]);
2313 case SOCKOP_getsockopt: /* sockfd, level, optname, optval, optlen */
2314 return do_getsockopt(a[0], a[1], a[2], a[3], a[4]);
2315 default:
2316 gemu_log("Unsupported socketcall: %d\n", num);
2317 return -TARGET_ENOSYS;
2318 }
2319 }
2320 #endif
2321
2322 #define N_SHM_REGIONS 32
2323
2324 static struct shm_region {
2325 abi_ulong start;
2326 abi_ulong size;
2327 } shm_regions[N_SHM_REGIONS];
2328
2329 struct target_semid_ds
2330 {
2331 struct target_ipc_perm sem_perm;
2332 abi_ulong sem_otime;
2333 abi_ulong __unused1;
2334 abi_ulong sem_ctime;
2335 abi_ulong __unused2;
2336 abi_ulong sem_nsems;
2337 abi_ulong __unused3;
2338 abi_ulong __unused4;
2339 };
2340
2341 static inline abi_long target_to_host_ipc_perm(struct ipc_perm *host_ip,
2342 abi_ulong target_addr)
2343 {
2344 struct target_ipc_perm *target_ip;
2345 struct target_semid_ds *target_sd;
2346
2347 if (!lock_user_struct(VERIFY_READ, target_sd, target_addr, 1))
2348 return -TARGET_EFAULT;
2349 target_ip = &(target_sd->sem_perm);
2350 host_ip->__key = tswap32(target_ip->__key);
2351 host_ip->uid = tswap32(target_ip->uid);
2352 host_ip->gid = tswap32(target_ip->gid);
2353 host_ip->cuid = tswap32(target_ip->cuid);
2354 host_ip->cgid = tswap32(target_ip->cgid);
2355 #if defined(TARGET_ALPHA) || defined(TARGET_MIPS) || defined(TARGET_PPC)
2356 host_ip->mode = tswap32(target_ip->mode);
2357 #else
2358 host_ip->mode = tswap16(target_ip->mode);
2359 #endif
2360 #if defined(TARGET_PPC)
2361 host_ip->__seq = tswap32(target_ip->__seq);
2362 #else
2363 host_ip->__seq = tswap16(target_ip->__seq);
2364 #endif
2365 unlock_user_struct(target_sd, target_addr, 0);
2366 return 0;
2367 }
2368
2369 static inline abi_long host_to_target_ipc_perm(abi_ulong target_addr,
2370 struct ipc_perm *host_ip)
2371 {
2372 struct target_ipc_perm *target_ip;
2373 struct target_semid_ds *target_sd;
2374
2375 if (!lock_user_struct(VERIFY_WRITE, target_sd, target_addr, 0))
2376 return -TARGET_EFAULT;
2377 target_ip = &(target_sd->sem_perm);
2378 target_ip->__key = tswap32(host_ip->__key);
2379 target_ip->uid = tswap32(host_ip->uid);
2380 target_ip->gid = tswap32(host_ip->gid);
2381 target_ip->cuid = tswap32(host_ip->cuid);
2382 target_ip->cgid = tswap32(host_ip->cgid);
2383 #if defined(TARGET_ALPHA) || defined(TARGET_MIPS) || defined(TARGET_PPC)
2384 target_ip->mode = tswap32(host_ip->mode);
2385 #else
2386 target_ip->mode = tswap16(host_ip->mode);
2387 #endif
2388 #if defined(TARGET_PPC)
2389 target_ip->__seq = tswap32(host_ip->__seq);
2390 #else
2391 target_ip->__seq = tswap16(host_ip->__seq);
2392 #endif
2393 unlock_user_struct(target_sd, target_addr, 1);
2394 return 0;
2395 }
2396
2397 static inline abi_long target_to_host_semid_ds(struct semid_ds *host_sd,
2398 abi_ulong target_addr)
2399 {
2400 struct target_semid_ds *target_sd;
2401
2402 if (!lock_user_struct(VERIFY_READ, target_sd, target_addr, 1))
2403 return -TARGET_EFAULT;
2404 if (target_to_host_ipc_perm(&(host_sd->sem_perm),target_addr))
2405 return -TARGET_EFAULT;
2406 host_sd->sem_nsems = tswapal(target_sd->sem_nsems);
2407 host_sd->sem_otime = tswapal(target_sd->sem_otime);
2408 host_sd->sem_ctime = tswapal(target_sd->sem_ctime);
2409 unlock_user_struct(target_sd, target_addr, 0);
2410 return 0;
2411 }
2412
2413 static inline abi_long host_to_target_semid_ds(abi_ulong target_addr,
2414 struct semid_ds *host_sd)
2415 {
2416 struct target_semid_ds *target_sd;
2417
2418 if (!lock_user_struct(VERIFY_WRITE, target_sd, target_addr, 0))
2419 return -TARGET_EFAULT;
2420 if (host_to_target_ipc_perm(target_addr,&(host_sd->sem_perm)))
2421 return -TARGET_EFAULT;
2422 target_sd->sem_nsems = tswapal(host_sd->sem_nsems);
2423 target_sd->sem_otime = tswapal(host_sd->sem_otime);
2424 target_sd->sem_ctime = tswapal(host_sd->sem_ctime);
2425 unlock_user_struct(target_sd, target_addr, 1);
2426 return 0;
2427 }
2428
2429 struct target_seminfo {
2430 int semmap;
2431 int semmni;
2432 int semmns;
2433 int semmnu;
2434 int semmsl;
2435 int semopm;
2436 int semume;
2437 int semusz;
2438 int semvmx;
2439 int semaem;
2440 };
2441
2442 static inline abi_long host_to_target_seminfo(abi_ulong target_addr,
2443 struct seminfo *host_seminfo)
2444 {
2445 struct target_seminfo *target_seminfo;
2446 if (!lock_user_struct(VERIFY_WRITE, target_seminfo, target_addr, 0))
2447 return -TARGET_EFAULT;
2448 __put_user(host_seminfo->semmap, &target_seminfo->semmap);
2449 __put_user(host_seminfo->semmni, &target_seminfo->semmni);
2450 __put_user(host_seminfo->semmns, &target_seminfo->semmns);
2451 __put_user(host_seminfo->semmnu, &target_seminfo->semmnu);
2452 __put_user(host_seminfo->semmsl, &target_seminfo->semmsl);
2453 __put_user(host_seminfo->semopm, &target_seminfo->semopm);
2454 __put_user(host_seminfo->semume, &target_seminfo->semume);
2455 __put_user(host_seminfo->semusz, &target_seminfo->semusz);
2456 __put_user(host_seminfo->semvmx, &target_seminfo->semvmx);
2457 __put_user(host_seminfo->semaem, &target_seminfo->semaem);
2458 unlock_user_struct(target_seminfo, target_addr, 1);
2459 return 0;
2460 }
2461
2462 union semun {
2463 int val;
2464 struct semid_ds *buf;
2465 unsigned short *array;
2466 struct seminfo *__buf;
2467 };
2468
2469 union target_semun {
2470 int val;
2471 abi_ulong buf;
2472 abi_ulong array;
2473 abi_ulong __buf;
2474 };
2475
2476 static inline abi_long target_to_host_semarray(int semid, unsigned short **host_array,
2477 abi_ulong target_addr)
2478 {
2479 int nsems;
2480 unsigned short *array;
2481 union semun semun;
2482 struct semid_ds semid_ds;
2483 int i, ret;
2484
2485 semun.buf = &semid_ds;
2486
2487 ret = semctl(semid, 0, IPC_STAT, semun);
2488 if (ret == -1)
2489 return get_errno(ret);
2490
2491 nsems = semid_ds.sem_nsems;
2492
2493 *host_array = malloc(nsems*sizeof(unsigned short));
2494 if (!*host_array) {
2495 return -TARGET_ENOMEM;
2496 }
2497 array = lock_user(VERIFY_READ, target_addr,
2498 nsems*sizeof(unsigned short), 1);
2499 if (!array) {
2500 free(*host_array);
2501 return -TARGET_EFAULT;
2502 }
2503
2504 for(i=0; i<nsems; i++) {
2505 __get_user((*host_array)[i], &array[i]);
2506 }
2507 unlock_user(array, target_addr, 0);
2508
2509 return 0;
2510 }
2511
2512 static inline abi_long host_to_target_semarray(int semid, abi_ulong target_addr,
2513 unsigned short **host_array)
2514 {
2515 int nsems;
2516 unsigned short *array;
2517 union semun semun;
2518 struct semid_ds semid_ds;
2519 int i, ret;
2520
2521 semun.buf = &semid_ds;
2522
2523 ret = semctl(semid, 0, IPC_STAT, semun);
2524 if (ret == -1)
2525 return get_errno(ret);
2526
2527 nsems = semid_ds.sem_nsems;
2528
2529 array = lock_user(VERIFY_WRITE, target_addr,
2530 nsems*sizeof(unsigned short), 0);
2531 if (!array)
2532 return -TARGET_EFAULT;
2533
2534 for(i=0; i<nsems; i++) {
2535 __put_user((*host_array)[i], &array[i]);
2536 }
2537 free(*host_array);
2538 unlock_user(array, target_addr, 1);
2539
2540 return 0;
2541 }
2542
2543 static inline abi_long do_semctl(int semid, int semnum, int cmd,
2544 union target_semun target_su)
2545 {
2546 union semun arg;
2547 struct semid_ds dsarg;
2548 unsigned short *array = NULL;
2549 struct seminfo seminfo;
2550 abi_long ret = -TARGET_EINVAL;
2551 abi_long err;
2552 cmd &= 0xff;
2553
2554 switch( cmd ) {
2555 case GETVAL:
2556 case SETVAL:
2557 arg.val = tswap32(target_su.val);
2558 ret = get_errno(semctl(semid, semnum, cmd, arg));
2559 target_su.val = tswap32(arg.val);
2560 break;
2561 case GETALL:
2562 case SETALL:
2563 err = target_to_host_semarray(semid, &array, target_su.array);
2564 if (err)
2565 return err;
2566 arg.array = array;
2567 ret = get_errno(semctl(semid, semnum, cmd, arg));
2568 err = host_to_target_semarray(semid, target_su.array, &array);
2569 if (err)
2570 return err;
2571 break;
2572 case IPC_STAT:
2573 case IPC_SET:
2574 case SEM_STAT:
2575 err = target_to_host_semid_ds(&dsarg, target_su.buf);
2576 if (err)
2577 return err;
2578 arg.buf = &dsarg;
2579 ret = get_errno(semctl(semid, semnum, cmd, arg));
2580 err = host_to_target_semid_ds(target_su.buf, &dsarg);
2581 if (err)
2582 return err;
2583 break;
2584 case IPC_INFO:
2585 case SEM_INFO:
2586 arg.__buf = &seminfo;
2587 ret = get_errno(semctl(semid, semnum, cmd, arg));
2588 err = host_to_target_seminfo(target_su.__buf, &seminfo);
2589 if (err)
2590 return err;
2591 break;
2592 case IPC_RMID:
2593 case GETPID:
2594 case GETNCNT:
2595 case GETZCNT:
2596 ret = get_errno(semctl(semid, semnum, cmd, NULL));
2597 break;
2598 }
2599
2600 return ret;
2601 }
2602
2603 struct target_sembuf {
2604 unsigned short sem_num;
2605 short sem_op;
2606 short sem_flg;
2607 };
2608
2609 static inline abi_long target_to_host_sembuf(struct sembuf *host_sembuf,
2610 abi_ulong target_addr,
2611 unsigned nsops)
2612 {
2613 struct target_sembuf *target_sembuf;
2614 int i;
2615
2616 target_sembuf = lock_user(VERIFY_READ, target_addr,
2617 nsops*sizeof(struct target_sembuf), 1);
2618 if (!target_sembuf)
2619 return -TARGET_EFAULT;
2620
2621 for(i=0; i<nsops; i++) {
2622 __get_user(host_sembuf[i].sem_num, &target_sembuf[i].sem_num);
2623 __get_user(host_sembuf[i].sem_op, &target_sembuf[i].sem_op);
2624 __get_user(host_sembuf[i].sem_flg, &target_sembuf[i].sem_flg);
2625 }
2626
2627 unlock_user(target_sembuf, target_addr, 0);
2628
2629 return 0;
2630 }
2631
2632 static inline abi_long do_semop(int semid, abi_long ptr, unsigned nsops)
2633 {
2634 struct sembuf sops[nsops];
2635
2636 if (target_to_host_sembuf(sops, ptr, nsops))
2637 return -TARGET_EFAULT;
2638
2639 return get_errno(semop(semid, sops, nsops));
2640 }
2641
2642 struct target_msqid_ds
2643 {
2644 struct target_ipc_perm msg_perm;
2645 abi_ulong msg_stime;
2646 #if TARGET_ABI_BITS == 32
2647 abi_ulong __unused1;
2648 #endif
2649 abi_ulong msg_rtime;
2650 #if TARGET_ABI_BITS == 32
2651 abi_ulong __unused2;
2652 #endif
2653 abi_ulong msg_ctime;
2654 #if TARGET_ABI_BITS == 32
2655 abi_ulong __unused3;
2656 #endif
2657 abi_ulong __msg_cbytes;
2658 abi_ulong msg_qnum;
2659 abi_ulong msg_qbytes;
2660 abi_ulong msg_lspid;
2661 abi_ulong msg_lrpid;
2662 abi_ulong __unused4;
2663 abi_ulong __unused5;
2664 };
2665
2666 static inline abi_long target_to_host_msqid_ds(struct msqid_ds *host_md,
2667 abi_ulong target_addr)
2668 {
2669 struct target_msqid_ds *target_md;
2670
2671 if (!lock_user_struct(VERIFY_READ, target_md, target_addr, 1))
2672 return -TARGET_EFAULT;
2673 if (target_to_host_ipc_perm(&(host_md->msg_perm),target_addr))
2674 return -TARGET_EFAULT;
2675 host_md->msg_stime = tswapal(target_md->msg_stime);
2676 host_md->msg_rtime = tswapal(target_md->msg_rtime);
2677 host_md->msg_ctime = tswapal(target_md->msg_ctime);
2678 host_md->__msg_cbytes = tswapal(target_md->__msg_cbytes);
2679 host_md->msg_qnum = tswapal(target_md->msg_qnum);
2680 host_md->msg_qbytes = tswapal(target_md->msg_qbytes);
2681 host_md->msg_lspid = tswapal(target_md->msg_lspid);
2682 host_md->msg_lrpid = tswapal(target_md->msg_lrpid);
2683 unlock_user_struct(target_md, target_addr, 0);
2684 return 0;
2685 }
2686
2687 static inline abi_long host_to_target_msqid_ds(abi_ulong target_addr,
2688 struct msqid_ds *host_md)
2689 {
2690 struct target_msqid_ds *target_md;
2691
2692 if (!lock_user_struct(VERIFY_WRITE, target_md, target_addr, 0))
2693 return -TARGET_EFAULT;
2694 if (host_to_target_ipc_perm(target_addr,&(host_md->msg_perm)))
2695 return -TARGET_EFAULT;
2696 target_md->msg_stime = tswapal(host_md->msg_stime);
2697 target_md->msg_rtime = tswapal(host_md->msg_rtime);
2698 target_md->msg_ctime = tswapal(host_md->msg_ctime);
2699 target_md->__msg_cbytes = tswapal(host_md->__msg_cbytes);
2700 target_md->msg_qnum = tswapal(host_md->msg_qnum);
2701 target_md->msg_qbytes = tswapal(host_md->msg_qbytes);
2702 target_md->msg_lspid = tswapal(host_md->msg_lspid);
2703 target_md->msg_lrpid = tswapal(host_md->msg_lrpid);
2704 unlock_user_struct(target_md, target_addr, 1);
2705 return 0;
2706 }
2707
2708 struct target_msginfo {
2709 int msgpool;
2710 int msgmap;
2711 int msgmax;
2712 int msgmnb;
2713 int msgmni;
2714 int msgssz;
2715 int msgtql;
2716 unsigned short int msgseg;
2717 };
2718
2719 static inline abi_long host_to_target_msginfo(abi_ulong target_addr,
2720 struct msginfo *host_msginfo)
2721 {
2722 struct target_msginfo *target_msginfo;
2723 if (!lock_user_struct(VERIFY_WRITE, target_msginfo, target_addr, 0))
2724 return -TARGET_EFAULT;
2725 __put_user(host_msginfo->msgpool, &target_msginfo->msgpool);
2726 __put_user(host_msginfo->msgmap, &target_msginfo->msgmap);
2727 __put_user(host_msginfo->msgmax, &target_msginfo->msgmax);
2728 __put_user(host_msginfo->msgmnb, &target_msginfo->msgmnb);
2729 __put_user(host_msginfo->msgmni, &target_msginfo->msgmni);
2730 __put_user(host_msginfo->msgssz, &target_msginfo->msgssz);
2731 __put_user(host_msginfo->msgtql, &target_msginfo->msgtql);
2732 __put_user(host_msginfo->msgseg, &target_msginfo->msgseg);
2733 unlock_user_struct(target_msginfo, target_addr, 1);
2734 return 0;
2735 }
2736
2737 static inline abi_long do_msgctl(int msgid, int cmd, abi_long ptr)
2738 {
2739 struct msqid_ds dsarg;
2740 struct msginfo msginfo;
2741 abi_long ret = -TARGET_EINVAL;
2742
2743 cmd &= 0xff;
2744
2745 switch (cmd) {
2746 case IPC_STAT:
2747 case IPC_SET:
2748 case MSG_STAT:
2749 if (target_to_host_msqid_ds(&dsarg,ptr))
2750 return -TARGET_EFAULT;
2751 ret = get_errno(msgctl(msgid, cmd, &dsarg));
2752 if (host_to_target_msqid_ds(ptr,&dsarg))
2753 return -TARGET_EFAULT;
2754 break;
2755 case IPC_RMID:
2756 ret = get_errno(msgctl(msgid, cmd, NULL));
2757 break;
2758 case IPC_INFO:
2759 case MSG_INFO:
2760 ret = get_errno(msgctl(msgid, cmd, (struct msqid_ds *)&msginfo));
2761 if (host_to_target_msginfo(ptr, &msginfo))
2762 return -TARGET_EFAULT;
2763 break;
2764 }
2765
2766 return ret;
2767 }
2768
2769 struct target_msgbuf {
2770 abi_long mtype;
2771 char mtext[1];
2772 };
2773
2774 static inline abi_long do_msgsnd(int msqid, abi_long msgp,
2775 unsigned int msgsz, int msgflg)
2776 {
2777 struct target_msgbuf *target_mb;
2778 struct msgbuf *host_mb;
2779 abi_long ret = 0;
2780
2781 if (!lock_user_struct(VERIFY_READ, target_mb, msgp, 0))
2782 return -TARGET_EFAULT;
2783 host_mb = malloc(msgsz+sizeof(long));
2784 host_mb->mtype = (abi_long) tswapal(target_mb->mtype);
2785 memcpy(host_mb->mtext, target_mb->mtext, msgsz);
2786 ret = get_errno(msgsnd(msqid, host_mb, msgsz, msgflg));
2787 free(host_mb);
2788 unlock_user_struct(target_mb, msgp, 0);
2789
2790 return ret;
2791 }
2792
2793 static inline abi_long do_msgrcv(int msqid, abi_long msgp,
2794 unsigned int msgsz, abi_long msgtyp,
2795 int msgflg)
2796 {
2797 struct target_msgbuf *target_mb;
2798 char *target_mtext;
2799 struct msgbuf *host_mb;
2800 abi_long ret = 0;
2801
2802 if (!lock_user_struct(VERIFY_WRITE, target_mb, msgp, 0))
2803 return -TARGET_EFAULT;
2804
2805 host_mb = g_malloc(msgsz+sizeof(long));
2806 ret = get_errno(msgrcv(msqid, host_mb, msgsz, msgtyp, msgflg));
2807
2808 if (ret > 0) {
2809 abi_ulong target_mtext_addr = msgp + sizeof(abi_ulong);
2810 target_mtext = lock_user(VERIFY_WRITE, target_mtext_addr, ret, 0);
2811 if (!target_mtext) {
2812 ret = -TARGET_EFAULT;
2813 goto end;
2814 }
2815 memcpy(target_mb->mtext, host_mb->mtext, ret);
2816 unlock_user(target_mtext, target_mtext_addr, ret);
2817 }
2818
2819 target_mb->mtype = tswapal(host_mb->mtype);
2820
2821 end:
2822 if (target_mb)
2823 unlock_user_struct(target_mb, msgp, 1);
2824 g_free(host_mb);
2825 return ret;
2826 }
2827
2828 static inline abi_long target_to_host_shmid_ds(struct shmid_ds *host_sd,
2829 abi_ulong target_addr)
2830 {
2831 struct target_shmid_ds *target_sd;
2832
2833 if (!lock_user_struct(VERIFY_READ, target_sd, target_addr, 1))
2834 return -TARGET_EFAULT;
2835 if (target_to_host_ipc_perm(&(host_sd->shm_perm), target_addr))
2836 return -TARGET_EFAULT;
2837 __get_user(host_sd->shm_segsz, &target_sd->shm_segsz);
2838 __get_user(host_sd->shm_atime, &target_sd->shm_atime);
2839 __get_user(host_sd->shm_dtime, &target_sd->shm_dtime);
2840 __get_user(host_sd->shm_ctime, &target_sd->shm_ctime);
2841 __get_user(host_sd->shm_cpid, &target_sd->shm_cpid);
2842 __get_user(host_sd->shm_lpid, &target_sd->shm_lpid);
2843 __get_user(host_sd->shm_nattch, &target_sd->shm_nattch);
2844 unlock_user_struct(target_sd, target_addr, 0);
2845 return 0;
2846 }
2847
2848 static inline abi_long host_to_target_shmid_ds(abi_ulong target_addr,
2849 struct shmid_ds *host_sd)
2850 {
2851 struct target_shmid_ds *target_sd;
2852
2853 if (!lock_user_struct(VERIFY_WRITE, target_sd, target_addr, 0))
2854 return -TARGET_EFAULT;
2855 if (host_to_target_ipc_perm(target_addr, &(host_sd->shm_perm)))
2856 return -TARGET_EFAULT;
2857 __put_user(host_sd->shm_segsz, &target_sd->shm_segsz);
2858 __put_user(host_sd->shm_atime, &target_sd->shm_atime);
2859 __put_user(host_sd->shm_dtime, &target_sd->shm_dtime);
2860 __put_user(host_sd->shm_ctime, &target_sd->shm_ctime);
2861 __put_user(host_sd->shm_cpid, &target_sd->shm_cpid);
2862 __put_user(host_sd->shm_lpid, &target_sd->shm_lpid);
2863 __put_user(host_sd->shm_nattch, &target_sd->shm_nattch);
2864 unlock_user_struct(target_sd, target_addr, 1);
2865 return 0;
2866 }
2867
2868 struct target_shminfo {
2869 abi_ulong shmmax;
2870 abi_ulong shmmin;
2871 abi_ulong shmmni;
2872 abi_ulong shmseg;
2873 abi_ulong shmall;
2874 };
2875
2876 static inline abi_long host_to_target_shminfo(abi_ulong target_addr,
2877 struct shminfo *host_shminfo)
2878 {
2879 struct target_shminfo *target_shminfo;
2880 if (!lock_user_struct(VERIFY_WRITE, target_shminfo, target_addr, 0))
2881 return -TARGET_EFAULT;
2882 __put_user(host_shminfo->shmmax, &target_shminfo->shmmax);
2883 __put_user(host_shminfo->shmmin, &target_shminfo->shmmin);
2884 __put_user(host_shminfo->shmmni, &target_shminfo->shmmni);
2885 __put_user(host_shminfo->shmseg, &target_shminfo->shmseg);
2886 __put_user(host_shminfo->shmall, &target_shminfo->shmall);
2887 unlock_user_struct(target_shminfo, target_addr, 1);
2888 return 0;
2889 }
2890
2891 struct target_shm_info {
2892 int used_ids;
2893 abi_ulong shm_tot;
2894 abi_ulong shm_rss;
2895 abi_ulong shm_swp;
2896 abi_ulong swap_attempts;
2897 abi_ulong swap_successes;
2898 };
2899
2900 static inline abi_long host_to_target_shm_info(abi_ulong target_addr,
2901 struct shm_info *host_shm_info)
2902 {
2903 struct target_shm_info *target_shm_info;
2904 if (!lock_user_struct(VERIFY_WRITE, target_shm_info, target_addr, 0))
2905 return -TARGET_EFAULT;
2906 __put_user(host_shm_info->used_ids, &target_shm_info->used_ids);
2907 __put_user(host_shm_info->shm_tot, &target_shm_info->shm_tot);
2908 __put_user(host_shm_info->shm_rss, &target_shm_info->shm_rss);
2909 __put_user(host_shm_info->shm_swp, &target_shm_info->shm_swp);
2910 __put_user(host_shm_info->swap_attempts, &target_shm_info->swap_attempts);
2911 __put_user(host_shm_info->swap_successes, &target_shm_info->swap_successes);
2912 unlock_user_struct(target_shm_info, target_addr, 1);
2913 return 0;
2914 }
2915
2916 static inline abi_long do_shmctl(int shmid, int cmd, abi_long buf)
2917 {
2918 struct shmid_ds dsarg;
2919 struct shminfo shminfo;
2920 struct shm_info shm_info;
2921 abi_long ret = -TARGET_EINVAL;
2922
2923 cmd &= 0xff;
2924
2925 switch(cmd) {
2926 case IPC_STAT:
2927 case IPC_SET:
2928 case SHM_STAT:
2929 if (target_to_host_shmid_ds(&dsarg, buf))
2930 return -TARGET_EFAULT;
2931 ret = get_errno(shmctl(shmid, cmd, &dsarg));
2932 if (host_to_target_shmid_ds(buf, &dsarg))
2933 return -TARGET_EFAULT;
2934 break;
2935 case IPC_INFO:
2936 ret = get_errno(shmctl(shmid, cmd, (struct shmid_ds *)&shminfo));
2937 if (host_to_target_shminfo(buf, &shminfo))
2938 return -TARGET_EFAULT;
2939 break;
2940 case SHM_INFO:
2941 ret = get_errno(shmctl(shmid, cmd, (struct shmid_ds *)&shm_info));
2942 if (host_to_target_shm_info(buf, &shm_info))
2943 return -TARGET_EFAULT;
2944 break;
2945 case IPC_RMID:
2946 case SHM_LOCK:
2947 case SHM_UNLOCK:
2948 ret = get_errno(shmctl(shmid, cmd, NULL));
2949 break;
2950 }
2951
2952 return ret;
2953 }
2954
2955 static inline abi_ulong do_shmat(int shmid, abi_ulong shmaddr, int shmflg)
2956 {
2957 abi_long raddr;
2958 void *host_raddr;
2959 struct shmid_ds shm_info;
2960 int i,ret;
2961
2962 /* find out the length of the shared memory segment */
2963 ret = get_errno(shmctl(shmid, IPC_STAT, &shm_info));
2964 if (is_error(ret)) {
2965 /* can't get length, bail out */
2966 return ret;
2967 }
2968
2969 mmap_lock();
2970
2971 if (shmaddr)
2972 host_raddr = shmat(shmid, (void *)g2h(shmaddr), shmflg);
2973 else {
2974 abi_ulong mmap_start;
2975
2976 mmap_start = mmap_find_vma(0, shm_info.shm_segsz);
2977
2978 if (mmap_start == -1) {
2979 errno = ENOMEM;
2980 host_raddr = (void *)-1;
2981 } else
2982 host_raddr = shmat(shmid, g2h(mmap_start), shmflg | SHM_REMAP);
2983 }
2984
2985 if (host_raddr == (void *)-1) {
2986 mmap_unlock();
2987 return get_errno((long)host_raddr);
2988 }
2989 raddr=h2g((unsigned long)host_raddr);
2990
2991 page_set_flags(raddr, raddr + shm_info.shm_segsz,
2992 PAGE_VALID | PAGE_READ |
2993 ((shmflg & SHM_RDONLY)? 0 : PAGE_WRITE));
2994
2995 for (i = 0; i < N_SHM_REGIONS; i++) {
2996 if (shm_regions[i].start == 0) {
2997 shm_regions[i].start = raddr;
2998 shm_regions[i].size = shm_info.shm_segsz;
2999 break;
3000 }
3001 }
3002
3003 mmap_unlock();
3004 return raddr;
3005
3006 }
3007
3008 static inline abi_long do_shmdt(abi_ulong shmaddr)
3009 {
3010 int i;
3011
3012 for (i = 0; i < N_SHM_REGIONS; ++i) {
3013 if (shm_regions[i].start == shmaddr) {
3014 shm_regions[i].start = 0;
3015 page_set_flags(shmaddr, shmaddr + shm_regions[i].size, 0);
3016 break;
3017 }
3018 }
3019
3020 return get_errno(shmdt(g2h(shmaddr)));
3021 }
3022
3023 #ifdef TARGET_NR_ipc
3024 /* ??? This only works with linear mappings. */
3025 /* do_ipc() must return target values and target errnos. */
3026 static abi_long do_ipc(unsigned int call, int first,
3027 int second, int third,
3028 abi_long ptr, abi_long fifth)
3029 {
3030 int version;
3031 abi_long ret = 0;
3032
3033 version = call >> 16;
3034 call &= 0xffff;
3035
3036 switch (call) {
3037 case IPCOP_semop:
3038 ret = do_semop(first, ptr, second);
3039 break;
3040
3041 case IPCOP_semget:
3042 ret = get_errno(semget(first, second, third));
3043 break;
3044
3045 case IPCOP_semctl:
3046 ret = do_semctl(first, second, third, (union target_semun)(abi_ulong) ptr);
3047 break;
3048
3049 case IPCOP_msgget:
3050 ret = get_errno(msgget(first, second));
3051 break;
3052
3053 case IPCOP_msgsnd:
3054 ret = do_msgsnd(first, ptr, second, third);
3055 break;
3056
3057 case IPCOP_msgctl:
3058 ret = do_msgctl(first, second, ptr);
3059 break;
3060
3061 case IPCOP_msgrcv:
3062 switch (version) {
3063 case 0:
3064 {
3065 struct target_ipc_kludge {
3066 abi_long msgp;
3067 abi_long msgtyp;
3068 } *tmp;
3069
3070 if (!lock_user_struct(VERIFY_READ, tmp, ptr, 1)) {
3071 ret = -TARGET_EFAULT;
3072 break;
3073 }
3074
3075 ret = do_msgrcv(first, tswapal(tmp->msgp), second, tswapal(tmp->msgtyp), third);
3076
3077 unlock_user_struct(tmp, ptr, 0);
3078 break;
3079 }
3080 default:
3081 ret = do_msgrcv(first, ptr, second, fifth, third);
3082 }
3083 break;
3084
3085 case IPCOP_shmat:
3086 switch (version) {
3087 default:
3088 {
3089 abi_ulong raddr;
3090 raddr = do_shmat(first, ptr, second);
3091 if (is_error(raddr))
3092 return get_errno(raddr);
3093 if (put_user_ual(raddr, third))
3094 return -TARGET_EFAULT;
3095 break;
3096 }
3097 case 1:
3098 ret = -TARGET_EINVAL;
3099 break;
3100 }
3101 break;
3102 case IPCOP_shmdt:
3103 ret = do_shmdt(ptr);
3104 break;
3105
3106 case IPCOP_shmget:
3107 /* IPC_* flag values are the same on all linux platforms */
3108 ret = get_errno(shmget(first, second, third));
3109 break;
3110
3111 /* IPC_* and SHM_* command values are the same on all linux platforms */
3112 case IPCOP_shmctl:
3113 ret = do_shmctl(first, second, ptr);
3114 break;
3115 default:
3116 gemu_log("Unsupported ipc call: %d (version %d)\n", call, version);
3117 ret = -TARGET_ENOSYS;
3118 break;
3119 }
3120 return ret;
3121 }
3122 #endif
3123
3124 /* kernel structure types definitions */
3125
3126 #define STRUCT(name, ...) STRUCT_ ## name,
3127 #define STRUCT_SPECIAL(name) STRUCT_ ## name,
3128 enum {
3129 #include "syscall_types.h"
3130 };
3131 #undef STRUCT
3132 #undef STRUCT_SPECIAL
3133
3134 #define STRUCT(name, ...) static const argtype struct_ ## name ## _def[] = { __VA_ARGS__, TYPE_NULL };
3135 #define STRUCT_SPECIAL(name)
3136 #include "syscall_types.h"
3137 #undef STRUCT
3138 #undef STRUCT_SPECIAL
3139
3140 typedef struct IOCTLEntry IOCTLEntry;
3141
3142 typedef abi_long do_ioctl_fn(const IOCTLEntry *ie, uint8_t *buf_temp,
3143 int fd, abi_long cmd, abi_long arg);
3144
3145 struct IOCTLEntry {
3146 unsigned int target_cmd;
3147 unsigned int host_cmd;
3148 const char *name;
3149 int access;
3150 do_ioctl_fn *do_ioctl;
3151 const argtype arg_type[5];
3152 };
3153
3154 #define IOC_R 0x0001
3155 #define IOC_W 0x0002
3156 #define IOC_RW (IOC_R | IOC_W)
3157
3158 #define MAX_STRUCT_SIZE 4096
3159
3160 #ifdef CONFIG_FIEMAP
3161 /* So fiemap access checks don't overflow on 32 bit systems.
3162 * This is very slightly smaller than the limit imposed by
3163 * the underlying kernel.
3164 */
3165 #define FIEMAP_MAX_EXTENTS ((UINT_MAX - sizeof(struct fiemap)) \
3166 / sizeof(struct fiemap_extent))
3167
3168 static abi_long do_ioctl_fs_ioc_fiemap(const IOCTLEntry *ie, uint8_t *buf_temp,
3169 int fd, abi_long cmd, abi_long arg)
3170 {
3171 /* The parameter for this ioctl is a struct fiemap followed
3172 * by an array of struct fiemap_extent whose size is set
3173 * in fiemap->fm_extent_count. The array is filled in by the
3174 * ioctl.
3175 */
3176 int target_size_in, target_size_out;
3177 struct fiemap *fm;
3178 const argtype *arg_type = ie->arg_type;
3179 const argtype extent_arg_type[] = { MK_STRUCT(STRUCT_fiemap_extent) };
3180 void *argptr, *p;
3181 abi_long ret;
3182 int i, extent_size = thunk_type_size(extent_arg_type, 0);
3183 uint32_t outbufsz;
3184 int free_fm = 0;
3185
3186 assert(arg_type[0] == TYPE_PTR);
3187 assert(ie->access == IOC_RW);
3188 arg_type++;
3189 target_size_in = thunk_type_size(arg_type, 0);
3190 argptr = lock_user(VERIFY_READ, arg, target_size_in, 1);
3191 if (!argptr) {
3192 return -TARGET_EFAULT;
3193 }
3194 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
3195 unlock_user(argptr, arg, 0);
3196 fm = (struct fiemap *)buf_temp;
3197 if (fm->fm_extent_count > FIEMAP_MAX_EXTENTS) {
3198 return -TARGET_EINVAL;
3199 }
3200
3201 outbufsz = sizeof (*fm) +
3202 (sizeof(struct fiemap_extent) * fm->fm_extent_count);
3203
3204 if (outbufsz > MAX_STRUCT_SIZE) {
3205 /* We can't fit all the extents into the fixed size buffer.
3206 * Allocate one that is large enough and use it instead.
3207 */
3208 fm = malloc(outbufsz);
3209 if (!fm) {
3210 return -TARGET_ENOMEM;
3211 }
3212 memcpy(fm, buf_temp, sizeof(struct fiemap));
3213 free_fm = 1;
3214 }
3215 ret = get_errno(ioctl(fd, ie->host_cmd, fm));
3216 if (!is_error(ret)) {
3217 target_size_out = target_size_in;
3218 /* An extent_count of 0 means we were only counting the extents
3219 * so there are no structs to copy
3220 */
3221 if (fm->fm_extent_count != 0) {
3222 target_size_out += fm->fm_mapped_extents * extent_size;
3223 }
3224 argptr = lock_user(VERIFY_WRITE, arg, target_size_out, 0);
3225 if (!argptr) {
3226 ret = -TARGET_EFAULT;
3227 } else {
3228 /* Convert the struct fiemap */
3229 thunk_convert(argptr, fm, arg_type, THUNK_TARGET);
3230 if (fm->fm_extent_count != 0) {
3231 p = argptr + target_size_in;
3232 /* ...and then all the struct fiemap_extents */
3233 for (i = 0; i < fm->fm_mapped_extents; i++) {
3234 thunk_convert(p, &fm->fm_extents[i], extent_arg_type,
3235 THUNK_TARGET);
3236 p += extent_size;
3237 }
3238 }
3239 unlock_user(argptr, arg, target_size_out);
3240 }
3241 }
3242 if (free_fm) {
3243 free(fm);
3244 }
3245 return ret;
3246 }
3247 #endif
3248
3249 static abi_long do_ioctl_ifconf(const IOCTLEntry *ie, uint8_t *buf_temp,
3250 int fd, abi_long cmd, abi_long arg)
3251 {
3252 const argtype *arg_type = ie->arg_type;
3253 int target_size;
3254 void *argptr;
3255 int ret;
3256 struct ifconf *host_ifconf;
3257 uint32_t outbufsz;
3258 const argtype ifreq_arg_type[] = { MK_STRUCT(STRUCT_sockaddr_ifreq) };
3259 int target_ifreq_size;
3260 int nb_ifreq;
3261 int free_buf = 0;
3262 int i;
3263 int target_ifc_len;
3264 abi_long target_ifc_buf;
3265 int host_ifc_len;
3266 char *host_ifc_buf;
3267
3268 assert(arg_type[0] == TYPE_PTR);
3269 assert(ie->access == IOC_RW);
3270
3271 arg_type++;
3272 target_size = thunk_type_size(arg_type, 0);
3273
3274 argptr = lock_user(VERIFY_READ, arg, target_size, 1);
3275 if (!argptr)
3276 return -TARGET_EFAULT;
3277 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
3278 unlock_user(argptr, arg, 0);
3279
3280 host_ifconf = (struct ifconf *)(unsigned long)buf_temp;
3281 target_ifc_len = host_ifconf->ifc_len;
3282 target_ifc_buf = (abi_long)(unsigned long)host_ifconf->ifc_buf;
3283
3284 target_ifreq_size = thunk_type_size(ifreq_arg_type, 0);
3285 nb_ifreq = target_ifc_len / target_ifreq_size;
3286 host_ifc_len = nb_ifreq * sizeof(struct ifreq);
3287
3288 outbufsz = sizeof(*host_ifconf) + host_ifc_len;
3289 if (outbufsz > MAX_STRUCT_SIZE) {
3290 /* We can't fit all the extents into the fixed size buffer.
3291 * Allocate one that is large enough and use it instead.
3292 */
3293 host_ifconf = malloc(outbufsz);
3294 if (!host_ifconf) {
3295 return -TARGET_ENOMEM;
3296 }
3297 memcpy(host_ifconf, buf_temp, sizeof(*host_ifconf));
3298 free_buf = 1;
3299 }
3300 host_ifc_buf = (char*)host_ifconf + sizeof(*host_ifconf);
3301
3302 host_ifconf->ifc_len = host_ifc_len;
3303 host_ifconf->ifc_buf = host_ifc_buf;
3304
3305 ret = get_errno(ioctl(fd, ie->host_cmd, host_ifconf));
3306 if (!is_error(ret)) {
3307 /* convert host ifc_len to target ifc_len */
3308
3309 nb_ifreq = host_ifconf->ifc_len / sizeof(struct ifreq);
3310 target_ifc_len = nb_ifreq * target_ifreq_size;
3311 host_ifconf->ifc_len = target_ifc_len;
3312
3313 /* restore target ifc_buf */
3314
3315 host_ifconf->ifc_buf = (char *)(unsigned long)target_ifc_buf;
3316
3317 /* copy struct ifconf to target user */
3318
3319 argptr = lock_user(VERIFY_WRITE, arg, target_size, 0);
3320 if (!argptr)
3321 return -TARGET_EFAULT;
3322 thunk_convert(argptr, host_ifconf, arg_type, THUNK_TARGET);
3323 unlock_user(argptr, arg, target_size);
3324
3325 /* copy ifreq[] to target user */
3326
3327 argptr = lock_user(VERIFY_WRITE, target_ifc_buf, target_ifc_len, 0);
3328 for (i = 0; i < nb_ifreq ; i++) {
3329 thunk_convert(argptr + i * target_ifreq_size,
3330 host_ifc_buf + i * sizeof(struct ifreq),
3331 ifreq_arg_type, THUNK_TARGET);
3332 }
3333 unlock_user(argptr, target_ifc_buf, target_ifc_len);
3334 }
3335
3336 if (free_buf) {
3337 free(host_ifconf);
3338 }
3339
3340 return ret;
3341 }
3342
3343 static abi_long do_ioctl_dm(const IOCTLEntry *ie, uint8_t *buf_temp, int fd,
3344 abi_long cmd, abi_long arg)
3345 {
3346 void *argptr;
3347 struct dm_ioctl *host_dm;
3348 abi_long guest_data;
3349 uint32_t guest_data_size;
3350 int target_size;
3351 const argtype *arg_type = ie->arg_type;
3352 abi_long ret;
3353 void *big_buf = NULL;
3354 char *host_data;
3355
3356 arg_type++;
3357 target_size = thunk_type_size(arg_type, 0);
3358 argptr = lock_user(VERIFY_READ, arg, target_size, 1);
3359 if (!argptr) {
3360 ret = -TARGET_EFAULT;
3361 goto out;
3362 }
3363 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
3364 unlock_user(argptr, arg, 0);
3365
3366 /* buf_temp is too small, so fetch things into a bigger buffer */
3367 big_buf = g_malloc0(((struct dm_ioctl*)buf_temp)->data_size * 2);
3368 memcpy(big_buf, buf_temp, target_size);
3369 buf_temp = big_buf;
3370 host_dm = big_buf;
3371
3372 guest_data = arg + host_dm->data_start;
3373 if ((guest_data - arg) < 0) {
3374 ret = -EINVAL;
3375 goto out;
3376 }
3377 guest_data_size = host_dm->data_size - host_dm->data_start;
3378 host_data = (char*)host_dm + host_dm->data_start;
3379
3380 argptr = lock_user(VERIFY_READ, guest_data, guest_data_size, 1);
3381 switch (ie->host_cmd) {
3382 case DM_REMOVE_ALL:
3383 case DM_LIST_DEVICES:
3384 case DM_DEV_CREATE:
3385 case DM_DEV_REMOVE:
3386 case DM_DEV_SUSPEND:
3387 case DM_DEV_STATUS:
3388 case DM_DEV_WAIT:
3389 case DM_TABLE_STATUS:
3390 case DM_TABLE_CLEAR:
3391 case DM_TABLE_DEPS:
3392 case DM_LIST_VERSIONS:
3393 /* no input data */
3394 break;
3395 case DM_DEV_RENAME:
3396 case DM_DEV_SET_GEOMETRY:
3397 /* data contains only strings */
3398 memcpy(host_data, argptr, guest_data_size);
3399 break;
3400 case DM_TARGET_MSG:
3401 memcpy(host_data, argptr, guest_data_size);
3402 *(uint64_t*)host_data = tswap64(*(uint64_t*)argptr);
3403 break;
3404 case DM_TABLE_LOAD:
3405 {
3406 void *gspec = argptr;
3407 void *cur_data = host_data;
3408 const argtype arg_type[] = { MK_STRUCT(STRUCT_dm_target_spec) };
3409 int spec_size = thunk_type_size(arg_type, 0);
3410 int i;
3411
3412 for (i = 0; i < host_dm->target_count; i++) {
3413 struct dm_target_spec *spec = cur_data;
3414 uint32_t next;
3415 int slen;
3416
3417 thunk_convert(spec, gspec, arg_type, THUNK_HOST);
3418 slen = strlen((char*)gspec + spec_size) + 1;
3419 next = spec->next;
3420 spec->next = sizeof(*spec) + slen;
3421 strcpy((char*)&spec[1], gspec + spec_size);
3422 gspec += next;
3423 cur_data += spec->next;
3424 }
3425 break;
3426 }
3427 default:
3428 ret = -TARGET_EINVAL;
3429 goto out;
3430 }
3431 unlock_user(argptr, guest_data, 0);
3432
3433 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
3434 if (!is_error(ret)) {
3435 guest_data = arg + host_dm->data_start;
3436 guest_data_size = host_dm->data_size - host_dm->data_start;
3437 argptr = lock_user(VERIFY_WRITE, guest_data, guest_data_size, 0);
3438 switch (ie->host_cmd) {
3439 case DM_REMOVE_ALL:
3440 case DM_DEV_CREATE:
3441 case DM_DEV_REMOVE:
3442 case DM_DEV_RENAME:
3443 case DM_DEV_SUSPEND:
3444 case DM_DEV_STATUS:
3445 case DM_TABLE_LOAD:
3446 case DM_TABLE_CLEAR:
3447 case DM_TARGET_MSG:
3448 case DM_DEV_SET_GEOMETRY:
3449 /* no return data */
3450 break;
3451 case DM_LIST_DEVICES:
3452 {
3453 struct dm_name_list *nl = (void*)host_dm + host_dm->data_start;
3454 uint32_t remaining_data = guest_data_size;
3455 void *cur_data = argptr;
3456 const argtype arg_type[] = { MK_STRUCT(STRUCT_dm_name_list) };
3457 int nl_size = 12; /* can't use thunk_size due to alignment */
3458
3459 while (1) {
3460 uint32_t next = nl->next;
3461 if (next) {
3462 nl->next = nl_size + (strlen(nl->name) + 1);
3463 }
3464 if (remaining_data < nl->next) {
3465 host_dm->flags |= DM_BUFFER_FULL_FLAG;
3466 break;
3467 }
3468 thunk_convert(cur_data, nl, arg_type, THUNK_TARGET);
3469 strcpy(cur_data + nl_size, nl->name);
3470 cur_data += nl->next;
3471 remaining_data -= nl->next;
3472 if (!next) {
3473 break;
3474 }
3475 nl = (void*)nl + next;
3476 }
3477 break;
3478 }
3479 case DM_DEV_WAIT:
3480 case DM_TABLE_STATUS:
3481 {
3482 struct dm_target_spec *spec = (void*)host_dm + host_dm->data_start;
3483 void *cur_data = argptr;
3484 const argtype arg_type[] = { MK_STRUCT(STRUCT_dm_target_spec) };
3485 int spec_size = thunk_type_size(arg_type, 0);
3486 int i;
3487
3488 for (i = 0; i < host_dm->target_count; i++) {
3489 uint32_t next = spec->next;
3490 int slen = strlen((char*)&spec[1]) + 1;
3491 spec->next = (cur_data - argptr) + spec_size + slen;
3492 if (guest_data_size < spec->next) {
3493 host_dm->flags |= DM_BUFFER_FULL_FLAG;
3494 break;
3495 }
3496 thunk_convert(cur_data, spec, arg_type, THUNK_TARGET);
3497 strcpy(cur_data + spec_size, (char*)&spec[1]);
3498 cur_data = argptr + spec->next;
3499 spec = (void*)host_dm + host_dm->data_start + next;
3500 }
3501 break;
3502 }
3503 case DM_TABLE_DEPS:
3504 {
3505 void *hdata = (void*)host_dm + host_dm->data_start;
3506 int count = *(uint32_t*)hdata;
3507 uint64_t *hdev = hdata + 8;
3508 uint64_t *gdev = argptr + 8;
3509 int i;
3510
3511 *(uint32_t*)argptr = tswap32(count);
3512 for (i = 0; i < count; i++) {
3513 *gdev = tswap64(*hdev);
3514 gdev++;
3515 hdev++;
3516 }
3517 break;
3518 }
3519 case DM_LIST_VERSIONS:
3520 {
3521 struct dm_target_versions *vers = (void*)host_dm + host_dm->data_start;
3522 uint32_t remaining_data = guest_data_size;
3523 void *cur_data = argptr;
3524 const argtype arg_type[] = { MK_STRUCT(STRUCT_dm_target_versions) };
3525 int vers_size = thunk_type_size(arg_type, 0);
3526
3527 while (1) {
3528 uint32_t next = vers->next;
3529 if (next) {
3530 vers->next = vers_size + (strlen(vers->name) + 1);
3531 }
3532 if (remaining_data < vers->next) {
3533 host_dm->flags |= DM_BUFFER_FULL_FLAG;
3534 break;
3535 }
3536 thunk_convert(cur_data, vers, arg_type, THUNK_TARGET);
3537 strcpy(cur_data + vers_size, vers->name);
3538 cur_data += vers->next;
3539 remaining_data -= vers->next;
3540 if (!next) {
3541 break;
3542 }
3543 vers = (void*)vers + next;
3544 }
3545 break;
3546 }
3547 default:
3548 ret = -TARGET_EINVAL;
3549 goto out;
3550 }
3551 unlock_user(argptr, guest_data, guest_data_size);
3552
3553 argptr = lock_user(VERIFY_WRITE, arg, target_size, 0);
3554 if (!argptr) {
3555 ret = -TARGET_EFAULT;
3556 goto out;
3557 }
3558 thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET);
3559 unlock_user(argptr, arg, target_size);
3560 }
3561 out:
3562 g_free(big_buf);
3563 return ret;
3564 }
3565
3566 static abi_long do_ioctl_rt(const IOCTLEntry *ie, uint8_t *buf_temp,
3567 int fd, abi_long cmd, abi_long arg)
3568 {
3569 const argtype *arg_type = ie->arg_type;
3570 const StructEntry *se;
3571 const argtype *field_types;
3572 const int *dst_offsets, *src_offsets;
3573 int target_size;
3574 void *argptr;
3575 abi_ulong *target_rt_dev_ptr;
3576 unsigned long *host_rt_dev_ptr;
3577 abi_long ret;
3578 int i;
3579
3580 assert(ie->access == IOC_W);
3581 assert(*arg_type == TYPE_PTR);
3582 arg_type++;
3583 assert(*arg_type == TYPE_STRUCT);
3584 target_size = thunk_type_size(arg_type, 0);
3585 argptr = lock_user(VERIFY_READ, arg, target_size, 1);
3586 if (!argptr) {
3587 return -TARGET_EFAULT;
3588 }
3589 arg_type++;
3590 assert(*arg_type == (int)STRUCT_rtentry);
3591 se = struct_entries + *arg_type++;
3592 assert(se->convert[0] == NULL);
3593 /* convert struct here to be able to catch rt_dev string */
3594 field_types = se->field_types;
3595 dst_offsets = se->field_offsets[THUNK_HOST];
3596 src_offsets = se->field_offsets[THUNK_TARGET];
3597 for (i = 0; i < se->nb_fields; i++) {
3598 if (dst_offsets[i] == offsetof(struct rtentry, rt_dev)) {
3599 assert(*field_types == TYPE_PTRVOID);
3600 target_rt_dev_ptr = (abi_ulong *)(argptr + src_offsets[i]);
3601 host_rt_dev_ptr = (unsigned long *)(buf_temp + dst_offsets[i]);
3602 if (*target_rt_dev_ptr != 0) {
3603 *host_rt_dev_ptr = (unsigned long)lock_user_string(
3604 tswapal(*target_rt_dev_ptr));
3605 if (!*host_rt_dev_ptr) {
3606 unlock_user(argptr, arg, 0);
3607 return -TARGET_EFAULT;
3608 }
3609 } else {
3610 *host_rt_dev_ptr = 0;
3611 }
3612 field_types++;
3613 continue;
3614 }
3615 field_types = thunk_convert(buf_temp + dst_offsets[i],
3616 argptr + src_offsets[i],
3617 field_types, THUNK_HOST);
3618 }
3619 unlock_user(argptr, arg, 0);
3620
3621 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
3622 if (*host_rt_dev_ptr != 0) {
3623 unlock_user((void *)*host_rt_dev_ptr,
3624 *target_rt_dev_ptr, 0);
3625 }
3626 return ret;
3627 }
3628
3629 static IOCTLEntry ioctl_entries[] = {
3630 #define IOCTL(cmd, access, ...) \
3631 { TARGET_ ## cmd, cmd, #cmd, access, 0, { __VA_ARGS__ } },
3632 #define IOCTL_SPECIAL(cmd, access, dofn, ...) \
3633 { TARGET_ ## cmd, cmd, #cmd, access, dofn, { __VA_ARGS__ } },
3634 #include "ioctls.h"
3635 { 0, 0, },
3636 };
3637
3638 /* ??? Implement proper locking for ioctls. */
3639 /* do_ioctl() Must return target values and target errnos. */
3640 static abi_long do_ioctl(int fd, abi_long cmd, abi_long arg)
3641 {
3642 const IOCTLEntry *ie;
3643 const argtype *arg_type;
3644 abi_long ret;
3645 uint8_t buf_temp[MAX_STRUCT_SIZE];
3646 int target_size;
3647 void *argptr;
3648
3649 ie = ioctl_entries;
3650 for(;;) {
3651 if (ie->target_cmd == 0) {
3652 gemu_log("Unsupported ioctl: cmd=0x%04lx\n", (long)cmd);
3653 return -TARGET_ENOSYS;
3654 }
3655 if (ie->target_cmd == cmd)
3656 break;
3657 ie++;
3658 }
3659 arg_type = ie->arg_type;
3660 #if defined(DEBUG)
3661 gemu_log("ioctl: cmd=0x%04lx (%s)\n", (long)cmd, ie->name);
3662 #endif
3663 if (ie->do_ioctl) {
3664 return ie->do_ioctl(ie, buf_temp, fd, cmd, arg);
3665 }
3666
3667 switch(arg_type[0]) {
3668 case TYPE_NULL:
3669 /* no argument */
3670 ret = get_errno(ioctl(fd, ie->host_cmd));
3671 break;
3672 case TYPE_PTRVOID:
3673 case TYPE_INT:
3674 /* int argment */
3675 ret = get_errno(ioctl(fd, ie->host_cmd, arg));
3676 break;
3677 case TYPE_PTR:
3678 arg_type++;
3679 target_size = thunk_type_size(arg_type, 0);
3680 switch(ie->access) {
3681 case IOC_R:
3682 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
3683 if (!is_error(ret)) {
3684 argptr = lock_user(VERIFY_WRITE, arg, target_size, 0);
3685 if (!argptr)
3686 return -TARGET_EFAULT;
3687 thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET);
3688 unlock_user(argptr, arg, target_size);
3689 }
3690 break;
3691 case IOC_W:
3692 argptr = lock_user(VERIFY_READ, arg, target_size, 1);
3693 if (!argptr)
3694 return -TARGET_EFAULT;
3695 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
3696 unlock_user(argptr, arg, 0);
3697 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
3698 break;
3699 default:
3700 case IOC_RW:
3701 argptr = lock_user(VERIFY_READ, arg, target_size, 1);
3702 if (!argptr)
3703 return -TARGET_EFAULT;
3704 thunk_convert(buf_temp, argptr, arg_type, THUNK_HOST);
3705 unlock_user(argptr, arg, 0);
3706 ret = get_errno(ioctl(fd, ie->host_cmd, buf_temp));
3707 if (!is_error(ret)) {
3708 argptr = lock_user(VERIFY_WRITE, arg, target_size, 0);
3709 if (!argptr)
3710 return -TARGET_EFAULT;
3711 thunk_convert(argptr, buf_temp, arg_type, THUNK_TARGET);
3712 unlock_user(argptr, arg, target_size);
3713 }
3714 break;
3715 }
3716 break;
3717 default:
3718 gemu_log("Unsupported ioctl type: cmd=0x%04lx type=%d\n",
3719 (long)cmd, arg_type[0]);
3720 ret = -TARGET_ENOSYS;
3721 break;
3722 }
3723 return ret;
3724 }
3725
3726 static const bitmask_transtbl iflag_tbl[] = {
3727 { TARGET_IGNBRK, TARGET_IGNBRK, IGNBRK, IGNBRK },
3728 { TARGET_BRKINT, TARGET_BRKINT, BRKINT, BRKINT },
3729 { TARGET_IGNPAR, TARGET_IGNPAR, IGNPAR, IGNPAR },
3730 { TARGET_PARMRK, TARGET_PARMRK, PARMRK, PARMRK },
3731 { TARGET_INPCK, TARGET_INPCK, INPCK, INPCK },
3732 { TARGET_ISTRIP, TARGET_ISTRIP, ISTRIP, ISTRIP },
3733 { TARGET_INLCR, TARGET_INLCR, INLCR, INLCR },
3734 { TARGET_IGNCR, TARGET_IGNCR, IGNCR, IGNCR },
3735 { TARGET_ICRNL, TARGET_ICRNL, ICRNL, ICRNL },
3736 { TARGET_IUCLC, TARGET_IUCLC, IUCLC, IUCLC },
3737 { TARGET_IXON, TARGET_IXON, IXON, IXON },
3738 { TARGET_IXANY, TARGET_IXANY, IXANY, IXANY },
3739 { TARGET_IXOFF, TARGET_IXOFF, IXOFF, IXOFF },
3740 { TARGET_IMAXBEL, TARGET_IMAXBEL, IMAXBEL, IMAXBEL },
3741 { 0, 0, 0, 0 }
3742 };
3743
3744 static const bitmask_transtbl oflag_tbl[] = {
3745 { TARGET_OPOST, TARGET_OPOST, OPOST, OPOST },
3746 { TARGET_OLCUC, TARGET_OLCUC, OLCUC, OLCUC },
3747 { TARGET_ONLCR, TARGET_ONLCR, ONLCR, ONLCR },
3748 { TARGET_OCRNL, TARGET_OCRNL, OCRNL, OCRNL },
3749 { TARGET_ONOCR, TARGET_ONOCR, ONOCR, ONOCR },
3750 { TARGET_ONLRET, TARGET_ONLRET, ONLRET, ONLRET },
3751 { TARGET_OFILL, TARGET_OFILL, OFILL, OFILL },
3752 { TARGET_OFDEL, TARGET_OFDEL, OFDEL, OFDEL },
3753 { TARGET_NLDLY, TARGET_NL0, NLDLY, NL0 },
3754 { TARGET_NLDLY, TARGET_NL1, NLDLY, NL1 },
3755 { TARGET_CRDLY, TARGET_CR0, CRDLY, CR0 },
3756 { TARGET_CRDLY, TARGET_CR1, CRDLY, CR1 },
3757 { TARGET_CRDLY, TARGET_CR2, CRDLY, CR2 },
3758 { TARGET_CRDLY, TARGET_CR3, CRDLY, CR3 },
3759 { TARGET_TABDLY, TARGET_TAB0, TABDLY, TAB0 },
3760 { TARGET_TABDLY, TARGET_TAB1, TABDLY, TAB1 },
3761 { TARGET_TABDLY, TARGET_TAB2, TABDLY, TAB2 },
3762 { TARGET_TABDLY, TARGET_TAB3, TABDLY, TAB3 },
3763 { TARGET_BSDLY, TARGET_BS0, BSDLY, BS0 },
3764 { TARGET_BSDLY, TARGET_BS1, BSDLY, BS1 },
3765 { TARGET_VTDLY, TARGET_VT0, VTDLY, VT0 },
3766 { TARGET_VTDLY, TARGET_VT1, VTDLY, VT1 },
3767 { TARGET_FFDLY, TARGET_FF0, FFDLY, FF0 },
3768 { TARGET_FFDLY, TARGET_FF1, FFDLY, FF1 },
3769 { 0, 0, 0, 0 }
3770 };
3771
3772 static const bitmask_transtbl cflag_tbl[] = {
3773 { TARGET_CBAUD, TARGET_B0, CBAUD, B0 },
3774 { TARGET_CBAUD, TARGET_B50, CBAUD, B50 },
3775 { TARGET_CBAUD, TARGET_B75, CBAUD, B75 },
3776 { TARGET_CBAUD, TARGET_B110, CBAUD, B110 },
3777 { TARGET_CBAUD, TARGET_B134, CBAUD, B134 },
3778 { TARGET_CBAUD, TARGET_B150, CBAUD, B150 },
3779 { TARGET_CBAUD, TARGET_B200, CBAUD, B200 },
3780 { TARGET_CBAUD, TARGET_B300, CBAUD, B300 },
3781 { TARGET_CBAUD, TARGET_B600, CBAUD, B600 },
3782 { TARGET_CBAUD, TARGET_B1200, CBAUD, B1200 },
3783 { TARGET_CBAUD, TARGET_B1800, CBAUD, B1800 },
3784 { TARGET_CBAUD, TARGET_B2400, CBAUD, B2400 },
3785 { TARGET_CBAUD, TARGET_B4800, CBAUD, B4800 },
3786 { TARGET_CBAUD, TARGET_B9600, CBAUD, B9600 },
3787 { TARGET_CBAUD, TARGET_B19200, CBAUD, B19200 },
3788 { TARGET_CBAUD, TARGET_B38400, CBAUD, B38400 },
3789 { TARGET_CBAUD, TARGET_B57600, CBAUD, B57600 },
3790 { TARGET_CBAUD, TARGET_B115200, CBAUD, B115200 },
3791 { TARGET_CBAUD, TARGET_B230400, CBAUD, B230400 },
3792 { TARGET_CBAUD, TARGET_B460800, CBAUD, B460800 },
3793 { TARGET_CSIZE, TARGET_CS5, CSIZE, CS5 },
3794 { TARGET_CSIZE, TARGET_CS6, CSIZE, CS6 },
3795 { TARGET_CSIZE, TARGET_CS7, CSIZE, CS7 },
3796 { TARGET_CSIZE, TARGET_CS8, CSIZE, CS8 },
3797 { TARGET_CSTOPB, TARGET_CSTOPB, CSTOPB, CSTOPB },
3798 { TARGET_CREAD, TARGET_CREAD, CREAD, CREAD },
3799 { TARGET_PARENB, TARGET_PARENB, PARENB, PARENB },
3800 { TARGET_PARODD, TARGET_PARODD, PARODD, PARODD },
3801 { TARGET_HUPCL, TARGET_HUPCL, HUPCL, HUPCL },
3802 { TARGET_CLOCAL, TARGET_CLOCAL, CLOCAL, CLOCAL },
3803 { TARGET_CRTSCTS, TARGET_CRTSCTS, CRTSCTS, CRTSCTS },
3804 { 0, 0, 0, 0 }
3805 };
3806
3807 static const bitmask_transtbl lflag_tbl[] = {
3808 { TARGET_ISIG, TARGET_ISIG, ISIG, ISIG },
3809 { TARGET_ICANON, TARGET_ICANON, ICANON, ICANON },
3810 { TARGET_XCASE, TARGET_XCASE, XCASE, XCASE },
3811 { TARGET_ECHO, TARGET_ECHO, ECHO, ECHO },
3812 { TARGET_ECHOE, TARGET_ECHOE, ECHOE, ECHOE },
3813 { TARGET_ECHOK, TARGET_ECHOK, ECHOK, ECHOK },
3814 { TARGET_ECHONL, TARGET_ECHONL, ECHONL, ECHONL },
3815 { TARGET_NOFLSH, TARGET_NOFLSH, NOFLSH, NOFLSH },
3816 { TARGET_TOSTOP, TARGET_TOSTOP, TOSTOP, TOSTOP },
3817 { TARGET_ECHOCTL, TARGET_ECHOCTL, ECHOCTL, ECHOCTL },
3818 { TARGET_ECHOPRT, TARGET_ECHOPRT, ECHOPRT, ECHOPRT },
3819 { TARGET_ECHOKE, TARGET_ECHOKE, ECHOKE, ECHOKE },
3820 { TARGET_FLUSHO, TARGET_FLUSHO, FLUSHO, FLUSHO },
3821 { TARGET_PENDIN, TARGET_PENDIN, PENDIN, PENDIN },
3822 { TARGET_IEXTEN, TARGET_IEXTEN, IEXTEN, IEXTEN },
3823 { 0, 0, 0, 0 }
3824 };
3825
3826 static void target_to_host_termios (void *dst, const void *src)
3827 {
3828 struct host_termios *host = dst;
3829 const struct target_termios *target = src;
3830
3831 host->c_iflag =
3832 target_to_host_bitmask(tswap32(target->c_iflag), iflag_tbl);
3833 host->c_oflag =
3834 target_to_host_bitmask(tswap32(target->c_oflag), oflag_tbl);
3835 host->c_cflag =
3836 target_to_host_bitmask(tswap32(target->c_cflag), cflag_tbl);
3837 host->c_lflag =
3838 target_to_host_bitmask(tswap32(target->c_lflag), lflag_tbl);
3839 host->c_line = target->c_line;
3840
3841 memset(host->c_cc, 0, sizeof(host->c_cc));
3842 host->c_cc[VINTR] = target->c_cc[TARGET_VINTR];
3843 host->c_cc[VQUIT] = target->c_cc[TARGET_VQUIT];
3844 host->c_cc[VERASE] = target->c_cc[TARGET_VERASE];
3845 host->c_cc[VKILL] = target->c_cc[TARGET_VKILL];
3846 host->c_cc[VEOF] = target->c_cc[TARGET_VEOF];
3847 host->c_cc[VTIME] = target->c_cc[TARGET_VTIME];
3848 host->c_cc[VMIN] = target->c_cc[TARGET_VMIN];
3849 host->c_cc[VSWTC] = target->c_cc[TARGET_VSWTC];
3850 host->c_cc[VSTART] = target->c_cc[TARGET_VSTART];
3851 host->c_cc[VSTOP] = target->c_cc[TARGET_VSTOP];
3852 host->c_cc[VSUSP] = target->c_cc[TARGET_VSUSP];
3853 host->c_cc[VEOL] = target->c_cc[TARGET_VEOL];
3854 host->c_cc[VREPRINT] = target->c_cc[TARGET_VREPRINT];
3855 host->c_cc[VDISCARD] = target->c_cc[TARGET_VDISCARD];
3856 host->c_cc[VWERASE] = target->c_cc[TARGET_VWERASE];
3857 host->c_cc[VLNEXT] = target->c_cc[TARGET_VLNEXT];
3858 host->c_cc[VEOL2] = target->c_cc[TARGET_VEOL2];
3859 }
3860
3861 static void host_to_target_termios (void *dst, const void *src)
3862 {
3863 struct target_termios *target = dst;
3864 const struct host_termios *host = src;
3865
3866 target->c_iflag =
3867 tswap32(host_to_target_bitmask(host->c_iflag, iflag_tbl));
3868 target->c_oflag =
3869 tswap32(host_to_target_bitmask(host->c_oflag, oflag_tbl));
3870 target->c_cflag =
3871 tswap32(host_to_target_bitmask(host->c_cflag, cflag_tbl));
3872 target->c_lflag =
3873 tswap32(host_to_target_bitmask(host->c_lflag, lflag_tbl));
3874 target->c_line = host->c_line;
3875
3876 memset(target->c_cc, 0, sizeof(target->c_cc));
3877 target->c_cc[TARGET_VINTR] = host->c_cc[VINTR];
3878 target->c_cc[TARGET_VQUIT] = host->c_cc[VQUIT];
3879 target->c_cc[TARGET_VERASE] = host->c_cc[VERASE];
3880 target->c_cc[TARGET_VKILL] = host->c_cc[VKILL];
3881 target->c_cc[TARGET_VEOF] = host->c_cc[VEOF];
3882 target->c_cc[TARGET_VTIME] = host->c_cc[VTIME];
3883 target->c_cc[TARGET_VMIN] = host->c_cc[VMIN];
3884 target->c_cc[TARGET_VSWTC] = host->c_cc[VSWTC];
3885 target->c_cc[TARGET_VSTART] = host->c_cc[VSTART];
3886 target->c_cc[TARGET_VSTOP] = host->c_cc[VSTOP];
3887 target->c_cc[TARGET_VSUSP] = host->c_cc[VSUSP];
3888 target->c_cc[TARGET_VEOL] = host->c_cc[VEOL];
3889 target->c_cc[TARGET_VREPRINT] = host->c_cc[VREPRINT];
3890 target->c_cc[TARGET_VDISCARD] = host->c_cc[VDISCARD];
3891 target->c_cc[TARGET_VWERASE] = host->c_cc[VWERASE];
3892 target->c_cc[TARGET_VLNEXT] = host->c_cc[VLNEXT];
3893 target->c_cc[TARGET_VEOL2] = host->c_cc[VEOL2];
3894 }
3895
3896 static const StructEntry struct_termios_def = {
3897 .convert = { host_to_target_termios, target_to_host_termios },
3898 .size = { sizeof(struct target_termios), sizeof(struct host_termios) },
3899 .align = { __alignof__(struct target_termios), __alignof__(struct host_termios) },
3900 };
3901
3902 static bitmask_transtbl mmap_flags_tbl[] = {
3903 { TARGET_MAP_SHARED, TARGET_MAP_SHARED, MAP_SHARED, MAP_SHARED },
3904 { TARGET_MAP_PRIVATE, TARGET_MAP_PRIVATE, MAP_PRIVATE, MAP_PRIVATE },
3905 { TARGET_MAP_FIXED, TARGET_MAP_FIXED, MAP_FIXED, MAP_FIXED },
3906 { TARGET_MAP_ANONYMOUS, TARGET_MAP_ANONYMOUS, MAP_ANONYMOUS, MAP_ANONYMOUS },
3907 { TARGET_MAP_GROWSDOWN, TARGET_MAP_GROWSDOWN, MAP_GROWSDOWN, MAP_GROWSDOWN },
3908 { TARGET_MAP_DENYWRITE, TARGET_MAP_DENYWRITE, MAP_DENYWRITE, MAP_DENYWRITE },
3909 { TARGET_MAP_EXECUTABLE, TARGET_MAP_EXECUTABLE, MAP_EXECUTABLE, MAP_EXECUTABLE },
3910 { TARGET_MAP_LOCKED, TARGET_MAP_LOCKED, MAP_LOCKED, MAP_LOCKED },
3911 { 0, 0, 0, 0 }
3912 };
3913
3914 #if defined(TARGET_I386)
3915
3916 /* NOTE: there is really one LDT for all the threads */
3917 static uint8_t *ldt_table;
3918
3919 static abi_long read_ldt(abi_ulong ptr, unsigned long bytecount)
3920 {
3921 int size;
3922 void *p;
3923
3924 if (!ldt_table)
3925 return 0;
3926 size = TARGET_LDT_ENTRIES * TARGET_LDT_ENTRY_SIZE;
3927 if (size > bytecount)
3928 size = bytecount;
3929 p = lock_user(VERIFY_WRITE, ptr, size, 0);
3930 if (!p)
3931 return -TARGET_EFAULT;
3932 /* ??? Should this by byteswapped? */
3933 memcpy(p, ldt_table, size);
3934 unlock_user(p, ptr, size);
3935 return size;
3936 }
3937
3938 /* XXX: add locking support */
3939 static abi_long write_ldt(CPUX86State *env,
3940 abi_ulong ptr, unsigned long bytecount, int oldmode)
3941 {
3942 struct target_modify_ldt_ldt_s ldt_info;
3943 struct target_modify_ldt_ldt_s *target_ldt_info;
3944 int seg_32bit, contents, read_exec_only, limit_in_pages;
3945 int seg_not_present, useable, lm;
3946 uint32_t *lp, entry_1, entry_2;
3947
3948 if (bytecount != sizeof(ldt_info))
3949 return -TARGET_EINVAL;
3950 if (!lock_user_struct(VERIFY_READ, target_ldt_info, ptr, 1))
3951 return -TARGET_EFAULT;
3952 ldt_info.entry_number = tswap32(target_ldt_info->entry_number);
3953 ldt_info.base_addr = tswapal(target_ldt_info->base_addr);
3954 ldt_info.limit = tswap32(target_ldt_info->limit);
3955 ldt_info.flags = tswap32(target_ldt_info->flags);
3956 unlock_user_struct(target_ldt_info, ptr, 0);
3957
3958 if (ldt_info.entry_number >= TARGET_LDT_ENTRIES)
3959 return -TARGET_EINVAL;
3960 seg_32bit = ldt_info.flags & 1;
3961 contents = (ldt_info.flags >> 1) & 3;
3962 read_exec_only = (ldt_info.flags >> 3) & 1;
3963 limit_in_pages = (ldt_info.flags >> 4) & 1;
3964 seg_not_present = (ldt_info.flags >> 5) & 1;
3965 useable = (ldt_info.flags >> 6) & 1;
3966 #ifdef TARGET_ABI32
3967 lm = 0;
3968 #else
3969 lm = (ldt_info.flags >> 7) & 1;
3970 #endif
3971 if (contents == 3) {
3972 if (oldmode)
3973 return -TARGET_EINVAL;
3974 if (seg_not_present == 0)
3975 return -TARGET_EINVAL;
3976 }
3977 /* allocate the LDT */
3978 if (!ldt_table) {
3979 env->ldt.base = target_mmap(0,
3980 TARGET_LDT_ENTRIES * TARGET_LDT_ENTRY_SIZE,
3981 PROT_READ|PROT_WRITE,
3982 MAP_ANONYMOUS|MAP_PRIVATE, -1, 0);
3983 if (env->ldt.base == -1)
3984 return -TARGET_ENOMEM;
3985 memset(g2h(env->ldt.base), 0,
3986 TARGET_LDT_ENTRIES * TARGET_LDT_ENTRY_SIZE);
3987 env->ldt.limit = 0xffff;
3988 ldt_table = g2h(env->ldt.base);
3989 }
3990
3991 /* NOTE: same code as Linux kernel */
3992 /* Allow LDTs to be cleared by the user. */
3993 if (ldt_info.base_addr == 0 && ldt_info.limit == 0) {
3994 if (oldmode ||
3995 (contents == 0 &&
3996 read_exec_only == 1 &&
3997 seg_32bit == 0 &&
3998 limit_in_pages == 0 &&
3999 seg_not_present == 1 &&
4000 useable == 0 )) {
4001 entry_1 = 0;
4002 entry_2 = 0;
4003 goto install;
4004 }
4005 }
4006
4007 entry_1 = ((ldt_info.base_addr & 0x0000ffff) << 16) |
4008 (ldt_info.limit & 0x0ffff);
4009 entry_2 = (ldt_info.base_addr & 0xff000000) |
4010 ((ldt_info.base_addr & 0x00ff0000) >> 16) |
4011 (ldt_info.limit & 0xf0000) |
4012 ((read_exec_only ^ 1) << 9) |
4013 (contents << 10) |
4014 ((seg_not_present ^ 1) << 15) |
4015 (seg_32bit << 22) |
4016 (limit_in_pages << 23) |
4017 (lm << 21) |
4018 0x7000;
4019 if (!oldmode)
4020 entry_2 |= (useable << 20);
4021
4022 /* Install the new entry ... */
4023 install:
4024 lp = (uint32_t *)(ldt_table + (ldt_info.entry_number << 3));
4025 lp[0] = tswap32(entry_1);
4026 lp[1] = tswap32(entry_2);
4027 return 0;
4028 }
4029
4030 /* specific and weird i386 syscalls */
4031 static abi_long do_modify_ldt(CPUX86State *env, int func, abi_ulong ptr,
4032 unsigned long bytecount)
4033 {
4034 abi_long ret;
4035
4036 switch (func) {
4037 case 0:
4038 ret = read_ldt(ptr, bytecount);
4039 break;
4040 case 1:
4041 ret = write_ldt(env, ptr, bytecount, 1);
4042 break;
4043 case 0x11:
4044 ret = write_ldt(env, ptr, bytecount, 0);
4045 break;
4046 default:
4047 ret = -TARGET_ENOSYS;
4048 break;
4049 }
4050 return ret;
4051 }
4052
4053 #if defined(TARGET_I386) && defined(TARGET_ABI32)
4054 abi_long do_set_thread_area(CPUX86State *env, abi_ulong ptr)
4055 {
4056 uint64_t *gdt_table = g2h(env->gdt.base);
4057 struct target_modify_ldt_ldt_s ldt_info;
4058 struct target_modify_ldt_ldt_s *target_ldt_info;
4059 int seg_32bit, contents, read_exec_only, limit_in_pages;
4060 int seg_not_present, useable, lm;
4061 uint32_t *lp, entry_1, entry_2;
4062 int i;
4063
4064 lock_user_struct(VERIFY_WRITE, target_ldt_info, ptr, 1);
4065 if (!target_ldt_info)
4066 return -TARGET_EFAULT;
4067 ldt_info.entry_number = tswap32(target_ldt_info->entry_number);
4068 ldt_info.base_addr = tswapal(target_ldt_info->base_addr);
4069 ldt_info.limit = tswap32(target_ldt_info->limit);
4070 ldt_info.flags = tswap32(target_ldt_info->flags);
4071 if (ldt_info.entry_number == -1) {
4072 for (i=TARGET_GDT_ENTRY_TLS_MIN; i<=TARGET_GDT_ENTRY_TLS_MAX; i++) {
4073 if (gdt_table[i] == 0) {
4074 ldt_info.entry_number = i;
4075 target_ldt_info->entry_number = tswap32(i);
4076 break;
4077 }
4078 }
4079 }
4080 unlock_user_struct(target_ldt_info, ptr, 1);
4081
4082 if (ldt_info.entry_number < TARGET_GDT_ENTRY_TLS_MIN ||
4083 ldt_info.entry_number > TARGET_GDT_ENTRY_TLS_MAX)
4084 return -TARGET_EINVAL;
4085 seg_32bit = ldt_info.flags & 1;
4086 contents = (ldt_info.flags >> 1) & 3;
4087 read_exec_only = (ldt_info.flags >> 3) & 1;
4088 limit_in_pages = (ldt_info.flags >> 4) & 1;
4089 seg_not_present = (ldt_info.flags >> 5) & 1;
4090 useable = (ldt_info.flags >> 6) & 1;
4091 #ifdef TARGET_ABI32
4092 lm = 0;
4093 #else
4094 lm = (ldt_info.flags >> 7) & 1;
4095 #endif
4096
4097 if (contents == 3) {
4098 if (seg_not_present == 0)
4099 return -TARGET_EINVAL;
4100 }
4101
4102 /* NOTE: same code as Linux kernel */
4103 /* Allow LDTs to be cleared by the user. */
4104 if (ldt_info.base_addr == 0 && ldt_info.limit == 0) {
4105 if ((contents == 0 &&
4106 read_exec_only == 1 &&
4107 seg_32bit == 0 &&
4108 limit_in_pages == 0 &&
4109 seg_not_present == 1 &&
4110 useable == 0 )) {
4111 entry_1 = 0;
4112 entry_2 = 0;
4113 goto install;
4114 }
4115 }
4116
4117 entry_1 = ((ldt_info.base_addr & 0x0000ffff) << 16) |
4118 (ldt_info.limit & 0x0ffff);
4119 entry_2 = (ldt_info.base_addr & 0xff000000) |
4120 ((ldt_info.base_addr & 0x00ff0000) >> 16) |
4121 (ldt_info.limit & 0xf0000) |
4122 ((read_exec_only ^ 1) << 9) |
4123 (contents << 10) |
4124 ((seg_not_present ^ 1) << 15) |
4125 (seg_32bit << 22) |
4126 (limit_in_pages << 23) |
4127 (useable << 20) |
4128 (lm << 21) |
4129 0x7000;
4130
4131 /* Install the new entry ... */
4132 install:
4133 lp = (uint32_t *)(gdt_table + ldt_info.entry_number);
4134 lp[0] = tswap32(entry_1);
4135 lp[1] = tswap32(entry_2);
4136 return 0;
4137 }
4138
4139 static abi_long do_get_thread_area(CPUX86State *env, abi_ulong ptr)
4140 {
4141 struct target_modify_ldt_ldt_s *target_ldt_info;
4142 uint64_t *gdt_table = g2h(env->gdt.base);
4143 uint32_t base_addr, limit, flags;
4144 int seg_32bit, contents, read_exec_only, limit_in_pages, idx;
4145 int seg_not_present, useable, lm;
4146 uint32_t *lp, entry_1, entry_2;
4147
4148 lock_user_struct(VERIFY_WRITE, target_ldt_info, ptr, 1);
4149 if (!target_ldt_info)
4150 return -TARGET_EFAULT;
4151 idx = tswap32(target_ldt_info->entry_number);
4152 if (idx < TARGET_GDT_ENTRY_TLS_MIN ||
4153 idx > TARGET_GDT_ENTRY_TLS_MAX) {
4154 unlock_user_struct(target_ldt_info, ptr, 1);
4155 return -TARGET_EINVAL;
4156 }
4157 lp = (uint32_t *)(gdt_table + idx);
4158 entry_1 = tswap32(lp[0]);
4159 entry_2 = tswap32(lp[1]);
4160
4161 read_exec_only = ((entry_2 >> 9) & 1) ^ 1;
4162 contents = (entry_2 >> 10) & 3;
4163 seg_not_present = ((entry_2 >> 15) & 1) ^ 1;
4164 seg_32bit = (entry_2 >> 22) & 1;
4165 limit_in_pages = (entry_2 >> 23) & 1;
4166 useable = (entry_2 >> 20) & 1;
4167 #ifdef TARGET_ABI32
4168 lm = 0;
4169 #else
4170 lm = (entry_2 >> 21) & 1;
4171 #endif
4172 flags = (seg_32bit << 0) | (contents << 1) |
4173 (read_exec_only << 3) | (limit_in_pages << 4) |
4174 (seg_not_present << 5) | (useable << 6) | (lm << 7);
4175 limit = (entry_1 & 0xffff) | (entry_2 & 0xf0000);
4176 base_addr = (entry_1 >> 16) |
4177 (entry_2 & 0xff000000) |
4178 ((entry_2 & 0xff) << 16);
4179 target_ldt_info->base_addr = tswapal(base_addr);
4180 target_ldt_info->limit = tswap32(limit);
4181 target_ldt_info->flags = tswap32(flags);
4182 unlock_user_struct(target_ldt_info, ptr, 1);
4183 return 0;
4184 }
4185 #endif /* TARGET_I386 && TARGET_ABI32 */
4186
4187 #ifndef TARGET_ABI32
4188 abi_long do_arch_prctl(CPUX86State *env, int code, abi_ulong addr)
4189 {
4190 abi_long ret = 0;
4191 abi_ulong val;
4192 int idx;
4193
4194 switch(code) {
4195 case TARGET_ARCH_SET_GS:
4196 case TARGET_ARCH_SET_FS:
4197 if (code == TARGET_ARCH_SET_GS)
4198 idx = R_GS;
4199 else
4200 idx = R_FS;
4201 cpu_x86_load_seg(env, idx, 0);
4202 env->segs[idx].base = addr;
4203 break;
4204 case TARGET_ARCH_GET_GS:
4205 case TARGET_ARCH_GET_FS:
4206 if (code == TARGET_ARCH_GET_GS)
4207 idx = R_GS;
4208 else
4209 idx = R_FS;
4210 val = env->segs[idx].base;
4211 if (put_user(val, addr, abi_ulong))
4212 ret = -TARGET_EFAULT;
4213 break;
4214 default:
4215 ret = -TARGET_EINVAL;
4216 break;
4217 }
4218 return ret;
4219 }
4220 #endif
4221
4222 #endif /* defined(TARGET_I386) */
4223
4224 #define NEW_STACK_SIZE 0x40000
4225
4226
4227 static pthread_mutex_t clone_lock = PTHREAD_MUTEX_INITIALIZER;
4228 typedef struct {
4229 CPUArchState *env;
4230 pthread_mutex_t mutex;
4231 pthread_cond_t cond;
4232 pthread_t thread;
4233 uint32_t tid;
4234 abi_ulong child_tidptr;
4235 abi_ulong parent_tidptr;
4236 sigset_t sigmask;
4237 } new_thread_info;
4238
4239 static void *clone_func(void *arg)
4240 {
4241 new_thread_info *info = arg;
4242 CPUArchState *env;
4243 CPUState *cpu;
4244 TaskState *ts;
4245
4246 env = info->env;
4247 cpu = ENV_GET_CPU(env);
4248 thread_cpu = cpu;
4249 ts = (TaskState *)cpu->opaque;
4250 info->tid = gettid();
4251 cpu->host_tid = info->tid;
4252 task_settid(ts);
4253 if (info->child_tidptr)
4254 put_user_u32(info->tid, info->child_tidptr);
4255 if (info->parent_tidptr)
4256 put_user_u32(info->tid, info->parent_tidptr);
4257 /* Enable signals. */
4258 sigprocmask(SIG_SETMASK, &info->sigmask, NULL);
4259 /* Signal to the parent that we're ready. */
4260 pthread_mutex_lock(&info->mutex);
4261 pthread_cond_broadcast(&info->cond);
4262 pthread_mutex_unlock(&info->mutex);
4263 /* Wait until the parent has finshed initializing the tls state. */
4264 pthread_mutex_lock(&clone_lock);
4265 pthread_mutex_unlock(&clone_lock);
4266 cpu_loop(env);
4267 /* never exits */
4268 return NULL;
4269 }
4270
4271 /* do_fork() Must return host values and target errnos (unlike most
4272 do_*() functions). */
4273 static int do_fork(CPUArchState *env, unsigned int flags, abi_ulong newsp,
4274 abi_ulong parent_tidptr, target_ulong newtls,
4275 abi_ulong child_tidptr)
4276 {
4277 CPUState *cpu = ENV_GET_CPU(env);
4278 int ret;
4279 TaskState *ts;
4280 CPUState *new_cpu;
4281 CPUArchState *new_env;
4282 unsigned int nptl_flags;
4283 sigset_t sigmask;
4284
4285 /* Emulate vfork() with fork() */
4286 if (flags & CLONE_VFORK)
4287 flags &= ~(CLONE_VFORK | CLONE_VM);
4288
4289 if (flags & CLONE_VM) {
4290 TaskState *parent_ts = (TaskState *)cpu->opaque;
4291 new_thread_info info;
4292 pthread_attr_t attr;
4293
4294 ts = g_malloc0(sizeof(TaskState));
4295 init_task_state(ts);
4296 /* we create a new CPU instance. */
4297 new_env = cpu_copy(env);
4298 /* Init regs that differ from the parent. */
4299 cpu_clone_regs(new_env, newsp);
4300 new_cpu = ENV_GET_CPU(new_env);
4301 new_cpu->opaque = ts;
4302 ts->bprm = parent_ts->bprm;
4303 ts->info = parent_ts->info;
4304 nptl_flags = flags;
4305 flags &= ~CLONE_NPTL_FLAGS2;
4306
4307 if (nptl_flags & CLONE_CHILD_CLEARTID) {
4308 ts->child_tidptr = child_tidptr;
4309 }
4310
4311 if (nptl_flags & CLONE_SETTLS)
4312 cpu_set_tls (new_env, newtls);
4313
4314 /* Grab a mutex so that thread setup appears atomic. */
4315 pthread_mutex_lock(&clone_lock);
4316
4317 memset(&info, 0, sizeof(info));
4318 pthread_mutex_init(&info.mutex, NULL);
4319 pthread_mutex_lock(&info.mutex);
4320 pthread_cond_init(&info.cond, NULL);
4321 info.env = new_env;
4322 if (nptl_flags & CLONE_CHILD_SETTID)
4323 info.child_tidptr = child_tidptr;
4324 if (nptl_flags & CLONE_PARENT_SETTID)
4325 info.parent_tidptr = parent_tidptr;
4326
4327 ret = pthread_attr_init(&attr);
4328 ret = pthread_attr_setstacksize(&attr, NEW_STACK_SIZE);
4329 ret = pthread_attr_setdetachstate(&attr, PTHREAD_CREATE_DETACHED);
4330 /* It is not safe to deliver signals until the child has finished
4331 initializing, so temporarily block all signals. */
4332 sigfillset(&sigmask);
4333 sigprocmask(SIG_BLOCK, &sigmask, &info.sigmask);
4334
4335 ret = pthread_create(&info.thread, &attr, clone_func, &info);
4336 /* TODO: Free new CPU state if thread creation failed. */
4337
4338 sigprocmask(SIG_SETMASK, &info.sigmask, NULL);
4339 pthread_attr_destroy(&attr);
4340 if (ret == 0) {
4341 /* Wait for the child to initialize. */
4342 pthread_cond_wait(&info.cond, &info.mutex);
4343 ret = info.tid;
4344 if (flags & CLONE_PARENT_SETTID)
4345 put_user_u32(ret, parent_tidptr);
4346 } else {
4347 ret = -1;
4348 }
4349 pthread_mutex_unlock(&info.mutex);
4350 pthread_cond_destroy(&info.cond);
4351 pthread_mutex_destroy(&info.mutex);
4352 pthread_mutex_unlock(&clone_lock);
4353 } else {
4354 /* if no CLONE_VM, we consider it is a fork */
4355 if ((flags & ~(CSIGNAL | CLONE_NPTL_FLAGS2)) != 0)
4356 return -EINVAL;
4357 fork_start();
4358 ret = fork();
4359 if (ret == 0) {
4360 /* Child Process. */
4361 cpu_clone_regs(env, newsp);
4362 fork_end(1);
4363 /* There is a race condition here. The parent process could
4364 theoretically read the TID in the child process before the child
4365 tid is set. This would require using either ptrace
4366 (not implemented) or having *_tidptr to point at a shared memory
4367 mapping. We can't repeat the spinlock hack used above because
4368 the child process gets its own copy of the lock. */
4369 if (flags & CLONE_CHILD_SETTID)
4370 put_user_u32(gettid(), child_tidptr);
4371 if (flags & CLONE_PARENT_SETTID)
4372 put_user_u32(gettid(), parent_tidptr);
4373 ts = (TaskState *)cpu->opaque;
4374 if (flags & CLONE_SETTLS)
4375 cpu_set_tls (env, newtls);
4376 if (flags & CLONE_CHILD_CLEARTID)
4377 ts->child_tidptr = child_tidptr;
4378 } else {
4379 fork_end(0);
4380 }
4381 }
4382 return ret;
4383 }
4384
4385 /* warning : doesn't handle linux specific flags... */
4386 static int target_to_host_fcntl_cmd(int cmd)
4387 {
4388 switch(cmd) {
4389 case TARGET_F_DUPFD:
4390 case TARGET_F_GETFD:
4391 case TARGET_F_SETFD:
4392 case TARGET_F_GETFL:
4393 case TARGET_F_SETFL:
4394 return cmd;
4395 case TARGET_F_GETLK:
4396 return F_GETLK;
4397 case TARGET_F_SETLK:
4398 return F_SETLK;
4399 case TARGET_F_SETLKW:
4400 return F_SETLKW;
4401 case TARGET_F_GETOWN:
4402 return F_GETOWN;
4403 case TARGET_F_SETOWN:
4404 return F_SETOWN;
4405 case TARGET_F_GETSIG:
4406 return F_GETSIG;
4407 case TARGET_F_SETSIG:
4408 return F_SETSIG;
4409 #if TARGET_ABI_BITS == 32
4410 case TARGET_F_GETLK64:
4411 return F_GETLK64;
4412 case TARGET_F_SETLK64:
4413 return F_SETLK64;
4414 case TARGET_F_SETLKW64:
4415 return F_SETLKW64;
4416 #endif
4417 case TARGET_F_SETLEASE:
4418 return F_SETLEASE;
4419 case TARGET_F_GETLEASE:
4420 return F_GETLEASE;
4421 #ifdef F_DUPFD_CLOEXEC
4422 case TARGET_F_DUPFD_CLOEXEC:
4423 return F_DUPFD_CLOEXEC;
4424 #endif
4425 case TARGET_F_NOTIFY:
4426 return F_NOTIFY;
4427 #ifdef F_GETOWN_EX
4428 case TARGET_F_GETOWN_EX:
4429 return F_GETOWN_EX;
4430 #endif
4431 #ifdef F_SETOWN_EX
4432 case TARGET_F_SETOWN_EX:
4433 return F_SETOWN_EX;
4434 #endif
4435 default:
4436 return -TARGET_EINVAL;
4437 }
4438 return -TARGET_EINVAL;
4439 }
4440
4441 #define TRANSTBL_CONVERT(a) { -1, TARGET_##a, -1, a }
4442 static const bitmask_transtbl flock_tbl[] = {
4443 TRANSTBL_CONVERT(F_RDLCK),
4444 TRANSTBL_CONVERT(F_WRLCK),
4445 TRANSTBL_CONVERT(F_UNLCK),
4446 TRANSTBL_CONVERT(F_EXLCK),
4447 TRANSTBL_CONVERT(F_SHLCK),
4448 { 0, 0, 0, 0 }
4449 };
4450
4451 static abi_long do_fcntl(int fd, int cmd, abi_ulong arg)
4452 {
4453 struct flock fl;
4454 struct target_flock *target_fl;
4455 struct flock64 fl64;
4456 struct target_flock64 *target_fl64;
4457 #ifdef F_GETOWN_EX
4458 struct f_owner_ex fox;
4459 struct target_f_owner_ex *target_fox;
4460 #endif
4461 abi_long ret;
4462 int host_cmd = target_to_host_fcntl_cmd(cmd);
4463
4464 if (host_cmd == -TARGET_EINVAL)
4465 return host_cmd;
4466
4467 switch(cmd) {
4468 case TARGET_F_GETLK:
4469 if (!lock_user_struct(VERIFY_READ, target_fl, arg, 1))
4470 return -TARGET_EFAULT;
4471 fl.l_type =
4472 target_to_host_bitmask(tswap16(target_fl->l_type), flock_tbl);
4473 fl.l_whence = tswap16(target_fl->l_whence);
4474 fl.l_start = tswapal(target_fl->l_start);
4475 fl.l_len = tswapal(target_fl->l_len);
4476 fl.l_pid = tswap32(target_fl->l_pid);
4477 unlock_user_struct(target_fl, arg, 0);
4478 ret = get_errno(fcntl(fd, host_cmd, &fl));
4479 if (ret == 0) {
4480 if (!lock_user_struct(VERIFY_WRITE, target_fl, arg, 0))
4481 return -TARGET_EFAULT;
4482 target_fl->l_type =
4483 host_to_target_bitmask(tswap16(fl.l_type), flock_tbl);
4484 target_fl->l_whence = tswap16(fl.l_whence);
4485 target_fl->l_start = tswapal(fl.l_start);
4486 target_fl->l_len = tswapal(fl.l_len);
4487 target_fl->l_pid = tswap32(fl.l_pid);
4488 unlock_user_struct(target_fl, arg, 1);
4489 }
4490 break;
4491
4492 case TARGET_F_SETLK:
4493 case TARGET_F_SETLKW:
4494 if (!lock_user_struct(VERIFY_READ, target_fl, arg, 1))
4495 return -TARGET_EFAULT;
4496 fl.l_type =
4497 target_to_host_bitmask(tswap16(target_fl->l_type), flock_tbl);
4498 fl.l_whence = tswap16(target_fl->l_whence);
4499 fl.l_start = tswapal(target_fl->l_start);
4500 fl.l_len = tswapal(target_fl->l_len);
4501 fl.l_pid = tswap32(target_fl->l_pid);
4502 unlock_user_struct(target_fl, arg, 0);
4503 ret = get_errno(fcntl(fd, host_cmd, &fl));
4504 break;
4505
4506 case TARGET_F_GETLK64:
4507 if (!lock_user_struct(VERIFY_READ, target_fl64, arg, 1))
4508 return -TARGET_EFAULT;
4509 fl64.l_type =
4510 target_to_host_bitmask(tswap16(target_fl64->l_type), flock_tbl) >> 1;
4511 fl64.l_whence = tswap16(target_fl64->l_whence);
4512 fl64.l_start = tswap64(target_fl64->l_start);
4513 fl64.l_len = tswap64(target_fl64->l_len);
4514 fl64.l_pid = tswap32(target_fl64->l_pid);
4515 unlock_user_struct(target_fl64, arg, 0);
4516 ret = get_errno(fcntl(fd, host_cmd, &fl64));
4517 if (ret == 0) {
4518 if (!lock_user_struct(VERIFY_WRITE, target_fl64, arg, 0))
4519 return -TARGET_EFAULT;
4520 target_fl64->l_type =
4521 host_to_target_bitmask(tswap16(fl64.l_type), flock_tbl) >> 1;
4522 target_fl64->l_whence = tswap16(fl64.l_whence);
4523 target_fl64->l_start = tswap64(fl64.l_start);
4524 target_fl64->l_len = tswap64(fl64.l_len);
4525 target_fl64->l_pid = tswap32(fl64.l_pid);
4526 unlock_user_struct(target_fl64, arg, 1);
4527 }
4528 break;
4529 case TARGET_F_SETLK64:
4530 case TARGET_F_SETLKW64:
4531 if (!lock_user_struct(VERIFY_READ, target_fl64, arg, 1))
4532 return -TARGET_EFAULT;
4533 fl64.l_type =
4534 target_to_host_bitmask(tswap16(target_fl64->l_type), flock_tbl) >> 1;
4535 fl64.l_whence = tswap16(target_fl64->l_whence);
4536 fl64.l_start = tswap64(target_fl64->l_start);
4537 fl64.l_len = tswap64(target_fl64->l_len);
4538 fl64.l_pid = tswap32(target_fl64->l_pid);
4539 unlock_user_struct(target_fl64, arg, 0);
4540 ret = get_errno(fcntl(fd, host_cmd, &fl64));
4541 break;
4542
4543 case TARGET_F_GETFL:
4544 ret = get_errno(fcntl(fd, host_cmd, arg));
4545 if (ret >= 0) {
4546 ret = host_to_target_bitmask(ret, fcntl_flags_tbl);
4547 }
4548 break;
4549
4550 case TARGET_F_SETFL:
4551 ret = get_errno(fcntl(fd, host_cmd, target_to_host_bitmask(arg, fcntl_flags_tbl)));
4552 break;
4553
4554 #ifdef F_GETOWN_EX
4555 case TARGET_F_GETOWN_EX:
4556 ret = get_errno(fcntl(fd, host_cmd, &fox));
4557 if (ret >= 0) {
4558 if (!lock_user_struct(VERIFY_WRITE, target_fox, arg, 0))
4559 return -TARGET_EFAULT;
4560 target_fox->type = tswap32(fox.type);
4561 target_fox->pid = tswap32(fox.pid);
4562 unlock_user_struct(target_fox, arg, 1);
4563 }
4564 break;
4565 #endif
4566
4567 #ifdef F_SETOWN_EX
4568 case TARGET_F_SETOWN_EX:
4569 if (!lock_user_struct(VERIFY_READ, target_fox, arg, 1))
4570 return -TARGET_EFAULT;
4571 fox.type = tswap32(target_fox->type);
4572 fox.pid = tswap32(target_fox->pid);
4573 unlock_user_struct(target_fox, arg, 0);
4574 ret = get_errno(fcntl(fd, host_cmd, &fox));
4575 break;
4576 #endif
4577
4578 case TARGET_F_SETOWN:
4579 case TARGET_F_GETOWN:
4580 case TARGET_F_SETSIG:
4581 case TARGET_F_GETSIG:
4582 case TARGET_F_SETLEASE:
4583 case TARGET_F_GETLEASE:
4584 ret = get_errno(fcntl(fd, host_cmd, arg));
4585 break;
4586
4587 default:
4588 ret = get_errno(fcntl(fd, cmd, arg));
4589 break;
4590 }
4591 return ret;
4592 }
4593
4594 #ifdef USE_UID16
4595
4596 static inline int high2lowuid(int uid)
4597 {
4598 if (uid > 65535)
4599 return 65534;
4600 else
4601 return uid;
4602 }
4603
4604 static inline int high2lowgid(int gid)
4605 {
4606 if (gid > 65535)
4607 return 65534;
4608 else
4609 return gid;
4610 }
4611
4612 static inline int low2highuid(int uid)
4613 {
4614 if ((int16_t)uid == -1)
4615 return -1;
4616 else
4617 return uid;
4618 }
4619
4620 static inline int low2highgid(int gid)
4621 {
4622 if ((int16_t)gid == -1)
4623 return -1;
4624 else
4625 return gid;
4626 }
4627 static inline int tswapid(int id)
4628 {
4629 return tswap16(id);
4630 }
4631
4632 #define put_user_id(x, gaddr) put_user_u16(x, gaddr)
4633
4634 #else /* !USE_UID16 */
4635 static inline int high2lowuid(int uid)
4636 {
4637 return uid;
4638 }
4639 static inline int high2lowgid(int gid)
4640 {
4641 return gid;
4642 }
4643 static inline int low2highuid(int uid)
4644 {
4645 return uid;
4646 }
4647 static inline int low2highgid(int gid)
4648 {
4649 return gid;
4650 }
4651 static inline int tswapid(int id)
4652 {
4653 return tswap32(id);
4654 }
4655
4656 #define put_user_id(x, gaddr) put_user_u32(x, gaddr)
4657
4658 #endif /* USE_UID16 */
4659
4660 void syscall_init(void)
4661 {
4662 IOCTLEntry *ie;
4663 const argtype *arg_type;
4664 int size;
4665 int i;
4666
4667 #define STRUCT(name, ...) thunk_register_struct(STRUCT_ ## name, #name, struct_ ## name ## _def);
4668 #define STRUCT_SPECIAL(name) thunk_register_struct_direct(STRUCT_ ## name, #name, &struct_ ## name ## _def);
4669 #include "syscall_types.h"
4670 #undef STRUCT
4671 #undef STRUCT_SPECIAL
4672
4673 /* Build target_to_host_errno_table[] table from
4674 * host_to_target_errno_table[]. */
4675 for (i = 0; i < ERRNO_TABLE_SIZE; i++) {
4676 target_to_host_errno_table[host_to_target_errno_table[i]] = i;
4677 }
4678
4679 /* we patch the ioctl size if necessary. We rely on the fact that
4680 no ioctl has all the bits at '1' in the size field */
4681 ie = ioctl_entries;
4682 while (ie->target_cmd != 0) {
4683 if (((ie->target_cmd >> TARGET_IOC_SIZESHIFT) & TARGET_IOC_SIZEMASK) ==
4684 TARGET_IOC_SIZEMASK) {
4685 arg_type = ie->arg_type;
4686 if (arg_type[0] != TYPE_PTR) {
4687 fprintf(stderr, "cannot patch size for ioctl 0x%x\n",
4688 ie->target_cmd);
4689 exit(1);
4690 }
4691 arg_type++;
4692 size = thunk_type_size(arg_type, 0);
4693 ie->target_cmd = (ie->target_cmd &
4694 ~(TARGET_IOC_SIZEMASK << TARGET_IOC_SIZESHIFT)) |
4695 (size << TARGET_IOC_SIZESHIFT);
4696 }
4697
4698 /* automatic consistency check if same arch */
4699 #if (defined(__i386__) && defined(TARGET_I386) && defined(TARGET_ABI32)) || \
4700 (defined(__x86_64__) && defined(TARGET_X86_64))
4701 if (unlikely(ie->target_cmd != ie->host_cmd)) {
4702 fprintf(stderr, "ERROR: ioctl(%s): target=0x%x host=0x%x\n",
4703 ie->name, ie->target_cmd, ie->host_cmd);
4704 }
4705 #endif
4706 ie++;
4707 }
4708 }
4709
4710 #if TARGET_ABI_BITS == 32
4711 static inline uint64_t target_offset64(uint32_t word0, uint32_t word1)
4712 {
4713 #ifdef TARGET_WORDS_BIGENDIAN
4714 return ((uint64_t)word0 << 32) | word1;
4715 #else
4716 return ((uint64_t)word1 << 32) | word0;
4717 #endif
4718 }
4719 #else /* TARGET_ABI_BITS == 32 */
4720 static inline uint64_t target_offset64(uint64_t word0, uint64_t word1)
4721 {
4722 return word0;
4723 }
4724 #endif /* TARGET_ABI_BITS != 32 */
4725
4726 #ifdef TARGET_NR_truncate64
4727 static inline abi_long target_truncate64(void *cpu_env, const char *arg1,
4728 abi_long arg2,
4729 abi_long arg3,
4730 abi_long arg4)
4731 {
4732 if (regpairs_aligned(cpu_env)) {
4733 arg2 = arg3;
4734 arg3 = arg4;
4735 }
4736 return get_errno(truncate64(arg1, target_offset64(arg2, arg3)));
4737 }
4738 #endif
4739
4740 #ifdef TARGET_NR_ftruncate64
4741 static inline abi_long target_ftruncate64(void *cpu_env, abi_long arg1,
4742 abi_long arg2,
4743 abi_long arg3,
4744 abi_long arg4)
4745 {
4746 if (regpairs_aligned(cpu_env)) {
4747 arg2 = arg3;
4748 arg3 = arg4;
4749 }
4750 return get_errno(ftruncate64(arg1, target_offset64(arg2, arg3)));
4751 }
4752 #endif
4753
4754 static inline abi_long target_to_host_timespec(struct timespec *host_ts,
4755 abi_ulong target_addr)
4756 {
4757 struct target_timespec *target_ts;
4758
4759 if (!lock_user_struct(VERIFY_READ, target_ts, target_addr, 1))
4760 return -TARGET_EFAULT;
4761 host_ts->tv_sec = tswapal(target_ts->tv_sec);
4762 host_ts->tv_nsec = tswapal(target_ts->tv_nsec);
4763 unlock_user_struct(target_ts, target_addr, 0);
4764 return 0;
4765 }
4766
4767 static inline abi_long host_to_target_timespec(abi_ulong target_addr,
4768 struct timespec *host_ts)
4769 {
4770 struct target_timespec *target_ts;
4771
4772 if (!lock_user_struct(VERIFY_WRITE, target_ts, target_addr, 0))
4773 return -TARGET_EFAULT;
4774 target_ts->tv_sec = tswapal(host_ts->tv_sec);
4775 target_ts->tv_nsec = tswapal(host_ts->tv_nsec);
4776 unlock_user_struct(target_ts, target_addr, 1);
4777 return 0;
4778 }
4779
4780 static inline abi_long target_to_host_itimerspec(struct itimerspec *host_itspec,
4781 abi_ulong target_addr)
4782 {
4783 struct target_itimerspec *target_itspec;
4784
4785 if (!lock_user_struct(VERIFY_READ, target_itspec, target_addr, 1)) {
4786 return -TARGET_EFAULT;
4787 }
4788
4789 host_itspec->it_interval.tv_sec =
4790 tswapal(target_itspec->it_interval.tv_sec);
4791 host_itspec->it_interval.tv_nsec =
4792 tswapal(target_itspec->it_interval.tv_nsec);
4793 host_itspec->it_value.tv_sec = tswapal(target_itspec->it_value.tv_sec);
4794 host_itspec->it_value.tv_nsec = tswapal(target_itspec->it_value.tv_nsec);
4795
4796 unlock_user_struct(target_itspec, target_addr, 1);
4797 return 0;
4798 }
4799
4800 static inline abi_long host_to_target_itimerspec(abi_ulong target_addr,
4801 struct itimerspec *host_its)
4802 {
4803 struct target_itimerspec *target_itspec;
4804
4805 if (!lock_user_struct(VERIFY_WRITE, target_itspec, target_addr, 0)) {
4806 return -TARGET_EFAULT;
4807 }
4808
4809 target_itspec->it_interval.tv_sec = tswapal(host_its->it_interval.tv_sec);
4810 target_itspec->it_interval.tv_nsec = tswapal(host_its->it_interval.tv_nsec);
4811
4812 target_itspec->it_value.tv_sec = tswapal(host_its->it_value.tv_sec);
4813 target_itspec->it_value.tv_nsec = tswapal(host_its->it_value.tv_nsec);
4814
4815 unlock_user_struct(target_itspec, target_addr, 0);
4816 return 0;
4817 }
4818
4819 #if defined(TARGET_NR_stat64) || defined(TARGET_NR_newfstatat)
4820 static inline abi_long host_to_target_stat64(void *cpu_env,
4821 abi_ulong target_addr,
4822 struct stat *host_st)
4823 {
4824 #if defined(TARGET_ARM) && defined(TARGET_ABI32)
4825 if (((CPUARMState *)cpu_env)->eabi) {
4826 struct target_eabi_stat64 *target_st;
4827
4828 if (!lock_user_struct(VERIFY_WRITE, target_st, target_addr, 0))
4829 return -TARGET_EFAULT;
4830 memset(target_st, 0, sizeof(struct target_eabi_stat64));
4831 __put_user(host_st->st_dev, &target_st->st_dev);
4832 __put_user(host_st->st_ino, &target_st->st_ino);
4833 #ifdef TARGET_STAT64_HAS_BROKEN_ST_INO
4834 __put_user(host_st->st_ino, &target_st->__st_ino);
4835 #endif
4836 __put_user(host_st->st_mode, &target_st->st_mode);
4837 __put_user(host_st->st_nlink, &target_st->st_nlink);
4838 __put_user(host_st->st_uid, &target_st->st_uid);
4839 __put_user(host_st->st_gid, &target_st->st_gid);
4840 __put_user(host_st->st_rdev, &target_st->st_rdev);
4841 __put_user(host_st->st_size, &target_st->st_size);
4842 __put_user(host_st->st_blksize, &target_st->st_blksize);
4843 __put_user(host_st->st_blocks, &target_st->st_blocks);
4844 __put_user(host_st->st_atime, &target_st->target_st_atime);
4845 __put_user(host_st->st_mtime, &target_st->target_st_mtime);
4846 __put_user(host_st->st_ctime, &target_st->target_st_ctime);
4847 unlock_user_struct(target_st, target_addr, 1);
4848 } else
4849 #endif
4850 {
4851 #if defined(TARGET_HAS_STRUCT_STAT64)
4852 struct target_stat64 *target_st;
4853 #else
4854 struct target_stat *target_st;
4855 #endif
4856
4857 if (!lock_user_struct(VERIFY_WRITE, target_st, target_addr, 0))
4858 return -TARGET_EFAULT;
4859 memset(target_st, 0, sizeof(*target_st));
4860 __put_user(host_st->st_dev, &target_st->st_dev);
4861 __put_user(host_st->st_ino, &target_st->st_ino);
4862 #ifdef TARGET_STAT64_HAS_BROKEN_ST_INO
4863 __put_user(host_st->st_ino, &target_st->__st_ino);
4864 #endif
4865 __put_user(host_st->st_mode, &target_st->st_mode);
4866 __put_user(host_st->st_nlink, &target_st->st_nlink);
4867 __put_user(host_st->st_uid, &target_st->st_uid);
4868 __put_user(host_st->st_gid, &target_st->st_gid);
4869 __put_user(host_st->st_rdev, &target_st->st_rdev);
4870 /* XXX: better use of kernel struct */
4871 __put_user(host_st->st_size, &target_st->st_size);
4872 __put_user(host_st->st_blksize, &target_st->st_blksize);
4873 __put_user(host_st->st_blocks, &target_st->st_blocks);
4874 __put_user(host_st->st_atime, &target_st->target_st_atime);
4875 __put_user(host_st->st_mtime, &target_st->target_st_mtime);
4876 __put_user(host_st->st_ctime, &target_st->target_st_ctime);
4877 unlock_user_struct(target_st, target_addr, 1);
4878 }
4879
4880 return 0;
4881 }
4882 #endif
4883
4884 /* ??? Using host futex calls even when target atomic operations
4885 are not really atomic probably breaks things. However implementing
4886 futexes locally would make futexes shared between multiple processes
4887 tricky. However they're probably useless because guest atomic
4888 operations won't work either. */
4889 static int do_futex(target_ulong uaddr, int op, int val, target_ulong timeout,
4890 target_ulong uaddr2, int val3)
4891 {
4892 struct timespec ts, *pts;
4893 int base_op;
4894
4895 /* ??? We assume FUTEX_* constants are the same on both host
4896 and target. */
4897 #ifdef FUTEX_CMD_MASK
4898 base_op = op & FUTEX_CMD_MASK;
4899 #else
4900 base_op = op;
4901 #endif
4902 switch (base_op) {
4903 case FUTEX_WAIT:
4904 case FUTEX_WAIT_BITSET:
4905 if (timeout) {
4906 pts = &ts;
4907 target_to_host_timespec(pts, timeout);
4908 } else {
4909 pts = NULL;
4910 }
4911 return get_errno(sys_futex(g2h(uaddr), op, tswap32(val),
4912 pts, NULL, val3));
4913 case FUTEX_WAKE:
4914 return get_errno(sys_futex(g2h(uaddr), op, val, NULL, NULL, 0));
4915 case FUTEX_FD:
4916 return get_errno(sys_futex(g2h(uaddr), op, val, NULL, NULL, 0));
4917 case FUTEX_REQUEUE:
4918 case FUTEX_CMP_REQUEUE:
4919 case FUTEX_WAKE_OP:
4920 /* For FUTEX_REQUEUE, FUTEX_CMP_REQUEUE, and FUTEX_WAKE_OP, the
4921 TIMEOUT parameter is interpreted as a uint32_t by the kernel.
4922 But the prototype takes a `struct timespec *'; insert casts
4923 to satisfy the compiler. We do not need to tswap TIMEOUT
4924 since it's not compared to guest memory. */
4925 pts = (struct timespec *)(uintptr_t) timeout;
4926 return get_errno(sys_futex(g2h(uaddr), op, val, pts,
4927 g2h(uaddr2),
4928 (base_op == FUTEX_CMP_REQUEUE
4929 ? tswap32(val3)
4930 : val3)));
4931 default:
4932 return -TARGET_ENOSYS;
4933 }
4934 }
4935
4936 /* Map host to target signal numbers for the wait family of syscalls.
4937 Assume all other status bits are the same. */
4938 int host_to_target_waitstatus(int status)
4939 {
4940 if (WIFSIGNALED(status)) {
4941 return host_to_target_signal(WTERMSIG(status)) | (status & ~0x7f);
4942 }
4943 if (WIFSTOPPED(status)) {
4944 return (host_to_target_signal(WSTOPSIG(status)) << 8)
4945 | (status & 0xff);
4946 }
4947 return status;
4948 }
4949
4950 static int open_self_maps(void *cpu_env, int fd)
4951 {
4952 #if defined(TARGET_ARM) || defined(TARGET_M68K) || defined(TARGET_UNICORE32)
4953 CPUState *cpu = ENV_GET_CPU((CPUArchState *)cpu_env);
4954 TaskState *ts = cpu->opaque;
4955 #endif
4956 FILE *fp;
4957 char *line = NULL;
4958 size_t len = 0;
4959 ssize_t read;
4960
4961 fp = fopen("/proc/self/maps", "r");
4962 if (fp == NULL) {
4963 return -EACCES;
4964 }
4965
4966 while ((read = getline(&line, &len, fp)) != -1) {
4967 int fields, dev_maj, dev_min, inode;
4968 uint64_t min, max, offset;
4969 char flag_r, flag_w, flag_x, flag_p;
4970 char path[512] = "";
4971 fields = sscanf(line, "%"PRIx64"-%"PRIx64" %c%c%c%c %"PRIx64" %x:%x %d"
4972 " %512s", &min, &max, &flag_r, &flag_w, &flag_x,
4973 &flag_p, &offset, &dev_maj, &dev_min, &inode, path);
4974
4975 if ((fields < 10) || (fields > 11)) {
4976 continue;
4977 }
4978 if (!strncmp(path, "[stack]", 7)) {
4979 continue;
4980 }
4981 if (h2g_valid(min) && h2g_valid(max)) {
4982 dprintf(fd, TARGET_ABI_FMT_lx "-" TARGET_ABI_FMT_lx
4983 " %c%c%c%c %08" PRIx64 " %02x:%02x %d %s%s\n",
4984 h2g(min), h2g(max), flag_r, flag_w,
4985 flag_x, flag_p, offset, dev_maj, dev_min, inode,
4986 path[0] ? " " : "", path);
4987 }
4988 }
4989
4990 free(line);
4991 fclose(fp);
4992
4993 #if defined(TARGET_ARM) || defined(TARGET_M68K) || defined(TARGET_UNICORE32)
4994 dprintf(fd, "%08llx-%08llx rw-p %08llx 00:00 0 [stack]\n",
4995 (unsigned long long)ts->info->stack_limit,
4996 (unsigned long long)(ts->info->start_stack +
4997 (TARGET_PAGE_SIZE - 1)) & TARGET_PAGE_MASK,
4998 (unsigned long long)0);
4999 #endif
5000
5001 return 0;
5002 }
5003
5004 static int open_self_stat(void *cpu_env, int fd)
5005 {
5006 CPUState *cpu = ENV_GET_CPU((CPUArchState *)cpu_env);
5007 TaskState *ts = cpu->opaque;
5008 abi_ulong start_stack = ts->info->start_stack;
5009 int i;
5010
5011 for (i = 0; i < 44; i++) {
5012 char buf[128];
5013 int len;
5014 uint64_t val = 0;
5015
5016 if (i == 0) {
5017 /* pid */
5018 val = getpid();
5019 snprintf(buf, sizeof(buf), "%"PRId64 " ", val);
5020 } else if (i == 1) {
5021 /* app name */
5022 snprintf(buf, sizeof(buf), "(%s) ", ts->bprm->argv[0]);
5023 } else if (i == 27) {
5024 /* stack bottom */
5025 val = start_stack;
5026 snprintf(buf, sizeof(buf), "%"PRId64 " ", val);
5027 } else {
5028 /* for the rest, there is MasterCard */
5029 snprintf(buf, sizeof(buf), "0%c", i == 43 ? '\n' : ' ');
5030 }
5031
5032 len = strlen(buf);
5033 if (write(fd, buf, len) != len) {
5034 return -1;
5035 }
5036 }
5037
5038 return 0;
5039 }
5040
5041 static int open_self_auxv(void *cpu_env, int fd)
5042 {
5043 CPUState *cpu = ENV_GET_CPU((CPUArchState *)cpu_env);
5044 TaskState *ts = cpu->opaque;
5045 abi_ulong auxv = ts->info->saved_auxv;
5046 abi_ulong len = ts->info->auxv_len;
5047 char *ptr;
5048
5049 /*
5050 * Auxiliary vector is stored in target process stack.
5051 * read in whole auxv vector and copy it to file
5052 */
5053 ptr = lock_user(VERIFY_READ, auxv, len, 0);
5054 if (ptr != NULL) {
5055 while (len > 0) {
5056 ssize_t r;
5057 r = write(fd, ptr, len);
5058 if (r <= 0) {
5059 break;
5060 }
5061 len -= r;
5062 ptr += r;
5063 }
5064 lseek(fd, 0, SEEK_SET);
5065 unlock_user(ptr, auxv, len);
5066 }
5067
5068 return 0;
5069 }
5070
5071 static int is_proc_myself(const char *filename, const char *entry)
5072 {
5073 if (!strncmp(filename, "/proc/", strlen("/proc/"))) {
5074 filename += strlen("/proc/");
5075 if (!strncmp(filename, "self/", strlen("self/"))) {
5076 filename += strlen("self/");
5077 } else if (*filename >= '1' && *filename <= '9') {
5078 char myself[80];
5079 snprintf(myself, sizeof(myself), "%d/", getpid());
5080 if (!strncmp(filename, myself, strlen(myself))) {
5081 filename += strlen(myself);
5082 } else {
5083 return 0;
5084 }
5085 } else {
5086 return 0;
5087 }
5088 if (!strcmp(filename, entry)) {
5089 return 1;
5090 }
5091 }
5092 return 0;
5093 }
5094
5095 #if defined(HOST_WORDS_BIGENDIAN) != defined(TARGET_WORDS_BIGENDIAN)
5096 static int is_proc(const char *filename, const char *entry)
5097 {
5098 return strcmp(filename, entry) == 0;
5099 }
5100
5101 static int open_net_route(void *cpu_env, int fd)
5102 {
5103 FILE *fp;
5104 char *line = NULL;
5105 size_t len = 0;
5106 ssize_t read;
5107
5108 fp = fopen("/proc/net/route", "r");
5109 if (fp == NULL) {
5110 return -EACCES;
5111 }
5112
5113 /* read header */
5114
5115 read = getline(&line, &len, fp);
5116 dprintf(fd, "%s", line);
5117
5118 /* read routes */
5119
5120 while ((read = getline(&line, &len, fp)) != -1) {
5121 char iface[16];
5122 uint32_t dest, gw, mask;
5123 unsigned int flags, refcnt, use, metric, mtu, window, irtt;
5124 sscanf(line, "%s\t%08x\t%08x\t%04x\t%d\t%d\t%d\t%08x\t%d\t%u\t%u\n",
5125 iface, &dest, &gw, &flags, &refcnt, &use, &metric,
5126 &mask, &mtu, &window, &irtt);
5127 dprintf(fd, "%s\t%08x\t%08x\t%04x\t%d\t%d\t%d\t%08x\t%d\t%u\t%u\n",
5128 iface, tswap32(dest), tswap32(gw), flags, refcnt, use,
5129 metric, tswap32(mask), mtu, window, irtt);
5130 }
5131
5132 free(line);
5133 fclose(fp);
5134
5135 return 0;
5136 }
5137 #endif
5138
5139 static int do_open(void *cpu_env, const char *pathname, int flags, mode_t mode)
5140 {
5141 struct fake_open {
5142 const char *filename;
5143 int (*fill)(void *cpu_env, int fd);
5144 int (*cmp)(const char *s1, const char *s2);
5145 };
5146 const struct fake_open *fake_open;
5147 static const struct fake_open fakes[] = {
5148 { "maps", open_self_maps, is_proc_myself },
5149 { "stat", open_self_stat, is_proc_myself },
5150 { "auxv", open_self_auxv, is_proc_myself },
5151 #if defined(HOST_WORDS_BIGENDIAN) != defined(TARGET_WORDS_BIGENDIAN)
5152 { "/proc/net/route", open_net_route, is_proc },
5153 #endif
5154 { NULL, NULL, NULL }
5155 };
5156
5157 if (is_proc_myself(pathname, "exe")) {
5158 int execfd = qemu_getauxval(AT_EXECFD);
5159 return execfd ? execfd : get_errno(open(exec_path, flags, mode));
5160 }
5161
5162 for (fake_open = fakes; fake_open->filename; fake_open++) {
5163 if (fake_open->cmp(pathname, fake_open->filename)) {
5164 break;
5165 }
5166 }
5167
5168 if (fake_open->filename) {
5169 const char *tmpdir;
5170 char filename[PATH_MAX];
5171 int fd, r;
5172
5173 /* create temporary file to map stat to */
5174 tmpdir = getenv("TMPDIR");
5175 if (!tmpdir)
5176 tmpdir = "/tmp";
5177 snprintf(filename, sizeof(filename), "%s/qemu-open.XXXXXX", tmpdir);
5178 fd = mkstemp(filename);
5179 if (fd < 0) {
5180 return fd;
5181 }
5182 unlink(filename);
5183
5184 if ((r = fake_open->fill(cpu_env, fd))) {
5185 close(fd);
5186 return r;
5187 }
5188 lseek(fd, 0, SEEK_SET);
5189
5190 return fd;
5191 }
5192
5193 return get_errno(open(path(pathname), flags, mode));
5194 }
5195
5196 /* do_syscall() should always have a single exit point at the end so
5197 that actions, such as logging of syscall results, can be performed.
5198 All errnos that do_syscall() returns must be -TARGET_<errcode>. */
5199 abi_long do_syscall(void *cpu_env, int num, abi_long arg1,
5200 abi_long arg2, abi_long arg3, abi_long arg4,
5201 abi_long arg5, abi_long arg6, abi_long arg7,
5202 abi_long arg8)
5203 {
5204 CPUState *cpu = ENV_GET_CPU(cpu_env);
5205 abi_long ret;
5206 struct stat st;
5207 struct statfs stfs;
5208 void *p;
5209
5210 #ifdef DEBUG
5211 gemu_log("syscall %d", num);
5212 #endif
5213 if(do_strace)
5214 print_syscall(num, arg1, arg2, arg3, arg4, arg5, arg6);
5215
5216 switch(num) {
5217 case TARGET_NR_exit:
5218 /* In old applications this may be used to implement _exit(2).
5219 However in threaded applictions it is used for thread termination,
5220 and _exit_group is used for application termination.
5221 Do thread termination if we have more then one thread. */
5222 /* FIXME: This probably breaks if a signal arrives. We should probably
5223 be disabling signals. */
5224 if (CPU_NEXT(first_cpu)) {
5225 TaskState *ts;
5226
5227 cpu_list_lock();
5228 /* Remove the CPU from the list. */
5229 QTAILQ_REMOVE(&cpus, cpu, node);
5230 cpu_list_unlock();
5231 ts = cpu->opaque;
5232 if (ts->child_tidptr) {
5233 put_user_u32(0, ts->child_tidptr);
5234 sys_futex(g2h(ts->child_tidptr), FUTEX_WAKE, INT_MAX,
5235 NULL, NULL, 0);
5236 }
5237 thread_cpu = NULL;
5238 object_unref(OBJECT(cpu));
5239 g_free(ts);
5240 pthread_exit(NULL);
5241 }
5242 #ifdef TARGET_GPROF
5243 _mcleanup();
5244 #endif
5245 gdb_exit(cpu_env, arg1);
5246 _exit(arg1);
5247 ret = 0; /* avoid warning */
5248 break;
5249 case TARGET_NR_read:
5250 if (arg3 == 0)
5251 ret = 0;
5252 else {
5253 if (!(p = lock_user(VERIFY_WRITE, arg2, arg3, 0)))
5254 goto efault;
5255 ret = get_errno(read(arg1, p, arg3));
5256 unlock_user(p, arg2, ret);
5257 }
5258 break;
5259 case TARGET_NR_write:
5260 if (!(p = lock_user(VERIFY_READ, arg2, arg3, 1)))
5261 goto efault;
5262 ret = get_errno(write(arg1, p, arg3));
5263 unlock_user(p, arg2, 0);
5264 break;
5265 case TARGET_NR_open:
5266 if (!(p = lock_user_string(arg1)))
5267 goto efault;
5268 ret = get_errno(do_open(cpu_env, p,
5269 target_to_host_bitmask(arg2, fcntl_flags_tbl),
5270 arg3));
5271 unlock_user(p, arg1, 0);
5272 break;
5273 #if defined(TARGET_NR_openat) && defined(__NR_openat)
5274 case TARGET_NR_openat:
5275 if (!(p = lock_user_string(arg2)))
5276 goto efault;
5277 ret = get_errno(sys_openat(arg1,
5278 path(p),
5279 target_to_host_bitmask(arg3, fcntl_flags_tbl),
5280 arg4));
5281 unlock_user(p, arg2, 0);
5282 break;
5283 #endif
5284 case TARGET_NR_close:
5285 ret = get_errno(close(arg1));
5286 break;
5287 case TARGET_NR_brk:
5288 ret = do_brk(arg1);
5289 break;
5290 case TARGET_NR_fork:
5291 ret = get_errno(do_fork(cpu_env, SIGCHLD, 0, 0, 0, 0));
5292 break;
5293 #ifdef TARGET_NR_waitpid
5294 case TARGET_NR_waitpid:
5295 {
5296 int status;
5297 ret = get_errno(waitpid(arg1, &status, arg3));
5298 if (!is_error(ret) && arg2 && ret
5299 && put_user_s32(host_to_target_waitstatus(status), arg2))
5300 goto efault;
5301 }
5302 break;
5303 #endif
5304 #ifdef TARGET_NR_waitid
5305 case TARGET_NR_waitid:
5306 {
5307 siginfo_t info;
5308 info.si_pid = 0;
5309 ret = get_errno(waitid(arg1, arg2, &info, arg4));
5310 if (!is_error(ret) && arg3 && info.si_pid != 0) {
5311 if (!(p = lock_user(VERIFY_WRITE, arg3, sizeof(target_siginfo_t), 0)))
5312 goto efault;
5313 host_to_target_siginfo(p, &info);
5314 unlock_user(p, arg3, sizeof(target_siginfo_t));
5315 }
5316 }
5317 break;
5318 #endif
5319 #ifdef TARGET_NR_creat /* not on alpha */
5320 case TARGET_NR_creat:
5321 if (!(p = lock_user_string(arg1)))
5322 goto efault;
5323 ret = get_errno(creat(p, arg2));
5324 unlock_user(p, arg1, 0);
5325 break;
5326 #endif
5327 case TARGET_NR_link:
5328 {
5329 void * p2;
5330 p = lock_user_string(arg1);
5331 p2 = lock_user_string(arg2);
5332 if (!p || !p2)
5333 ret = -TARGET_EFAULT;
5334 else
5335 ret = get_errno(link(p, p2));
5336 unlock_user(p2, arg2, 0);
5337 unlock_user(p, arg1, 0);
5338 }
5339 break;
5340 #if defined(TARGET_NR_linkat)
5341 case TARGET_NR_linkat:
5342 {
5343 void * p2 = NULL;
5344 if (!arg2 || !arg4)
5345 goto efault;
5346 p = lock_user_string(arg2);
5347 p2 = lock_user_string(arg4);
5348 if (!p || !p2)
5349 ret = -TARGET_EFAULT;
5350 else
5351 ret = get_errno(linkat(arg1, p, arg3, p2, arg5));
5352 unlock_user(p, arg2, 0);
5353 unlock_user(p2, arg4, 0);
5354 }
5355 break;
5356 #endif
5357 case TARGET_NR_unlink:
5358 if (!(p = lock_user_string(arg1)))
5359 goto efault;
5360 ret = get_errno(unlink(p));
5361 unlock_user(p, arg1, 0);
5362 break;
5363 #if defined(TARGET_NR_unlinkat)
5364 case TARGET_NR_unlinkat:
5365 if (!(p = lock_user_string(arg2)))
5366 goto efault;
5367 ret = get_errno(unlinkat(arg1, p, arg3));
5368 unlock_user(p, arg2, 0);
5369 break;
5370 #endif
5371 case TARGET_NR_execve:
5372 {
5373 char **argp, **envp;
5374 int argc, envc;
5375 abi_ulong gp;
5376 abi_ulong guest_argp;
5377 abi_ulong guest_envp;
5378 abi_ulong addr;
5379 char **q;
5380 int total_size = 0;
5381
5382 argc = 0;
5383 guest_argp = arg2;
5384 for (gp = guest_argp; gp; gp += sizeof(abi_ulong)) {
5385 if (get_user_ual(addr, gp))
5386 goto efault;
5387 if (!addr)
5388 break;
5389 argc++;
5390 }
5391 envc = 0;
5392 guest_envp = arg3;
5393 for (gp = guest_envp; gp; gp += sizeof(abi_ulong)) {
5394 if (get_user_ual(addr, gp))
5395 goto efault;
5396 if (!addr)
5397 break;
5398 envc++;
5399 }
5400
5401 argp = alloca((argc + 1) * sizeof(void *));
5402 envp = alloca((envc + 1) * sizeof(void *));
5403
5404 for (gp = guest_argp, q = argp; gp;
5405 gp += sizeof(abi_ulong), q++) {
5406 if (get_user_ual(addr, gp))
5407 goto execve_efault;
5408 if (!addr)
5409 break;
5410 if (!(*q = lock_user_string(addr)))
5411 goto execve_efault;
5412 total_size += strlen(*q) + 1;
5413 }
5414 *q = NULL;
5415
5416 for (gp = guest_envp, q = envp; gp;
5417 gp += sizeof(abi_ulong), q++) {
5418 if (get_user_ual(addr, gp))
5419 goto execve_efault;
5420 if (!addr)
5421 break;
5422 if (!(*q = lock_user_string(addr)))
5423 goto execve_efault;
5424 total_size += strlen(*q) + 1;
5425 }
5426 *q = NULL;
5427
5428 /* This case will not be caught by the host's execve() if its
5429 page size is bigger than the target's. */
5430 if (total_size > MAX_ARG_PAGES * TARGET_PAGE_SIZE) {
5431 ret = -TARGET_E2BIG;
5432 goto execve_end;
5433 }
5434 if (!(p = lock_user_string(arg1)))
5435 goto execve_efault;
5436 ret = get_errno(execve(p, argp, envp));
5437 unlock_user(p, arg1, 0);
5438
5439 goto execve_end;
5440
5441 execve_efault:
5442 ret = -TARGET_EFAULT;
5443
5444 execve_end:
5445 for (gp = guest_argp, q = argp; *q;
5446 gp += sizeof(abi_ulong), q++) {
5447 if (get_user_ual(addr, gp)
5448 || !addr)
5449 break;
5450 unlock_user(*q, addr, 0);
5451 }
5452 for (gp = guest_envp, q = envp; *q;
5453 gp += sizeof(abi_ulong), q++) {
5454 if (get_user_ual(addr, gp)
5455 || !addr)
5456 break;
5457 unlock_user(*q, addr, 0);
5458 }
5459 }
5460 break;
5461 case TARGET_NR_chdir:
5462 if (!(p = lock_user_string(arg1)))
5463 goto efault;
5464 ret = get_errno(chdir(p));
5465 unlock_user(p, arg1, 0);
5466 break;
5467 #ifdef TARGET_NR_time
5468 case TARGET_NR_time:
5469 {
5470 time_t host_time;
5471 ret = get_errno(time(&host_time));
5472 if (!is_error(ret)
5473 && arg1
5474 && put_user_sal(host_time, arg1))
5475 goto efault;
5476 }
5477 break;
5478 #endif
5479 case TARGET_NR_mknod:
5480 if (!(p = lock_user_string(arg1)))
5481 goto efault;
5482 ret = get_errno(mknod(p, arg2, arg3));
5483 unlock_user(p, arg1, 0);
5484 break;
5485 #if defined(TARGET_NR_mknodat)
5486 case TARGET_NR_mknodat:
5487 if (!(p = lock_user_string(arg2)))
5488 goto efault;
5489 ret = get_errno(mknodat(arg1, p, arg3, arg4));
5490 unlock_user(p, arg2, 0);
5491 break;
5492 #endif
5493 case TARGET_NR_chmod:
5494 if (!(p = lock_user_string(arg1)))
5495 goto efault;
5496 ret = get_errno(chmod(p, arg2));
5497 unlock_user(p, arg1, 0);
5498 break;
5499 #ifdef TARGET_NR_break
5500 case TARGET_NR_break:
5501 goto unimplemented;
5502 #endif
5503 #ifdef TARGET_NR_oldstat
5504 case TARGET_NR_oldstat:
5505 goto unimplemented;
5506 #endif
5507 case TARGET_NR_lseek:
5508 ret = get_errno(lseek(arg1, arg2, arg3));
5509 break;
5510 #if defined(TARGET_NR_getxpid) && defined(TARGET_ALPHA)
5511 /* Alpha specific */
5512 case TARGET_NR_getxpid:
5513 ((CPUAlphaState *)cpu_env)->ir[IR_A4] = getppid();
5514 ret = get_errno(getpid());
5515 break;
5516 #endif
5517 #ifdef TARGET_NR_getpid
5518 case TARGET_NR_getpid:
5519 ret = get_errno(getpid());
5520 break;
5521 #endif
5522 case TARGET_NR_mount:
5523 {
5524 /* need to look at the data field */
5525 void *p2, *p3;
5526 p = lock_user_string(arg1);
5527 p2 = lock_user_string(arg2);
5528 p3 = lock_user_string(arg3);
5529 if (!p || !p2 || !p3)
5530 ret = -TARGET_EFAULT;
5531 else {
5532 /* FIXME - arg5 should be locked, but it isn't clear how to
5533 * do that since it's not guaranteed to be a NULL-terminated
5534 * string.
5535 */
5536 if ( ! arg5 )
5537 ret = get_errno(mount(p, p2, p3, (unsigned long)arg4, NULL));
5538 else
5539 ret = get_errno(mount(p, p2, p3, (unsigned long)arg4, g2h(arg5)));
5540 }
5541 unlock_user(p, arg1, 0);
5542 unlock_user(p2, arg2, 0);
5543 unlock_user(p3, arg3, 0);
5544 break;
5545 }
5546 #ifdef TARGET_NR_umount
5547 case TARGET_NR_umount:
5548 if (!(p = lock_user_string(arg1)))
5549 goto efault;
5550 ret = get_errno(umount(p));
5551 unlock_user(p, arg1, 0);
5552 break;
5553 #endif
5554 #ifdef TARGET_NR_stime /* not on alpha */
5555 case TARGET_NR_stime:
5556 {
5557 time_t host_time;
5558 if (get_user_sal(host_time, arg1))
5559 goto efault;
5560 ret = get_errno(stime(&host_time));
5561 }
5562 break;
5563 #endif
5564 case TARGET_NR_ptrace:
5565 goto unimplemented;
5566 #ifdef TARGET_NR_alarm /* not on alpha */
5567 case TARGET_NR_alarm:
5568 ret = alarm(arg1);
5569 break;
5570 #endif
5571 #ifdef TARGET_NR_oldfstat
5572 case TARGET_NR_oldfstat:
5573 goto unimplemented;
5574 #endif
5575 #ifdef TARGET_NR_pause /* not on alpha */
5576 case TARGET_NR_pause:
5577 ret = get_errno(pause());
5578 break;
5579 #endif
5580 #ifdef TARGET_NR_utime
5581 case TARGET_NR_utime:
5582 {
5583 struct utimbuf tbuf, *host_tbuf;
5584 struct target_utimbuf *target_tbuf;
5585 if (arg2) {
5586 if (!lock_user_struct(VERIFY_READ, target_tbuf, arg2, 1))
5587 goto efault;
5588 tbuf.actime = tswapal(target_tbuf->actime);
5589 tbuf.modtime = tswapal(target_tbuf->modtime);
5590 unlock_user_struct(target_tbuf, arg2, 0);
5591 host_tbuf = &tbuf;
5592 } else {
5593 host_tbuf = NULL;
5594 }
5595 if (!(p = lock_user_string(arg1)))
5596 goto efault;
5597 ret = get_errno(utime(p, host_tbuf));
5598 unlock_user(p, arg1, 0);
5599 }
5600 break;
5601 #endif
5602 case TARGET_NR_utimes:
5603 {
5604 struct timeval *tvp, tv[2];
5605 if (arg2) {
5606 if (copy_from_user_timeval(&tv[0], arg2)
5607 || copy_from_user_timeval(&tv[1],
5608 arg2 + sizeof(struct target_timeval)))
5609 goto efault;
5610 tvp = tv;
5611 } else {
5612 tvp = NULL;
5613 }
5614 if (!(p = lock_user_string(arg1)))
5615 goto efault;
5616 ret = get_errno(utimes(p, tvp));
5617 unlock_user(p, arg1, 0);
5618 }
5619 break;
5620 #if defined(TARGET_NR_futimesat)
5621 case TARGET_NR_futimesat:
5622 {
5623 struct timeval *tvp, tv[2];
5624 if (arg3) {
5625 if (copy_from_user_timeval(&tv[0], arg3)
5626 || copy_from_user_timeval(&tv[1],
5627 arg3 + sizeof(struct target_timeval)))
5628 goto efault;
5629 tvp = tv;
5630 } else {
5631 tvp = NULL;
5632 }
5633 if (!(p = lock_user_string(arg2)))
5634 goto efault;
5635 ret = get_errno(futimesat(arg1, path(p), tvp));
5636 unlock_user(p, arg2, 0);
5637 }
5638 break;
5639 #endif
5640 #ifdef TARGET_NR_stty
5641 case TARGET_NR_stty:
5642 goto unimplemented;
5643 #endif
5644 #ifdef TARGET_NR_gtty
5645 case TARGET_NR_gtty:
5646 goto unimplemented;
5647 #endif
5648 case TARGET_NR_access:
5649 if (!(p = lock_user_string(arg1)))
5650 goto efault;
5651 ret = get_errno(access(path(p), arg2));
5652 unlock_user(p, arg1, 0);
5653 break;
5654 #if defined(TARGET_NR_faccessat) && defined(__NR_faccessat)
5655 case TARGET_NR_faccessat:
5656 if (!(p = lock_user_string(arg2)))
5657 goto efault;
5658 ret = get_errno(faccessat(arg1, p, arg3, 0));
5659 unlock_user(p, arg2, 0);
5660 break;
5661 #endif
5662 #ifdef TARGET_NR_nice /* not on alpha */
5663 case TARGET_NR_nice:
5664 ret = get_errno(nice(arg1));
5665 break;
5666 #endif
5667 #ifdef TARGET_NR_ftime
5668 case TARGET_NR_ftime:
5669 goto unimplemented;
5670 #endif
5671 case TARGET_NR_sync:
5672 sync();
5673 ret = 0;
5674 break;
5675 case TARGET_NR_kill:
5676 ret = get_errno(kill(arg1, target_to_host_signal(arg2)));
5677 break;
5678 case TARGET_NR_rename:
5679 {
5680 void *p2;
5681 p = lock_user_string(arg1);
5682 p2 = lock_user_string(arg2);
5683 if (!p || !p2)
5684 ret = -TARGET_EFAULT;
5685 else
5686 ret = get_errno(rename(p, p2));
5687 unlock_user(p2, arg2, 0);
5688 unlock_user(p, arg1, 0);
5689 }
5690 break;
5691 #if defined(TARGET_NR_renameat)
5692 case TARGET_NR_renameat:
5693 {
5694 void *p2;
5695 p = lock_user_string(arg2);
5696 p2 = lock_user_string(arg4);
5697 if (!p || !p2)
5698 ret = -TARGET_EFAULT;
5699 else
5700 ret = get_errno(renameat(arg1, p, arg3, p2));
5701 unlock_user(p2, arg4, 0);
5702 unlock_user(p, arg2, 0);
5703 }
5704 break;
5705 #endif
5706 case TARGET_NR_mkdir:
5707 if (!(p = lock_user_string(arg1)))
5708 goto efault;
5709 ret = get_errno(mkdir(p, arg2));
5710 unlock_user(p, arg1, 0);
5711 break;
5712 #if defined(TARGET_NR_mkdirat)
5713 case TARGET_NR_mkdirat:
5714 if (!(p = lock_user_string(arg2)))
5715 goto efault;
5716 ret = get_errno(mkdirat(arg1, p, arg3));
5717 unlock_user(p, arg2, 0);
5718 break;
5719 #endif
5720 case TARGET_NR_rmdir:
5721 if (!(p = lock_user_string(arg1)))
5722 goto efault;
5723 ret = get_errno(rmdir(p));
5724 unlock_user(p, arg1, 0);
5725 break;
5726 case TARGET_NR_dup:
5727 ret = get_errno(dup(arg1));
5728 break;
5729 case TARGET_NR_pipe:
5730 ret = do_pipe(cpu_env, arg1, 0, 0);
5731 break;
5732 #ifdef TARGET_NR_pipe2
5733 case TARGET_NR_pipe2:
5734 ret = do_pipe(cpu_env, arg1,
5735 target_to_host_bitmask(arg2, fcntl_flags_tbl), 1);
5736 break;
5737 #endif
5738 case TARGET_NR_times:
5739 {
5740 struct target_tms *tmsp;
5741 struct tms tms;
5742 ret = get_errno(times(&tms));
5743 if (arg1) {
5744 tmsp = lock_user(VERIFY_WRITE, arg1, sizeof(struct target_tms), 0);
5745 if (!tmsp)
5746 goto efault;
5747 tmsp->tms_utime = tswapal(host_to_target_clock_t(tms.tms_utime));
5748 tmsp->tms_stime = tswapal(host_to_target_clock_t(tms.tms_stime));
5749 tmsp->tms_cutime = tswapal(host_to_target_clock_t(tms.tms_cutime));
5750 tmsp->tms_cstime = tswapal(host_to_target_clock_t(tms.tms_cstime));
5751 }
5752 if (!is_error(ret))
5753 ret = host_to_target_clock_t(ret);
5754 }
5755 break;
5756 #ifdef TARGET_NR_prof
5757 case TARGET_NR_prof:
5758 goto unimplemented;
5759 #endif
5760 #ifdef TARGET_NR_signal
5761 case TARGET_NR_signal:
5762 goto unimplemented;
5763 #endif
5764 case TARGET_NR_acct:
5765 if (arg1 == 0) {
5766 ret = get_errno(acct(NULL));
5767 } else {
5768 if (!(p = lock_user_string(arg1)))
5769 goto efault;
5770 ret = get_errno(acct(path(p)));
5771 unlock_user(p, arg1, 0);
5772 }
5773 break;
5774 #ifdef TARGET_NR_umount2
5775 case TARGET_NR_umount2:
5776 if (!(p = lock_user_string(arg1)))
5777 goto efault;
5778 ret = get_errno(umount2(p, arg2));
5779 unlock_user(p, arg1, 0);
5780 break;
5781 #endif
5782 #ifdef TARGET_NR_lock
5783 case TARGET_NR_lock:
5784 goto unimplemented;
5785 #endif
5786 case TARGET_NR_ioctl:
5787 ret = do_ioctl(arg1, arg2, arg3);
5788 break;
5789 case TARGET_NR_fcntl:
5790 ret = do_fcntl(arg1, arg2, arg3);
5791 break;
5792 #ifdef TARGET_NR_mpx
5793 case TARGET_NR_mpx:
5794 goto unimplemented;
5795 #endif
5796 case TARGET_NR_setpgid:
5797 ret = get_errno(setpgid(arg1, arg2));
5798 break;
5799 #ifdef TARGET_NR_ulimit
5800 case TARGET_NR_ulimit:
5801 goto unimplemented;
5802 #endif
5803 #ifdef TARGET_NR_oldolduname
5804 case TARGET_NR_oldolduname:
5805 goto unimplemented;
5806 #endif
5807 case TARGET_NR_umask:
5808 ret = get_errno(umask(arg1));
5809 break;
5810 case TARGET_NR_chroot:
5811 if (!(p = lock_user_string(arg1)))
5812 goto efault;
5813 ret = get_errno(chroot(p));
5814 unlock_user(p, arg1, 0);
5815 break;
5816 case TARGET_NR_ustat:
5817 goto unimplemented;
5818 case TARGET_NR_dup2:
5819 ret = get_errno(dup2(arg1, arg2));
5820 break;
5821 #if defined(CONFIG_DUP3) && defined(TARGET_NR_dup3)
5822 case TARGET_NR_dup3:
5823 ret = get_errno(dup3(arg1, arg2, arg3));
5824 break;
5825 #endif
5826 #ifdef TARGET_NR_getppid /* not on alpha */
5827 case TARGET_NR_getppid:
5828 ret = get_errno(getppid());
5829 break;
5830 #endif
5831 case TARGET_NR_getpgrp:
5832 ret = get_errno(getpgrp());
5833 break;
5834 case TARGET_NR_setsid:
5835 ret = get_errno(setsid());
5836 break;
5837 #ifdef TARGET_NR_sigaction
5838 case TARGET_NR_sigaction:
5839 {
5840 #if defined(TARGET_ALPHA)
5841 struct target_sigaction act, oact, *pact = 0;
5842 struct target_old_sigaction *old_act;
5843 if (arg2) {
5844 if (!lock_user_struct(VERIFY_READ, old_act, arg2, 1))
5845 goto efault;
5846 act._sa_handler = old_act->_sa_handler;
5847 target_siginitset(&act.sa_mask, old_act->sa_mask);
5848 act.sa_flags = old_act->sa_flags;
5849 act.sa_restorer = 0;
5850 unlock_user_struct(old_act, arg2, 0);
5851 pact = &act;
5852 }
5853 ret = get_errno(do_sigaction(arg1, pact, &oact));
5854 if (!is_error(ret) && arg3) {
5855 if (!lock_user_struct(VERIFY_WRITE, old_act, arg3, 0))
5856 goto efault;
5857 old_act->_sa_handler = oact._sa_handler;
5858 old_act->sa_mask = oact.sa_mask.sig[0];
5859 old_act->sa_flags = oact.sa_flags;
5860 unlock_user_struct(old_act, arg3, 1);
5861 }
5862 #elif defined(TARGET_MIPS)
5863 struct target_sigaction act, oact, *pact, *old_act;
5864
5865 if (arg2) {
5866 if (!lock_user_struct(VERIFY_READ, old_act, arg2, 1))
5867 goto efault;
5868 act._sa_handler = old_act->_sa_handler;
5869 target_siginitset(&act.sa_mask, old_act->sa_mask.sig[0]);
5870 act.sa_flags = old_act->sa_flags;
5871 unlock_user_struct(old_act, arg2, 0);
5872 pact = &act;
5873 } else {
5874 pact = NULL;
5875 }
5876
5877 ret = get_errno(do_sigaction(arg1, pact, &oact));
5878
5879 if (!is_error(ret) && arg3) {
5880 if (!lock_user_struct(VERIFY_WRITE, old_act, arg3, 0))
5881 goto efault;
5882 old_act->_sa_handler = oact._sa_handler;
5883 old_act->sa_flags = oact.sa_flags;
5884 old_act->sa_mask.sig[0] = oact.sa_mask.sig[0];
5885 old_act->sa_mask.sig[1] = 0;
5886 old_act->sa_mask.sig[2] = 0;
5887 old_act->sa_mask.sig[3] = 0;
5888 unlock_user_struct(old_act, arg3, 1);
5889 }
5890 #else
5891 struct target_old_sigaction *old_act;
5892 struct target_sigaction act, oact, *pact;
5893 if (arg2) {
5894 if (!lock_user_struct(VERIFY_READ, old_act, arg2, 1))
5895 goto efault;
5896 act._sa_handler = old_act->_sa_handler;
5897 target_siginitset(&act.sa_mask, old_act->sa_mask);
5898 act.sa_flags = old_act->sa_flags;
5899 act.sa_restorer = old_act->sa_restorer;
5900 unlock_user_struct(old_act, arg2, 0);
5901 pact = &act;
5902 } else {
5903 pact = NULL;
5904 }
5905 ret = get_errno(do_sigaction(arg1, pact, &oact));
5906 if (!is_error(ret) && arg3) {
5907 if (!lock_user_struct(VERIFY_WRITE, old_act, arg3, 0))
5908 goto efault;
5909 old_act->_sa_handler = oact._sa_handler;
5910 old_act->sa_mask = oact.sa_mask.sig[0];
5911 old_act->sa_flags = oact.sa_flags;
5912 old_act->sa_restorer = oact.sa_restorer;
5913 unlock_user_struct(old_act, arg3, 1);
5914 }
5915 #endif
5916 }
5917 break;
5918 #endif
5919 case TARGET_NR_rt_sigaction:
5920 {
5921 #if defined(TARGET_ALPHA)
5922 struct target_sigaction act, oact, *pact = 0;
5923 struct target_rt_sigaction *rt_act;
5924 /* ??? arg4 == sizeof(sigset_t). */
5925 if (arg2) {
5926 if (!lock_user_struct(VERIFY_READ, rt_act, arg2, 1))
5927 goto efault;
5928 act._sa_handler = rt_act->_sa_handler;
5929 act.sa_mask = rt_act->sa_mask;
5930 act.sa_flags = rt_act->sa_flags;
5931 act.sa_restorer = arg5;
5932 unlock_user_struct(rt_act, arg2, 0);
5933 pact = &act;
5934 }
5935 ret = get_errno(do_sigaction(arg1, pact, &oact));
5936 if (!is_error(ret) && arg3) {
5937 if (!lock_user_struct(VERIFY_WRITE, rt_act, arg3, 0))
5938 goto efault;
5939 rt_act->_sa_handler = oact._sa_handler;
5940 rt_act->sa_mask = oact.sa_mask;
5941 rt_act->sa_flags = oact.sa_flags;
5942 unlock_user_struct(rt_act, arg3, 1);
5943 }
5944 #else
5945 struct target_sigaction *act;
5946 struct target_sigaction *oact;
5947
5948 if (arg2) {
5949 if (!lock_user_struct(VERIFY_READ, act, arg2, 1))
5950 goto efault;
5951 } else
5952 act = NULL;
5953 if (arg3) {
5954 if (!lock_user_struct(VERIFY_WRITE, oact, arg3, 0)) {
5955 ret = -TARGET_EFAULT;
5956 goto rt_sigaction_fail;
5957 }
5958 } else
5959 oact = NULL;
5960 ret = get_errno(do_sigaction(arg1, act, oact));
5961 rt_sigaction_fail:
5962 if (act)
5963 unlock_user_struct(act, arg2, 0);
5964 if (oact)
5965 unlock_user_struct(oact, arg3, 1);
5966 #endif
5967 }
5968 break;
5969 #ifdef TARGET_NR_sgetmask /* not on alpha */
5970 case TARGET_NR_sgetmask:
5971 {
5972 sigset_t cur_set;
5973 abi_ulong target_set;
5974 do_sigprocmask(0, NULL, &cur_set);
5975 host_to_target_old_sigset(&target_set, &cur_set);
5976 ret = target_set;
5977 }
5978 break;
5979 #endif
5980 #ifdef TARGET_NR_ssetmask /* not on alpha */
5981 case TARGET_NR_ssetmask:
5982 {
5983 sigset_t set, oset, cur_set;
5984 abi_ulong target_set = arg1;
5985 do_sigprocmask(0, NULL, &cur_set);
5986 target_to_host_old_sigset(&set, &target_set);
5987 sigorset(&set, &set, &cur_set);
5988 do_sigprocmask(SIG_SETMASK, &set, &oset);
5989 host_to_target_old_sigset(&target_set, &oset);
5990 ret = target_set;
5991 }
5992 break;
5993 #endif
5994 #ifdef TARGET_NR_sigprocmask
5995 case TARGET_NR_sigprocmask:
5996 {
5997 #if defined(TARGET_ALPHA)
5998 sigset_t set, oldset;
5999 abi_ulong mask;
6000 int how;
6001
6002 switch (arg1) {
6003 case TARGET_SIG_BLOCK:
6004 how = SIG_BLOCK;
6005 break;
6006 case TARGET_SIG_UNBLOCK:
6007 how = SIG_UNBLOCK;
6008 break;
6009 case TARGET_SIG_SETMASK:
6010 how = SIG_SETMASK;
6011 break;
6012 default:
6013 ret = -TARGET_EINVAL;
6014 goto fail;
6015 }
6016 mask = arg2;
6017 target_to_host_old_sigset(&set, &mask);
6018
6019 ret = get_errno(do_sigprocmask(how, &set, &oldset));
6020 if (!is_error(ret)) {
6021 host_to_target_old_sigset(&mask, &oldset);
6022 ret = mask;
6023 ((CPUAlphaState *)cpu_env)->ir[IR_V0] = 0; /* force no error */
6024 }
6025 #else
6026 sigset_t set, oldset, *set_ptr;
6027 int how;
6028
6029 if (arg2) {
6030 switch (arg1) {
6031 case TARGET_SIG_BLOCK:
6032 how = SIG_BLOCK;
6033 break;
6034 case TARGET_SIG_UNBLOCK:
6035 how = SIG_UNBLOCK;
6036 break;
6037 case TARGET_SIG_SETMASK:
6038 how = SIG_SETMASK;
6039 break;
6040 default:
6041 ret = -TARGET_EINVAL;
6042 goto fail;
6043 }
6044 if (!(p = lock_user(VERIFY_READ, arg2, sizeof(target_sigset_t), 1)))
6045 goto efault;
6046 target_to_host_old_sigset(&set, p);
6047 unlock_user(p, arg2, 0);
6048 set_ptr = &set;
6049 } else {
6050 how = 0;
6051 set_ptr = NULL;
6052 }
6053 ret = get_errno(do_sigprocmask(how, set_ptr, &oldset));
6054 if (!is_error(ret) && arg3) {
6055 if (!(p = lock_user(VERIFY_WRITE, arg3, sizeof(target_sigset_t), 0)))
6056 goto efault;
6057 host_to_target_old_sigset(p, &oldset);
6058 unlock_user(p, arg3, sizeof(target_sigset_t));
6059 }
6060 #endif
6061 }
6062 break;
6063 #endif
6064 case TARGET_NR_rt_sigprocmask:
6065 {
6066 int how = arg1;
6067 sigset_t set, oldset, *set_ptr;
6068
6069 if (arg2) {
6070 switch(how) {
6071 case TARGET_SIG_BLOCK:
6072 how = SIG_BLOCK;
6073 break;
6074 case TARGET_SIG_UNBLOCK:
6075 how = SIG_UNBLOCK;
6076 break;
6077 case TARGET_SIG_SETMASK:
6078 how = SIG_SETMASK;
6079 break;
6080 default:
6081 ret = -TARGET_EINVAL;
6082 goto fail;
6083 }
6084 if (!(p = lock_user(VERIFY_READ, arg2, sizeof(target_sigset_t), 1)))
6085 goto efault;
6086 target_to_host_sigset(&set, p);
6087 unlock_user(p, arg2, 0);
6088 set_ptr = &set;
6089 } else {
6090 how = 0;
6091 set_ptr = NULL;
6092 }
6093 ret = get_errno(do_sigprocmask(how, set_ptr, &oldset));
6094 if (!is_error(ret) && arg3) {
6095 if (!(p = lock_user(VERIFY_WRITE, arg3, sizeof(target_sigset_t), 0)))
6096 goto efault;
6097 host_to_target_sigset(p, &oldset);
6098 unlock_user(p, arg3, sizeof(target_sigset_t));
6099 }
6100 }
6101 break;
6102 #ifdef TARGET_NR_sigpending
6103 case TARGET_NR_sigpending:
6104 {
6105 sigset_t set;
6106 ret = get_errno(sigpending(&set));
6107 if (!is_error(ret)) {
6108 if (!(p = lock_user(VERIFY_WRITE, arg1, sizeof(target_sigset_t), 0)))
6109 goto efault;
6110 host_to_target_old_sigset(p, &set);
6111 unlock_user(p, arg1, sizeof(target_sigset_t));
6112 }
6113 }
6114 break;
6115 #endif
6116 case TARGET_NR_rt_sigpending:
6117 {
6118 sigset_t set;
6119 ret = get_errno(sigpending(&set));
6120 if (!is_error(ret)) {
6121 if (!(p = lock_user(VERIFY_WRITE, arg1, sizeof(target_sigset_t), 0)))
6122 goto efault;
6123 host_to_target_sigset(p, &set);
6124 unlock_user(p, arg1, sizeof(target_sigset_t));
6125 }
6126 }
6127 break;
6128 #ifdef TARGET_NR_sigsuspend
6129 case TARGET_NR_sigsuspend:
6130 {
6131 sigset_t set;
6132 #if defined(TARGET_ALPHA)
6133 abi_ulong mask = arg1;
6134 target_to_host_old_sigset(&set, &mask);
6135 #else
6136 if (!(p = lock_user(VERIFY_READ, arg1, sizeof(target_sigset_t), 1)))
6137 goto efault;
6138 target_to_host_old_sigset(&set, p);
6139 unlock_user(p, arg1, 0);
6140 #endif
6141 ret = get_errno(sigsuspend(&set));
6142 }
6143 break;
6144 #endif
6145 case TARGET_NR_rt_sigsuspend:
6146 {
6147 sigset_t set;
6148 if (!(p = lock_user(VERIFY_READ, arg1, sizeof(target_sigset_t), 1)))
6149 goto efault;
6150 target_to_host_sigset(&set, p);
6151 unlock_user(p, arg1, 0);
6152 ret = get_errno(sigsuspend(&set));
6153 }
6154 break;
6155 case TARGET_NR_rt_sigtimedwait:
6156 {
6157 sigset_t set;
6158 struct timespec uts, *puts;
6159 siginfo_t uinfo;
6160
6161 if (!(p = lock_user(VERIFY_READ, arg1, sizeof(target_sigset_t), 1)))
6162 goto efault;
6163 target_to_host_sigset(&set, p);
6164 unlock_user(p, arg1, 0);
6165 if (arg3) {
6166 puts = &uts;
6167 target_to_host_timespec(puts, arg3);
6168 } else {
6169 puts = NULL;
6170 }
6171 ret = get_errno(sigtimedwait(&set, &uinfo, puts));
6172 if (!is_error(ret)) {
6173 if (arg2) {
6174 p = lock_user(VERIFY_WRITE, arg2, sizeof(target_siginfo_t),
6175 0);
6176 if (!p) {
6177 goto efault;
6178 }
6179 host_to_target_siginfo(p, &uinfo);
6180 unlock_user(p, arg2, sizeof(target_siginfo_t));
6181 }
6182 ret = host_to_target_signal(ret);
6183 }
6184 }
6185 break;
6186 case TARGET_NR_rt_sigqueueinfo:
6187 {
6188 siginfo_t uinfo;
6189 if (!(p = lock_user(VERIFY_READ, arg3, sizeof(target_sigset_t), 1)))
6190 goto efault;
6191 target_to_host_siginfo(&uinfo, p);
6192 unlock_user(p, arg1, 0);
6193 ret = get_errno(sys_rt_sigqueueinfo(arg1, arg2, &uinfo));
6194 }
6195 break;
6196 #ifdef TARGET_NR_sigreturn
6197 case TARGET_NR_sigreturn:
6198 /* NOTE: ret is eax, so not transcoding must be done */
6199 ret = do_sigreturn(cpu_env);
6200 break;
6201 #endif
6202 case TARGET_NR_rt_sigreturn:
6203 /* NOTE: ret is eax, so not transcoding must be done */
6204 ret = do_rt_sigreturn(cpu_env);
6205 break;
6206 case TARGET_NR_sethostname:
6207 if (!(p = lock_user_string(arg1)))
6208 goto efault;
6209 ret = get_errno(sethostname(p, arg2));
6210 unlock_user(p, arg1, 0);
6211 break;
6212 case TARGET_NR_setrlimit:
6213 {
6214 int resource = target_to_host_resource(arg1);
6215 struct target_rlimit *target_rlim;
6216 struct rlimit rlim;
6217 if (!lock_user_struct(VERIFY_READ, target_rlim, arg2, 1))
6218 goto efault;
6219 rlim.rlim_cur = target_to_host_rlim(target_rlim->rlim_cur);
6220 rlim.rlim_max = target_to_host_rlim(target_rlim->rlim_max);
6221 unlock_user_struct(target_rlim, arg2, 0);
6222 ret = get_errno(setrlimit(resource, &rlim));
6223 }
6224 break;
6225 case TARGET_NR_getrlimit:
6226 {
6227 int resource = target_to_host_resource(arg1);
6228 struct target_rlimit *target_rlim;
6229 struct rlimit rlim;
6230
6231 ret = get_errno(getrlimit(resource, &rlim));
6232 if (!is_error(ret)) {
6233 if (!lock_user_struct(VERIFY_WRITE, target_rlim, arg2, 0))
6234 goto efault;
6235 target_rlim->rlim_cur = host_to_target_rlim(rlim.rlim_cur);
6236 target_rlim->rlim_max = host_to_target_rlim(rlim.rlim_max);
6237 unlock_user_struct(target_rlim, arg2, 1);
6238 }
6239 }
6240 break;
6241 case TARGET_NR_getrusage:
6242 {
6243 struct rusage rusage;
6244 ret = get_errno(getrusage(arg1, &rusage));
6245 if (!is_error(ret)) {
6246 ret = host_to_target_rusage(arg2, &rusage);
6247 }
6248 }
6249 break;
6250 case TARGET_NR_gettimeofday:
6251 {
6252 struct timeval tv;
6253 ret = get_errno(gettimeofday(&tv, NULL));
6254 if (!is_error(ret)) {
6255 if (copy_to_user_timeval(arg1, &tv))
6256 goto efault;
6257 }
6258 }
6259 break;
6260 case TARGET_NR_settimeofday:
6261 {
6262 struct timeval tv;
6263 if (copy_from_user_timeval(&tv, arg1))
6264 goto efault;
6265 ret = get_errno(settimeofday(&tv, NULL));
6266 }
6267 break;
6268 #if defined(TARGET_NR_select)
6269 case TARGET_NR_select:
6270 #if defined(TARGET_S390X) || defined(TARGET_ALPHA)
6271 ret = do_select(arg1, arg2, arg3, arg4, arg5);
6272 #else
6273 {
6274 struct target_sel_arg_struct *sel;
6275 abi_ulong inp, outp, exp, tvp;
6276 long nsel;
6277
6278 if (!lock_user_struct(VERIFY_READ, sel, arg1, 1))
6279 goto efault;
6280 nsel = tswapal(sel->n);
6281 inp = tswapal(sel->inp);
6282 outp = tswapal(sel->outp);
6283 exp = tswapal(sel->exp);
6284 tvp = tswapal(sel->tvp);
6285 unlock_user_struct(sel, arg1, 0);
6286 ret = do_select(nsel, inp, outp, exp, tvp);
6287 }
6288 #endif
6289 break;
6290 #endif
6291 #ifdef TARGET_NR_pselect6
6292 case TARGET_NR_pselect6:
6293 {
6294 abi_long rfd_addr, wfd_addr, efd_addr, n, ts_addr;
6295 fd_set rfds, wfds, efds;
6296 fd_set *rfds_ptr, *wfds_ptr, *efds_ptr;
6297 struct timespec ts, *ts_ptr;
6298
6299 /*
6300 * The 6th arg is actually two args smashed together,
6301 * so we cannot use the C library.
6302 */
6303 sigset_t set;
6304 struct {
6305 sigset_t *set;
6306 size_t size;
6307 } sig, *sig_ptr;
6308
6309 abi_ulong arg_sigset, arg_sigsize, *arg7;
6310 target_sigset_t *target_sigset;
6311
6312 n = arg1;
6313 rfd_addr = arg2;
6314 wfd_addr = arg3;
6315 efd_addr = arg4;
6316 ts_addr = arg5;
6317
6318 ret = copy_from_user_fdset_ptr(&rfds, &rfds_ptr, rfd_addr, n);
6319 if (ret) {
6320 goto fail;
6321 }
6322 ret = copy_from_user_fdset_ptr(&wfds, &wfds_ptr, wfd_addr, n);
6323 if (ret) {
6324 goto fail;
6325 }
6326 ret = copy_from_user_fdset_ptr(&efds, &efds_ptr, efd_addr, n);
6327 if (ret) {
6328 goto fail;
6329 }
6330
6331 /*
6332 * This takes a timespec, and not a timeval, so we cannot
6333 * use the do_select() helper ...
6334 */
6335 if (ts_addr) {
6336 if (target_to_host_timespec(&ts, ts_addr)) {
6337 goto efault;
6338 }
6339 ts_ptr = &ts;
6340 } else {
6341 ts_ptr = NULL;
6342 }
6343
6344 /* Extract the two packed args for the sigset */
6345 if (arg6) {
6346 sig_ptr = &sig;
6347 sig.size = _NSIG / 8;
6348
6349 arg7 = lock_user(VERIFY_READ, arg6, sizeof(*arg7) * 2, 1);
6350 if (!arg7) {
6351 goto efault;
6352 }
6353 arg_sigset = tswapal(arg7[0]);
6354 arg_sigsize = tswapal(arg7[1]);
6355 unlock_user(arg7, arg6, 0);
6356
6357 if (arg_sigset) {
6358 sig.set = &set;
6359 if (arg_sigsize != sizeof(*target_sigset)) {
6360 /* Like the kernel, we enforce correct size sigsets */
6361 ret = -TARGET_EINVAL;
6362 goto fail;
6363 }
6364 target_sigset = lock_user(VERIFY_READ, arg_sigset,
6365 sizeof(*target_sigset), 1);
6366 if (!target_sigset) {
6367 goto efault;
6368 }
6369 target_to_host_sigset(&set, target_sigset);
6370 unlock_user(target_sigset, arg_sigset, 0);
6371 } else {
6372 sig.set = NULL;
6373 }
6374 } else {
6375 sig_ptr = NULL;
6376 }
6377
6378 ret = get_errno(sys_pselect6(n, rfds_ptr, wfds_ptr, efds_ptr,
6379 ts_ptr, sig_ptr));
6380
6381 if (!is_error(ret)) {
6382 if (rfd_addr && copy_to_user_fdset(rfd_addr, &rfds, n))
6383 goto efault;
6384 if (wfd_addr && copy_to_user_fdset(wfd_addr, &wfds, n))
6385 goto efault;
6386 if (efd_addr && copy_to_user_fdset(efd_addr, &efds, n))
6387 goto efault;
6388
6389 if (ts_addr && host_to_target_timespec(ts_addr, &ts))
6390 goto efault;
6391 }
6392 }
6393 break;
6394 #endif
6395 case TARGET_NR_symlink:
6396 {
6397 void *p2;
6398 p = lock_user_string(arg1);
6399 p2 = lock_user_string(arg2);
6400 if (!p || !p2)
6401 ret = -TARGET_EFAULT;
6402 else
6403 ret = get_errno(symlink(p, p2));
6404 unlock_user(p2, arg2, 0);
6405 unlock_user(p, arg1, 0);
6406 }
6407 break;
6408 #if defined(TARGET_NR_symlinkat)
6409 case TARGET_NR_symlinkat:
6410 {
6411 void *p2;
6412 p = lock_user_string(arg1);
6413 p2 = lock_user_string(arg3);
6414 if (!p || !p2)
6415 ret = -TARGET_EFAULT;
6416 else
6417 ret = get_errno(symlinkat(p, arg2, p2));
6418 unlock_user(p2, arg3, 0);
6419 unlock_user(p, arg1, 0);
6420 }
6421 break;
6422 #endif
6423 #ifdef TARGET_NR_oldlstat
6424 case TARGET_NR_oldlstat:
6425 goto unimplemented;
6426 #endif
6427 case TARGET_NR_readlink:
6428 {
6429 void *p2;
6430 p = lock_user_string(arg1);
6431 p2 = lock_user(VERIFY_WRITE, arg2, arg3, 0);
6432 if (!p || !p2) {
6433 ret = -TARGET_EFAULT;
6434 } else if (is_proc_myself((const char *)p, "exe")) {
6435 char real[PATH_MAX], *temp;
6436 temp = realpath(exec_path, real);
6437 ret = temp == NULL ? get_errno(-1) : strlen(real) ;
6438 snprintf((char *)p2, arg3, "%s", real);
6439 } else {
6440 ret = get_errno(readlink(path(p), p2, arg3));
6441 }
6442 unlock_user(p2, arg2, ret);
6443 unlock_user(p, arg1, 0);
6444 }
6445 break;
6446 #if defined(TARGET_NR_readlinkat)
6447 case TARGET_NR_readlinkat:
6448 {
6449 void *p2;
6450 p = lock_user_string(arg2);
6451 p2 = lock_user(VERIFY_WRITE, arg3, arg4, 0);
6452 if (!p || !p2) {
6453 ret = -TARGET_EFAULT;
6454 } else if (is_proc_myself((const char *)p, "exe")) {
6455 char real[PATH_MAX], *temp;
6456 temp = realpath(exec_path, real);
6457 ret = temp == NULL ? get_errno(-1) : strlen(real) ;
6458 snprintf((char *)p2, arg4, "%s", real);
6459 } else {
6460 ret = get_errno(readlinkat(arg1, path(p), p2, arg4));
6461 }
6462 unlock_user(p2, arg3, ret);
6463 unlock_user(p, arg2, 0);
6464 }
6465 break;
6466 #endif
6467 #ifdef TARGET_NR_uselib
6468 case TARGET_NR_uselib:
6469 goto unimplemented;
6470 #endif
6471 #ifdef TARGET_NR_swapon
6472 case TARGET_NR_swapon:
6473 if (!(p = lock_user_string(arg1)))
6474 goto efault;
6475 ret = get_errno(swapon(p, arg2));
6476 unlock_user(p, arg1, 0);
6477 break;
6478 #endif
6479 case TARGET_NR_reboot:
6480 if (arg3 == LINUX_REBOOT_CMD_RESTART2) {
6481 /* arg4 must be ignored in all other cases */
6482 p = lock_user_string(arg4);
6483 if (!p) {
6484 goto efault;
6485 }
6486 ret = get_errno(reboot(arg1, arg2, arg3, p));
6487 unlock_user(p, arg4, 0);
6488 } else {
6489 ret = get_errno(reboot(arg1, arg2, arg3, NULL));
6490 }
6491 break;
6492 #ifdef TARGET_NR_readdir
6493 case TARGET_NR_readdir:
6494 goto unimplemented;
6495 #endif
6496 #ifdef TARGET_NR_mmap
6497 case TARGET_NR_mmap:
6498 #if (defined(TARGET_I386) && defined(TARGET_ABI32)) || \
6499 (defined(TARGET_ARM) && defined(TARGET_ABI32)) || \
6500 defined(TARGET_M68K) || defined(TARGET_CRIS) || defined(TARGET_MICROBLAZE) \
6501 || defined(TARGET_S390X)
6502 {
6503 abi_ulong *v;
6504 abi_ulong v1, v2, v3, v4, v5, v6;
6505 if (!(v = lock_user(VERIFY_READ, arg1, 6 * sizeof(abi_ulong), 1)))
6506 goto efault;
6507 v1 = tswapal(v[0]);
6508 v2 = tswapal(v[1]);
6509 v3 = tswapal(v[2]);
6510 v4 = tswapal(v[3]);
6511 v5 = tswapal(v[4]);
6512 v6 = tswapal(v[5]);
6513 unlock_user(v, arg1, 0);
6514 ret = get_errno(target_mmap(v1, v2, v3,
6515 target_to_host_bitmask(v4, mmap_flags_tbl),
6516 v5, v6));
6517 }
6518 #else
6519 ret = get_errno(target_mmap(arg1, arg2, arg3,
6520 target_to_host_bitmask(arg4, mmap_flags_tbl),
6521 arg5,
6522 arg6));
6523 #endif
6524 break;
6525 #endif
6526 #ifdef TARGET_NR_mmap2
6527 case TARGET_NR_mmap2:
6528 #ifndef MMAP_SHIFT
6529 #define MMAP_SHIFT 12
6530 #endif
6531 ret = get_errno(target_mmap(arg1, arg2, arg3,
6532 target_to_host_bitmask(arg4, mmap_flags_tbl),
6533 arg5,
6534 arg6 << MMAP_SHIFT));
6535 break;
6536 #endif
6537 case TARGET_NR_munmap:
6538 ret = get_errno(target_munmap(arg1, arg2));
6539 break;
6540 case TARGET_NR_mprotect:
6541 {
6542 TaskState *ts = cpu->opaque;
6543 /* Special hack to detect libc making the stack executable. */
6544 if ((arg3 & PROT_GROWSDOWN)
6545 && arg1 >= ts->info->stack_limit
6546 && arg1 <= ts->info->start_stack) {
6547 arg3 &= ~PROT_GROWSDOWN;
6548 arg2 = arg2 + arg1 - ts->info->stack_limit;
6549 arg1 = ts->info->stack_limit;
6550 }
6551 }
6552 ret = get_errno(target_mprotect(arg1, arg2, arg3));
6553 break;
6554 #ifdef TARGET_NR_mremap
6555 case TARGET_NR_mremap:
6556 ret = get_errno(target_mremap(arg1, arg2, arg3, arg4, arg5));
6557 break;
6558 #endif
6559 /* ??? msync/mlock/munlock are broken for softmmu. */
6560 #ifdef TARGET_NR_msync
6561 case TARGET_NR_msync:
6562 ret = get_errno(msync(g2h(arg1), arg2, arg3));
6563 break;
6564 #endif
6565 #ifdef TARGET_NR_mlock
6566 case TARGET_NR_mlock:
6567 ret = get_errno(mlock(g2h(arg1), arg2));
6568 break;
6569 #endif
6570 #ifdef TARGET_NR_munlock
6571 case TARGET_NR_munlock:
6572 ret = get_errno(munlock(g2h(arg1), arg2));
6573 break;
6574 #endif
6575 #ifdef TARGET_NR_mlockall
6576 case TARGET_NR_mlockall:
6577 ret = get_errno(mlockall(arg1));
6578 break;
6579 #endif
6580 #ifdef TARGET_NR_munlockall
6581 case TARGET_NR_munlockall:
6582 ret = get_errno(munlockall());
6583 break;
6584 #endif
6585 case TARGET_NR_truncate:
6586 if (!(p = lock_user_string(arg1)))
6587 goto efault;
6588 ret = get_errno(truncate(p, arg2));
6589 unlock_user(p, arg1, 0);
6590 break;
6591 case TARGET_NR_ftruncate:
6592 ret = get_errno(ftruncate(arg1, arg2));
6593 break;
6594 case TARGET_NR_fchmod:
6595 ret = get_errno(fchmod(arg1, arg2));
6596 break;
6597 #if defined(TARGET_NR_fchmodat)
6598 case TARGET_NR_fchmodat:
6599 if (!(p = lock_user_string(arg2)))
6600 goto efault;
6601 ret = get_errno(fchmodat(arg1, p, arg3, 0));
6602 unlock_user(p, arg2, 0);
6603 break;
6604 #endif
6605 case TARGET_NR_getpriority:
6606 /* Note that negative values are valid for getpriority, so we must
6607 differentiate based on errno settings. */
6608 errno = 0;
6609 ret = getpriority(arg1, arg2);
6610 if (ret == -1 && errno != 0) {
6611 ret = -host_to_target_errno(errno);
6612 break;
6613 }
6614 #ifdef TARGET_ALPHA
6615 /* Return value is the unbiased priority. Signal no error. */
6616 ((CPUAlphaState *)cpu_env)->ir[IR_V0] = 0;
6617 #else
6618 /* Return value is a biased priority to avoid negative numbers. */
6619 ret = 20 - ret;
6620 #endif
6621 break;
6622 case TARGET_NR_setpriority:
6623 ret = get_errno(setpriority(arg1, arg2, arg3));
6624 break;
6625 #ifdef TARGET_NR_profil
6626 case TARGET_NR_profil:
6627 goto unimplemented;
6628 #endif
6629 case TARGET_NR_statfs:
6630 if (!(p = lock_user_string(arg1)))
6631 goto efault;
6632 ret = get_errno(statfs(path(p), &stfs));
6633 unlock_user(p, arg1, 0);
6634 convert_statfs:
6635 if (!is_error(ret)) {
6636 struct target_statfs *target_stfs;
6637
6638 if (!lock_user_struct(VERIFY_WRITE, target_stfs, arg2, 0))
6639 goto efault;
6640 __put_user(stfs.f_type, &target_stfs->f_type);
6641 __put_user(stfs.f_bsize, &target_stfs->f_bsize);
6642 __put_user(stfs.f_blocks, &target_stfs->f_blocks);
6643 __put_user(stfs.f_bfree, &target_stfs->f_bfree);
6644 __put_user(stfs.f_bavail, &target_stfs->f_bavail);
6645 __put_user(stfs.f_files, &target_stfs->f_files);
6646 __put_user(stfs.f_ffree, &target_stfs->f_ffree);
6647 __put_user(stfs.f_fsid.__val[0], &target_stfs->f_fsid.val[0]);
6648 __put_user(stfs.f_fsid.__val[1], &target_stfs->f_fsid.val[1]);
6649 __put_user(stfs.f_namelen, &target_stfs->f_namelen);
6650 __put_user(stfs.f_frsize, &target_stfs->f_frsize);
6651 memset(target_stfs->f_spare, 0, sizeof(target_stfs->f_spare));
6652 unlock_user_struct(target_stfs, arg2, 1);
6653 }
6654 break;
6655 case TARGET_NR_fstatfs:
6656 ret = get_errno(fstatfs(arg1, &stfs));
6657 goto convert_statfs;
6658 #ifdef TARGET_NR_statfs64
6659 case TARGET_NR_statfs64:
6660 if (!(p = lock_user_string(arg1)))
6661 goto efault;
6662 ret = get_errno(statfs(path(p), &stfs));
6663 unlock_user(p, arg1, 0);
6664 convert_statfs64:
6665 if (!is_error(ret)) {
6666 struct target_statfs64 *target_stfs;
6667
6668 if (!lock_user_struct(VERIFY_WRITE, target_stfs, arg3, 0))
6669 goto efault;
6670 __put_user(stfs.f_type, &target_stfs->f_type);
6671 __put_user(stfs.f_bsize, &target_stfs->f_bsize);
6672 __put_user(stfs.f_blocks, &target_stfs->f_blocks);
6673 __put_user(stfs.f_bfree, &target_stfs->f_bfree);
6674 __put_user(stfs.f_bavail, &target_stfs->f_bavail);
6675 __put_user(stfs.f_files, &target_stfs->f_files);
6676 __put_user(stfs.f_ffree, &target_stfs->f_ffree);
6677 __put_user(stfs.f_fsid.__val[0], &target_stfs->f_fsid.val[0]);
6678 __put_user(stfs.f_fsid.__val[1], &target_stfs->f_fsid.val[1]);
6679 __put_user(stfs.f_namelen, &target_stfs->f_namelen);
6680 __put_user(stfs.f_frsize, &target_stfs->f_frsize);
6681 memset(target_stfs->f_spare, 0, sizeof(target_stfs->f_spare));
6682 unlock_user_struct(target_stfs, arg3, 1);
6683 }
6684 break;
6685 case TARGET_NR_fstatfs64:
6686 ret = get_errno(fstatfs(arg1, &stfs));
6687 goto convert_statfs64;
6688 #endif
6689 #ifdef TARGET_NR_ioperm
6690 case TARGET_NR_ioperm:
6691 goto unimplemented;
6692 #endif
6693 #ifdef TARGET_NR_socketcall
6694 case TARGET_NR_socketcall:
6695 ret = do_socketcall(arg1, arg2);
6696 break;
6697 #endif
6698 #ifdef TARGET_NR_accept
6699 case TARGET_NR_accept:
6700 ret = do_accept4(arg1, arg2, arg3, 0);
6701 break;
6702 #endif
6703 #ifdef TARGET_NR_accept4
6704 case TARGET_NR_accept4:
6705 #ifdef CONFIG_ACCEPT4
6706 ret = do_accept4(arg1, arg2, arg3, arg4);
6707 #else
6708 goto unimplemented;
6709 #endif
6710 break;
6711 #endif
6712 #ifdef TARGET_NR_bind
6713 case TARGET_NR_bind:
6714 ret = do_bind(arg1, arg2, arg3);
6715 break;
6716 #endif
6717 #ifdef TARGET_NR_connect
6718 case TARGET_NR_connect:
6719 ret = do_connect(arg1, arg2, arg3);
6720 break;
6721 #endif
6722 #ifdef TARGET_NR_getpeername
6723 case TARGET_NR_getpeername:
6724 ret = do_getpeername(arg1, arg2, arg3);
6725 break;
6726 #endif
6727 #ifdef TARGET_NR_getsockname
6728 case TARGET_NR_getsockname:
6729 ret = do_getsockname(arg1, arg2, arg3);
6730 break;
6731 #endif
6732 #ifdef TARGET_NR_getsockopt
6733 case TARGET_NR_getsockopt:
6734 ret = do_getsockopt(arg1, arg2, arg3, arg4, arg5);
6735 break;
6736 #endif
6737 #ifdef TARGET_NR_listen
6738 case TARGET_NR_listen:
6739 ret = get_errno(listen(arg1, arg2));
6740 break;
6741 #endif
6742 #ifdef TARGET_NR_recv
6743 case TARGET_NR_recv:
6744 ret = do_recvfrom(arg1, arg2, arg3, arg4, 0, 0);
6745 break;
6746 #endif
6747 #ifdef TARGET_NR_recvfrom
6748 case TARGET_NR_recvfrom:
6749 ret = do_recvfrom(arg1, arg2, arg3, arg4, arg5, arg6);
6750 break;
6751 #endif
6752 #ifdef TARGET_NR_recvmsg
6753 case TARGET_NR_recvmsg:
6754 ret = do_sendrecvmsg(arg1, arg2, arg3, 0);
6755 break;
6756 #endif
6757 #ifdef TARGET_NR_send
6758 case TARGET_NR_send:
6759 ret = do_sendto(arg1, arg2, arg3, arg4, 0, 0);
6760 break;
6761 #endif
6762 #ifdef TARGET_NR_sendmsg
6763 case TARGET_NR_sendmsg:
6764 ret = do_sendrecvmsg(arg1, arg2, arg3, 1);
6765 break;
6766 #endif
6767 #ifdef TARGET_NR_sendmmsg
6768 case TARGET_NR_sendmmsg:
6769 ret = do_sendrecvmmsg(arg1, arg2, arg3, arg4, 1);
6770 break;
6771 case TARGET_NR_recvmmsg:
6772 ret = do_sendrecvmmsg(arg1, arg2, arg3, arg4, 0);
6773 break;
6774 #endif
6775 #ifdef TARGET_NR_sendto
6776 case TARGET_NR_sendto:
6777 ret = do_sendto(arg1, arg2, arg3, arg4, arg5, arg6);
6778 break;
6779 #endif
6780 #ifdef TARGET_NR_shutdown
6781 case TARGET_NR_shutdown:
6782 ret = get_errno(shutdown(arg1, arg2));
6783 break;
6784 #endif
6785 #ifdef TARGET_NR_socket
6786 case TARGET_NR_socket:
6787 ret = do_socket(arg1, arg2, arg3);
6788 break;
6789 #endif
6790 #ifdef TARGET_NR_socketpair
6791 case TARGET_NR_socketpair:
6792 ret = do_socketpair(arg1, arg2, arg3, arg4);
6793 break;
6794 #endif
6795 #ifdef TARGET_NR_setsockopt
6796 case TARGET_NR_setsockopt:
6797 ret = do_setsockopt(arg1, arg2, arg3, arg4, (socklen_t) arg5);
6798 break;
6799 #endif
6800
6801 case TARGET_NR_syslog:
6802 if (!(p = lock_user_string(arg2)))
6803 goto efault;
6804 ret = get_errno(sys_syslog((int)arg1, p, (int)arg3));
6805 unlock_user(p, arg2, 0);
6806 break;
6807
6808 case TARGET_NR_setitimer:
6809 {
6810 struct itimerval value, ovalue, *pvalue;
6811
6812 if (arg2) {
6813 pvalue = &value;
6814 if (copy_from_user_timeval(&pvalue->it_interval, arg2)
6815 || copy_from_user_timeval(&pvalue->it_value,
6816 arg2 + sizeof(struct target_timeval)))
6817 goto efault;
6818 } else {
6819 pvalue = NULL;
6820 }
6821 ret = get_errno(setitimer(arg1, pvalue, &ovalue));
6822 if (!is_error(ret) && arg3) {
6823 if (copy_to_user_timeval(arg3,
6824 &ovalue.it_interval)
6825 || copy_to_user_timeval(arg3 + sizeof(struct target_timeval),
6826 &ovalue.it_value))
6827 goto efault;
6828 }
6829 }
6830 break;
6831 case TARGET_NR_getitimer:
6832 {
6833 struct itimerval value;
6834
6835 ret = get_errno(getitimer(arg1, &value));
6836 if (!is_error(ret) && arg2) {
6837 if (copy_to_user_timeval(arg2,
6838 &value.it_interval)
6839 || copy_to_user_timeval(arg2 + sizeof(struct target_timeval),
6840 &value.it_value))
6841 goto efault;
6842 }
6843 }
6844 break;
6845 case TARGET_NR_stat:
6846 if (!(p = lock_user_string(arg1)))
6847 goto efault;
6848 ret = get_errno(stat(path(p), &st));
6849 unlock_user(p, arg1, 0);
6850 goto do_stat;
6851 case TARGET_NR_lstat:
6852 if (!(p = lock_user_string(arg1)))
6853 goto efault;
6854 ret = get_errno(lstat(path(p), &st));
6855 unlock_user(p, arg1, 0);
6856 goto do_stat;
6857 case TARGET_NR_fstat:
6858 {
6859 ret = get_errno(fstat(arg1, &st));
6860 do_stat:
6861 if (!is_error(ret)) {
6862 struct target_stat *target_st;
6863
6864 if (!lock_user_struct(VERIFY_WRITE, target_st, arg2, 0))
6865 goto efault;
6866 memset(target_st, 0, sizeof(*target_st));
6867 __put_user(st.st_dev, &target_st->st_dev);
6868 __put_user(st.st_ino, &target_st->st_ino);
6869 __put_user(st.st_mode, &target_st->st_mode);
6870 __put_user(st.st_uid, &target_st->st_uid);
6871 __put_user(st.st_gid, &target_st->st_gid);
6872 __put_user(st.st_nlink, &target_st->st_nlink);
6873 __put_user(st.st_rdev, &target_st->st_rdev);
6874 __put_user(st.st_size, &target_st->st_size);
6875 __put_user(st.st_blksize, &target_st->st_blksize);
6876 __put_user(st.st_blocks, &target_st->st_blocks);
6877 __put_user(st.st_atime, &target_st->target_st_atime);
6878 __put_user(st.st_mtime, &target_st->target_st_mtime);
6879 __put_user(st.st_ctime, &target_st->target_st_ctime);
6880 unlock_user_struct(target_st, arg2, 1);
6881 }
6882 }
6883 break;
6884 #ifdef TARGET_NR_olduname
6885 case TARGET_NR_olduname:
6886 goto unimplemented;
6887 #endif
6888 #ifdef TARGET_NR_iopl
6889 case TARGET_NR_iopl:
6890 goto unimplemented;
6891 #endif
6892 case TARGET_NR_vhangup:
6893 ret = get_errno(vhangup());
6894 break;
6895 #ifdef TARGET_NR_idle
6896 case TARGET_NR_idle:
6897 goto unimplemented;
6898 #endif
6899 #ifdef TARGET_NR_syscall
6900 case TARGET_NR_syscall:
6901 ret = do_syscall(cpu_env, arg1 & 0xffff, arg2, arg3, arg4, arg5,
6902 arg6, arg7, arg8, 0);
6903 break;
6904 #endif
6905 case TARGET_NR_wait4:
6906 {
6907 int status;
6908 abi_long status_ptr = arg2;
6909 struct rusage rusage, *rusage_ptr;
6910 abi_ulong target_rusage = arg4;
6911 abi_long rusage_err;
6912 if (target_rusage)
6913 rusage_ptr = &rusage;
6914 else
6915 rusage_ptr = NULL;
6916 ret = get_errno(wait4(arg1, &status, arg3, rusage_ptr));
6917 if (!is_error(ret)) {
6918 if (status_ptr && ret) {
6919 status = host_to_target_waitstatus(status);
6920 if (put_user_s32(status, status_ptr))
6921 goto efault;
6922 }
6923 if (target_rusage) {
6924 rusage_err = host_to_target_rusage(target_rusage, &rusage);
6925 if (rusage_err) {
6926 ret = rusage_err;
6927 }
6928 }
6929 }
6930 }
6931 break;
6932 #ifdef TARGET_NR_swapoff
6933 case TARGET_NR_swapoff:
6934 if (!(p = lock_user_string(arg1)))
6935 goto efault;
6936 ret = get_errno(swapoff(p));
6937 unlock_user(p, arg1, 0);
6938 break;
6939 #endif
6940 case TARGET_NR_sysinfo:
6941 {
6942 struct target_sysinfo *target_value;
6943 struct sysinfo value;
6944 ret = get_errno(sysinfo(&value));
6945 if (!is_error(ret) && arg1)
6946 {
6947 if (!lock_user_struct(VERIFY_WRITE, target_value, arg1, 0))
6948 goto efault;
6949 __put_user(value.uptime, &target_value->uptime);
6950 __put_user(value.loads[0], &target_value->loads[0]);
6951 __put_user(value.loads[1], &target_value->loads[1]);
6952 __put_user(value.loads[2], &target_value->loads[2]);
6953 __put_user(value.totalram, &target_value->totalram);
6954 __put_user(value.freeram, &target_value->freeram);
6955 __put_user(value.sharedram, &target_value->sharedram);
6956 __put_user(value.bufferram, &target_value->bufferram);
6957 __put_user(value.totalswap, &target_value->totalswap);
6958 __put_user(value.freeswap, &target_value->freeswap);
6959 __put_user(value.procs, &target_value->procs);
6960 __put_user(value.totalhigh, &target_value->totalhigh);
6961 __put_user(value.freehigh, &target_value->freehigh);
6962 __put_user(value.mem_unit, &target_value->mem_unit);
6963 unlock_user_struct(target_value, arg1, 1);
6964 }
6965 }
6966 break;
6967 #ifdef TARGET_NR_ipc
6968 case TARGET_NR_ipc:
6969 ret = do_ipc(arg1, arg2, arg3, arg4, arg5, arg6);
6970 break;
6971 #endif
6972 #ifdef TARGET_NR_semget
6973 case TARGET_NR_semget:
6974 ret = get_errno(semget(arg1, arg2, arg3));
6975 break;
6976 #endif
6977 #ifdef TARGET_NR_semop
6978 case TARGET_NR_semop:
6979 ret = do_semop(arg1, arg2, arg3);
6980 break;
6981 #endif
6982 #ifdef TARGET_NR_semctl
6983 case TARGET_NR_semctl:
6984 ret = do_semctl(arg1, arg2, arg3, (union target_semun)(abi_ulong)arg4);
6985 break;
6986 #endif
6987 #ifdef TARGET_NR_msgctl
6988 case TARGET_NR_msgctl:
6989 ret = do_msgctl(arg1, arg2, arg3);
6990 break;
6991 #endif
6992 #ifdef TARGET_NR_msgget
6993 case TARGET_NR_msgget:
6994 ret = get_errno(msgget(arg1, arg2));
6995 break;
6996 #endif
6997 #ifdef TARGET_NR_msgrcv
6998 case TARGET_NR_msgrcv:
6999 ret = do_msgrcv(arg1, arg2, arg3, arg4, arg5);
7000 break;
7001 #endif
7002 #ifdef TARGET_NR_msgsnd
7003 case TARGET_NR_msgsnd:
7004 ret = do_msgsnd(arg1, arg2, arg3, arg4);
7005 break;
7006 #endif
7007 #ifdef TARGET_NR_shmget
7008 case TARGET_NR_shmget:
7009 ret = get_errno(shmget(arg1, arg2, arg3));
7010 break;
7011 #endif
7012 #ifdef TARGET_NR_shmctl
7013 case TARGET_NR_shmctl:
7014 ret = do_shmctl(arg1, arg2, arg3);
7015 break;
7016 #endif
7017 #ifdef TARGET_NR_shmat
7018 case TARGET_NR_shmat:
7019 ret = do_shmat(arg1, arg2, arg3);
7020 break;
7021 #endif
7022 #ifdef TARGET_NR_shmdt
7023 case TARGET_NR_shmdt:
7024 ret = do_shmdt(arg1);
7025 break;
7026 #endif
7027 case TARGET_NR_fsync:
7028 ret = get_errno(fsync(arg1));
7029 break;
7030 case TARGET_NR_clone:
7031 /* Linux manages to have three different orderings for its
7032 * arguments to clone(); the BACKWARDS and BACKWARDS2 defines
7033 * match the kernel's CONFIG_CLONE_* settings.
7034 * Microblaze is further special in that it uses a sixth
7035 * implicit argument to clone for the TLS pointer.
7036 */
7037 #if defined(TARGET_MICROBLAZE)
7038 ret = get_errno(do_fork(cpu_env, arg1, arg2, arg4, arg6, arg5));
7039 #elif defined(TARGET_CLONE_BACKWARDS)
7040 ret = get_errno(do_fork(cpu_env, arg1, arg2, arg3, arg4, arg5));
7041 #elif defined(TARGET_CLONE_BACKWARDS2)
7042 ret = get_errno(do_fork(cpu_env, arg2, arg1, arg3, arg5, arg4));
7043 #else
7044 ret = get_errno(do_fork(cpu_env, arg1, arg2, arg3, arg5, arg4));
7045 #endif
7046 break;
7047 #ifdef __NR_exit_group
7048 /* new thread calls */
7049 case TARGET_NR_exit_group:
7050 #ifdef TARGET_GPROF
7051 _mcleanup();
7052 #endif
7053 gdb_exit(cpu_env, arg1);
7054 ret = get_errno(exit_group(arg1));
7055 break;
7056 #endif
7057 case TARGET_NR_setdomainname:
7058 if (!(p = lock_user_string(arg1)))
7059 goto efault;
7060 ret = get_errno(setdomainname(p, arg2));
7061 unlock_user(p, arg1, 0);
7062 break;
7063 case TARGET_NR_uname:
7064 /* no need to transcode because we use the linux syscall */
7065 {
7066 struct new_utsname * buf;
7067
7068 if (!lock_user_struct(VERIFY_WRITE, buf, arg1, 0))
7069 goto efault;
7070 ret = get_errno(sys_uname(buf));
7071 if (!is_error(ret)) {
7072 /* Overrite the native machine name with whatever is being
7073 emulated. */
7074 strcpy (buf->machine, cpu_to_uname_machine(cpu_env));
7075 /* Allow the user to override the reported release. */
7076 if (qemu_uname_release && *qemu_uname_release)
7077 strcpy (buf->release, qemu_uname_release);
7078 }
7079 unlock_user_struct(buf, arg1, 1);
7080 }
7081 break;
7082 #ifdef TARGET_I386
7083 case TARGET_NR_modify_ldt:
7084 ret = do_modify_ldt(cpu_env, arg1, arg2, arg3);
7085 break;
7086 #if !defined(TARGET_X86_64)
7087 case TARGET_NR_vm86old:
7088 goto unimplemented;
7089 case TARGET_NR_vm86:
7090 ret = do_vm86(cpu_env, arg1, arg2);
7091 break;
7092 #endif
7093 #endif
7094 case TARGET_NR_adjtimex:
7095 goto unimplemented;
7096 #ifdef TARGET_NR_create_module
7097 case TARGET_NR_create_module:
7098 #endif
7099 case TARGET_NR_init_module:
7100 case TARGET_NR_delete_module:
7101 #ifdef TARGET_NR_get_kernel_syms
7102 case TARGET_NR_get_kernel_syms:
7103 #endif
7104 goto unimplemented;
7105 case TARGET_NR_quotactl:
7106 goto unimplemented;
7107 case TARGET_NR_getpgid:
7108 ret = get_errno(getpgid(arg1));
7109 break;
7110 case TARGET_NR_fchdir:
7111 ret = get_errno(fchdir(arg1));
7112 break;
7113 #ifdef TARGET_NR_bdflush /* not on x86_64 */
7114 case TARGET_NR_bdflush:
7115 goto unimplemented;
7116 #endif
7117 #ifdef TARGET_NR_sysfs
7118 case TARGET_NR_sysfs:
7119 goto unimplemented;
7120 #endif
7121 case TARGET_NR_personality:
7122 ret = get_errno(personality(arg1));
7123 break;
7124 #ifdef TARGET_NR_afs_syscall
7125 case TARGET_NR_afs_syscall:
7126 goto unimplemented;
7127 #endif
7128 #ifdef TARGET_NR__llseek /* Not on alpha */
7129 case TARGET_NR__llseek:
7130 {
7131 int64_t res;
7132 #if !defined(__NR_llseek)
7133 res = lseek(arg1, ((uint64_t)arg2 << 32) | arg3, arg5);
7134 if (res == -1) {
7135 ret = get_errno(res);
7136 } else {
7137 ret = 0;
7138 }
7139 #else
7140 ret = get_errno(_llseek(arg1, arg2, arg3, &res, arg5));
7141 #endif
7142 if ((ret == 0) && put_user_s64(res, arg4)) {
7143 goto efault;
7144 }
7145 }
7146 break;
7147 #endif
7148 case TARGET_NR_getdents:
7149 #ifdef __NR_getdents
7150 #if TARGET_ABI_BITS == 32 && HOST_LONG_BITS == 64
7151 {
7152 struct target_dirent *target_dirp;
7153 struct linux_dirent *dirp;
7154 abi_long count = arg3;
7155
7156 dirp = malloc(count);
7157 if (!dirp) {
7158 ret = -TARGET_ENOMEM;
7159 goto fail;
7160 }
7161
7162 ret = get_errno(sys_getdents(arg1, dirp, count));
7163 if (!is_error(ret)) {
7164 struct linux_dirent *de;
7165 struct target_dirent *tde;
7166 int len = ret;
7167 int reclen, treclen;
7168 int count1, tnamelen;
7169
7170 count1 = 0;
7171 de = dirp;
7172 if (!(target_dirp = lock_user(VERIFY_WRITE, arg2, count, 0)))
7173 goto efault;
7174 tde = target_dirp;
7175 while (len > 0) {
7176 reclen = de->d_reclen;
7177 tnamelen = reclen - offsetof(struct linux_dirent, d_name);
7178 assert(tnamelen >= 0);
7179 treclen = tnamelen + offsetof(struct target_dirent, d_name);
7180 assert(count1 + treclen <= count);
7181 tde->d_reclen = tswap16(treclen);
7182 tde->d_ino = tswapal(de->d_ino);
7183 tde->d_off = tswapal(de->d_off);
7184 memcpy(tde->d_name, de->d_name, tnamelen);
7185 de = (struct linux_dirent *)((char *)de + reclen);
7186 len -= reclen;
7187 tde = (struct target_dirent *)((char *)tde + treclen);
7188 count1 += treclen;
7189 }
7190 ret = count1;
7191 unlock_user(target_dirp, arg2, ret);
7192 }
7193 free(dirp);
7194 }
7195 #else
7196 {
7197 struct linux_dirent *dirp;
7198 abi_long count = arg3;
7199
7200 if (!(dirp = lock_user(VERIFY_WRITE, arg2, count, 0)))
7201 goto efault;
7202 ret = get_errno(sys_getdents(arg1, dirp, count));
7203 if (!is_error(ret)) {
7204 struct linux_dirent *de;
7205 int len = ret;
7206 int reclen;
7207 de = dirp;
7208 while (len > 0) {
7209 reclen = de->d_reclen;
7210 if (reclen > len)
7211 break;
7212 de->d_reclen = tswap16(reclen);
7213 tswapls(&de->d_ino);
7214 tswapls(&de->d_off);
7215 de = (struct linux_dirent *)((char *)de + reclen);
7216 len -= reclen;
7217 }
7218 }
7219 unlock_user(dirp, arg2, ret);
7220 }
7221 #endif
7222 #else
7223 /* Implement getdents in terms of getdents64 */
7224 {
7225 struct linux_dirent64 *dirp;
7226 abi_long count = arg3;
7227
7228 dirp = lock_user(VERIFY_WRITE, arg2, count, 0);
7229 if (!dirp) {
7230 goto efault;
7231 }
7232 ret = get_errno(sys_getdents64(arg1, dirp, count));
7233 if (!is_error(ret)) {
7234 /* Convert the dirent64 structs to target dirent. We do this
7235 * in-place, since we can guarantee that a target_dirent is no
7236 * larger than a dirent64; however this means we have to be
7237 * careful to read everything before writing in the new format.
7238 */
7239 struct linux_dirent64 *de;
7240 struct target_dirent *tde;
7241 int len = ret;
7242 int tlen = 0;
7243
7244 de = dirp;
7245 tde = (struct target_dirent *)dirp;
7246 while (len > 0) {
7247 int namelen, treclen;
7248 int reclen = de->d_reclen;
7249 uint64_t ino = de->d_ino;
7250 int64_t off = de->d_off;
7251 uint8_t type = de->d_type;
7252
7253 namelen = strlen(de->d_name);
7254 treclen = offsetof(struct target_dirent, d_name)
7255 + namelen + 2;
7256 treclen = QEMU_ALIGN_UP(treclen, sizeof(abi_long));
7257
7258 memmove(tde->d_name, de->d_name, namelen + 1);
7259 tde->d_ino = tswapal(ino);
7260 tde->d_off = tswapal(off);
7261 tde->d_reclen = tswap16(treclen);
7262 /* The target_dirent type is in what was formerly a padding
7263 * byte at the end of the structure:
7264 */
7265 *(((char *)tde) + treclen - 1) = type;
7266
7267 de = (struct linux_dirent64 *)((char *)de + reclen);
7268 tde = (struct target_dirent *)((char *)tde + treclen);
7269 len -= reclen;
7270 tlen += treclen;
7271 }
7272 ret = tlen;
7273 }
7274 unlock_user(dirp, arg2, ret);
7275 }
7276 #endif
7277 break;
7278 #if defined(TARGET_NR_getdents64) && defined(__NR_getdents64)
7279 case TARGET_NR_getdents64:
7280 {
7281 struct linux_dirent64 *dirp;
7282 abi_long count = arg3;
7283 if (!(dirp = lock_user(VERIFY_WRITE, arg2, count, 0)))
7284 goto efault;
7285 ret = get_errno(sys_getdents64(arg1, dirp, count));
7286 if (!is_error(ret)) {
7287 struct linux_dirent64 *de;
7288 int len = ret;
7289 int reclen;
7290 de = dirp;
7291 while (len > 0) {
7292 reclen = de->d_reclen;
7293 if (reclen > len)
7294 break;
7295 de->d_reclen = tswap16(reclen);
7296 tswap64s((uint64_t *)&de->d_ino);
7297 tswap64s((uint64_t *)&de->d_off);
7298 de = (struct linux_dirent64 *)((char *)de + reclen);
7299 len -= reclen;
7300 }
7301 }
7302 unlock_user(dirp, arg2, ret);
7303 }
7304 break;
7305 #endif /* TARGET_NR_getdents64 */
7306 #if defined(TARGET_NR__newselect)
7307 case TARGET_NR__newselect:
7308 ret = do_select(arg1, arg2, arg3, arg4, arg5);
7309 break;
7310 #endif
7311 #if defined(TARGET_NR_poll) || defined(TARGET_NR_ppoll)
7312 # ifdef TARGET_NR_poll
7313 case TARGET_NR_poll:
7314 # endif
7315 # ifdef TARGET_NR_ppoll
7316 case TARGET_NR_ppoll:
7317 # endif
7318 {
7319 struct target_pollfd *target_pfd;
7320 unsigned int nfds = arg2;
7321 int timeout = arg3;
7322 struct pollfd *pfd;
7323 unsigned int i;
7324
7325 target_pfd = lock_user(VERIFY_WRITE, arg1, sizeof(struct target_pollfd) * nfds, 1);
7326 if (!target_pfd)
7327 goto efault;
7328
7329 pfd = alloca(sizeof(struct pollfd) * nfds);
7330 for(i = 0; i < nfds; i++) {
7331 pfd[i].fd = tswap32(target_pfd[i].fd);
7332 pfd[i].events = tswap16(target_pfd[i].events);
7333 }
7334
7335 # ifdef TARGET_NR_ppoll
7336 if (num == TARGET_NR_ppoll) {
7337 struct timespec _timeout_ts, *timeout_ts = &_timeout_ts;
7338 target_sigset_t *target_set;
7339 sigset_t _set, *set = &_set;
7340
7341 if (arg3) {
7342 if (target_to_host_timespec(timeout_ts, arg3)) {
7343 unlock_user(target_pfd, arg1, 0);
7344 goto efault;
7345 }
7346 } else {
7347 timeout_ts = NULL;
7348 }
7349
7350 if (arg4) {
7351 target_set = lock_user(VERIFY_READ, arg4, sizeof(target_sigset_t), 1);
7352 if (!target_set) {
7353 unlock_user(target_pfd, arg1, 0);
7354 goto efault;
7355 }
7356 target_to_host_sigset(set, target_set);
7357 } else {
7358 set = NULL;
7359 }
7360
7361 ret = get_errno(sys_ppoll(pfd, nfds, timeout_ts, set, _NSIG/8));
7362
7363 if (!is_error(ret) && arg3) {
7364 host_to_target_timespec(arg3, timeout_ts);
7365 }
7366 if (arg4) {
7367 unlock_user(target_set, arg4, 0);
7368 }
7369 } else
7370 # endif
7371 ret = get_errno(poll(pfd, nfds, timeout));
7372
7373 if (!is_error(ret)) {
7374 for(i = 0; i < nfds; i++) {
7375 target_pfd[i].revents = tswap16(pfd[i].revents);
7376 }
7377 }
7378 unlock_user(target_pfd, arg1, sizeof(struct target_pollfd) * nfds);
7379 }
7380 break;
7381 #endif
7382 case TARGET_NR_flock:
7383 /* NOTE: the flock constant seems to be the same for every
7384 Linux platform */
7385 ret = get_errno(flock(arg1, arg2));
7386 break;
7387 case TARGET_NR_readv:
7388 {
7389 struct iovec *vec = lock_iovec(VERIFY_WRITE, arg2, arg3, 0);
7390 if (vec != NULL) {
7391 ret = get_errno(readv(arg1, vec, arg3));
7392 unlock_iovec(vec, arg2, arg3, 1);
7393 } else {
7394 ret = -host_to_target_errno(errno);
7395 }
7396 }
7397 break;
7398 case TARGET_NR_writev:
7399 {
7400 struct iovec *vec = lock_iovec(VERIFY_READ, arg2, arg3, 1);
7401 if (vec != NULL) {
7402 ret = get_errno(writev(arg1, vec, arg3));
7403 unlock_iovec(vec, arg2, arg3, 0);
7404 } else {
7405 ret = -host_to_target_errno(errno);
7406 }
7407 }
7408 break;
7409 case TARGET_NR_getsid:
7410 ret = get_errno(getsid(arg1));
7411 break;
7412 #if defined(TARGET_NR_fdatasync) /* Not on alpha (osf_datasync ?) */
7413 case TARGET_NR_fdatasync:
7414 ret = get_errno(fdatasync(arg1));
7415 break;
7416 #endif
7417 case TARGET_NR__sysctl:
7418 /* We don't implement this, but ENOTDIR is always a safe
7419 return value. */
7420 ret = -TARGET_ENOTDIR;
7421 break;
7422 case TARGET_NR_sched_getaffinity:
7423 {
7424 unsigned int mask_size;
7425 unsigned long *mask;
7426
7427 /*
7428 * sched_getaffinity needs multiples of ulong, so need to take
7429 * care of mismatches between target ulong and host ulong sizes.
7430 */
7431 if (arg2 & (sizeof(abi_ulong) - 1)) {
7432 ret = -TARGET_EINVAL;
7433 break;
7434 }
7435 mask_size = (arg2 + (sizeof(*mask) - 1)) & ~(sizeof(*mask) - 1);
7436
7437 mask = alloca(mask_size);
7438 ret = get_errno(sys_sched_getaffinity(arg1, mask_size, mask));
7439
7440 if (!is_error(ret)) {
7441 if (ret > arg2) {
7442 /* More data returned than the caller's buffer will fit.
7443 * This only happens if sizeof(abi_long) < sizeof(long)
7444 * and the caller passed us a buffer holding an odd number
7445 * of abi_longs. If the host kernel is actually using the
7446 * extra 4 bytes then fail EINVAL; otherwise we can just
7447 * ignore them and only copy the interesting part.
7448 */
7449 int numcpus = sysconf(_SC_NPROCESSORS_CONF);
7450 if (numcpus > arg2 * 8) {
7451 ret = -TARGET_EINVAL;
7452 break;
7453 }
7454 ret = arg2;
7455 }
7456
7457 if (copy_to_user(arg3, mask, ret)) {
7458 goto efault;
7459 }
7460 }
7461 }
7462 break;
7463 case TARGET_NR_sched_setaffinity:
7464 {
7465 unsigned int mask_size;
7466 unsigned long *mask;
7467
7468 /*
7469 * sched_setaffinity needs multiples of ulong, so need to take
7470 * care of mismatches between target ulong and host ulong sizes.
7471 */
7472 if (arg2 & (sizeof(abi_ulong) - 1)) {
7473 ret = -TARGET_EINVAL;
7474 break;
7475 }
7476 mask_size = (arg2 + (sizeof(*mask) - 1)) & ~(sizeof(*mask) - 1);
7477
7478 mask = alloca(mask_size);
7479 if (!lock_user_struct(VERIFY_READ, p, arg3, 1)) {
7480 goto efault;
7481 }
7482 memcpy(mask, p, arg2);
7483 unlock_user_struct(p, arg2, 0);
7484
7485 ret = get_errno(sys_sched_setaffinity(arg1, mask_size, mask));
7486 }
7487 break;
7488 case TARGET_NR_sched_setparam:
7489 {
7490 struct sched_param *target_schp;
7491 struct sched_param schp;
7492
7493 if (!lock_user_struct(VERIFY_READ, target_schp, arg2, 1))
7494 goto efault;
7495 schp.sched_priority = tswap32(target_schp->sched_priority);
7496 unlock_user_struct(target_schp, arg2, 0);
7497 ret = get_errno(sched_setparam(arg1, &schp));
7498 }
7499 break;
7500 case TARGET_NR_sched_getparam:
7501 {
7502 struct sched_param *target_schp;
7503 struct sched_param schp;
7504 ret = get_errno(sched_getparam(arg1, &schp));
7505 if (!is_error(ret)) {
7506 if (!lock_user_struct(VERIFY_WRITE, target_schp, arg2, 0))
7507 goto efault;
7508 target_schp->sched_priority = tswap32(schp.sched_priority);
7509 unlock_user_struct(target_schp, arg2, 1);
7510 }
7511 }
7512 break;
7513 case TARGET_NR_sched_setscheduler:
7514 {
7515 struct sched_param *target_schp;
7516 struct sched_param schp;
7517 if (!lock_user_struct(VERIFY_READ, target_schp, arg3, 1))
7518 goto efault;
7519 schp.sched_priority = tswap32(target_schp->sched_priority);
7520 unlock_user_struct(target_schp, arg3, 0);
7521 ret = get_errno(sched_setscheduler(arg1, arg2, &schp));
7522 }
7523 break;
7524 case TARGET_NR_sched_getscheduler:
7525 ret = get_errno(sched_getscheduler(arg1));
7526 break;
7527 case TARGET_NR_sched_yield:
7528 ret = get_errno(sched_yield());
7529 break;
7530 case TARGET_NR_sched_get_priority_max:
7531 ret = get_errno(sched_get_priority_max(arg1));
7532 break;
7533 case TARGET_NR_sched_get_priority_min:
7534 ret = get_errno(sched_get_priority_min(arg1));
7535 break;
7536 case TARGET_NR_sched_rr_get_interval:
7537 {
7538 struct timespec ts;
7539 ret = get_errno(sched_rr_get_interval(arg1, &ts));
7540 if (!is_error(ret)) {
7541 host_to_target_timespec(arg2, &ts);
7542 }
7543 }
7544 break;
7545 case TARGET_NR_nanosleep:
7546 {
7547 struct timespec req, rem;
7548 target_to_host_timespec(&req, arg1);
7549 ret = get_errno(nanosleep(&req, &rem));
7550 if (is_error(ret) && arg2) {
7551 host_to_target_timespec(arg2, &rem);
7552 }
7553 }
7554 break;
7555 #ifdef TARGET_NR_query_module
7556 case TARGET_NR_query_module:
7557 goto unimplemented;
7558 #endif
7559 #ifdef TARGET_NR_nfsservctl
7560 case TARGET_NR_nfsservctl:
7561 goto unimplemented;
7562 #endif
7563 case TARGET_NR_prctl:
7564 switch (arg1) {
7565 case PR_GET_PDEATHSIG:
7566 {
7567 int deathsig;
7568 ret = get_errno(prctl(arg1, &deathsig, arg3, arg4, arg5));
7569 if (!is_error(ret) && arg2
7570 && put_user_ual(deathsig, arg2)) {
7571 goto efault;
7572 }
7573 break;
7574 }
7575 #ifdef PR_GET_NAME
7576 case PR_GET_NAME:
7577 {
7578 void *name = lock_user(VERIFY_WRITE, arg2, 16, 1);
7579 if (!name) {
7580 goto efault;
7581 }
7582 ret = get_errno(prctl(arg1, (unsigned long)name,
7583 arg3, arg4, arg5));
7584 unlock_user(name, arg2, 16);
7585 break;
7586 }
7587 case PR_SET_NAME:
7588 {
7589 void *name = lock_user(VERIFY_READ, arg2, 16, 1);
7590 if (!name) {
7591 goto efault;
7592 }
7593 ret = get_errno(prctl(arg1, (unsigned long)name,
7594 arg3, arg4, arg5));
7595 unlock_user(name, arg2, 0);
7596 break;
7597 }
7598 #endif
7599 default:
7600 /* Most prctl options have no pointer arguments */
7601 ret = get_errno(prctl(arg1, arg2, arg3, arg4, arg5));
7602 break;
7603 }
7604 break;
7605 #ifdef TARGET_NR_arch_prctl
7606 case TARGET_NR_arch_prctl:
7607 #if defined(TARGET_I386) && !defined(TARGET_ABI32)
7608 ret = do_arch_prctl(cpu_env, arg1, arg2);
7609 break;
7610 #else
7611 goto unimplemented;
7612 #endif
7613 #endif
7614 #ifdef TARGET_NR_pread64
7615 case TARGET_NR_pread64:
7616 if (regpairs_aligned(cpu_env)) {
7617 arg4 = arg5;
7618 arg5 = arg6;
7619 }
7620 if (!(p = lock_user(VERIFY_WRITE, arg2, arg3, 0)))
7621 goto efault;
7622 ret = get_errno(pread64(arg1, p, arg3, target_offset64(arg4, arg5)));
7623 unlock_user(p, arg2, ret);
7624 break;
7625 case TARGET_NR_pwrite64:
7626 if (regpairs_aligned(cpu_env)) {
7627 arg4 = arg5;
7628 arg5 = arg6;
7629 }
7630 if (!(p = lock_user(VERIFY_READ, arg2, arg3, 1)))
7631 goto efault;
7632 ret = get_errno(pwrite64(arg1, p, arg3, target_offset64(arg4, arg5)));
7633 unlock_user(p, arg2, 0);
7634 break;
7635 #endif
7636 case TARGET_NR_getcwd:
7637 if (!(p = lock_user(VERIFY_WRITE, arg1, arg2, 0)))
7638 goto efault;
7639 ret = get_errno(sys_getcwd1(p, arg2));
7640 unlock_user(p, arg1, ret);
7641 break;
7642 case TARGET_NR_capget:
7643 case TARGET_NR_capset:
7644 {
7645 struct target_user_cap_header *target_header;
7646 struct target_user_cap_data *target_data = NULL;
7647 struct __user_cap_header_struct header;
7648 struct __user_cap_data_struct data[2];
7649 struct __user_cap_data_struct *dataptr = NULL;
7650 int i, target_datalen;
7651 int data_items = 1;
7652
7653 if (!lock_user_struct(VERIFY_WRITE, target_header, arg1, 1)) {
7654 goto efault;
7655 }
7656 header.version = tswap32(target_header->version);
7657 header.pid = tswap32(target_header->pid);
7658
7659 if (header.version != _LINUX_CAPABILITY_VERSION) {
7660 /* Version 2 and up takes pointer to two user_data structs */
7661 data_items = 2;
7662 }
7663
7664 target_datalen = sizeof(*target_data) * data_items;
7665
7666 if (arg2) {
7667 if (num == TARGET_NR_capget) {
7668 target_data = lock_user(VERIFY_WRITE, arg2, target_datalen, 0);
7669 } else {
7670 target_data = lock_user(VERIFY_READ, arg2, target_datalen, 1);
7671 }
7672 if (!target_data) {
7673 unlock_user_struct(target_header, arg1, 0);
7674 goto efault;
7675 }
7676
7677 if (num == TARGET_NR_capset) {
7678 for (i = 0; i < data_items; i++) {
7679 data[i].effective = tswap32(target_data[i].effective);
7680 data[i].permitted = tswap32(target_data[i].permitted);
7681 data[i].inheritable = tswap32(target_data[i].inheritable);
7682 }
7683 }
7684
7685 dataptr = data;
7686 }
7687
7688 if (num == TARGET_NR_capget) {
7689 ret = get_errno(capget(&header, dataptr));
7690 } else {
7691 ret = get_errno(capset(&header, dataptr));
7692 }
7693
7694 /* The kernel always updates version for both capget and capset */
7695 target_header->version = tswap32(header.version);
7696 unlock_user_struct(target_header, arg1, 1);
7697
7698 if (arg2) {
7699 if (num == TARGET_NR_capget) {
7700 for (i = 0; i < data_items; i++) {
7701 target_data[i].effective = tswap32(data[i].effective);
7702 target_data[i].permitted = tswap32(data[i].permitted);
7703 target_data[i].inheritable = tswap32(data[i].inheritable);
7704 }
7705 unlock_user(target_data, arg2, target_datalen);
7706 } else {
7707 unlock_user(target_data, arg2, 0);
7708 }
7709 }
7710 break;
7711 }
7712 case TARGET_NR_sigaltstack:
7713 #if defined(TARGET_I386) || defined(TARGET_ARM) || defined(TARGET_MIPS) || \
7714 defined(TARGET_SPARC) || defined(TARGET_PPC) || defined(TARGET_ALPHA) || \
7715 defined(TARGET_M68K) || defined(TARGET_S390X) || defined(TARGET_OPENRISC)
7716 ret = do_sigaltstack(arg1, arg2, get_sp_from_cpustate((CPUArchState *)cpu_env));
7717 break;
7718 #else
7719 goto unimplemented;
7720 #endif
7721
7722 #ifdef CONFIG_SENDFILE
7723 case TARGET_NR_sendfile:
7724 {
7725 off_t *offp = NULL;
7726 off_t off;
7727 if (arg3) {
7728 ret = get_user_sal(off, arg3);
7729 if (is_error(ret)) {
7730 break;
7731 }
7732 offp = &off;
7733 }
7734 ret = get_errno(sendfile(arg1, arg2, offp, arg4));
7735 if (!is_error(ret) && arg3) {
7736 abi_long ret2 = put_user_sal(off, arg3);
7737 if (is_error(ret2)) {
7738 ret = ret2;
7739 }
7740 }
7741 break;
7742 }
7743 #ifdef TARGET_NR_sendfile64
7744 case TARGET_NR_sendfile64:
7745 {
7746 off_t *offp = NULL;
7747 off_t off;
7748 if (arg3) {
7749 ret = get_user_s64(off, arg3);
7750 if (is_error(ret)) {
7751 break;
7752 }
7753 offp = &off;
7754 }
7755 ret = get_errno(sendfile(arg1, arg2, offp, arg4));
7756 if (!is_error(ret) && arg3) {
7757 abi_long ret2 = put_user_s64(off, arg3);
7758 if (is_error(ret2)) {
7759 ret = ret2;
7760 }
7761 }
7762 break;
7763 }
7764 #endif
7765 #else
7766 case TARGET_NR_sendfile:
7767 #ifdef TARGET_NR_sendfile64
7768 case TARGET_NR_sendfile64:
7769 #endif
7770 goto unimplemented;
7771 #endif
7772
7773 #ifdef TARGET_NR_getpmsg
7774 case TARGET_NR_getpmsg:
7775 goto unimplemented;
7776 #endif
7777 #ifdef TARGET_NR_putpmsg
7778 case TARGET_NR_putpmsg:
7779 goto unimplemented;
7780 #endif
7781 #ifdef TARGET_NR_vfork
7782 case TARGET_NR_vfork:
7783 ret = get_errno(do_fork(cpu_env, CLONE_VFORK | CLONE_VM | SIGCHLD,
7784 0, 0, 0, 0));
7785 break;
7786 #endif
7787 #ifdef TARGET_NR_ugetrlimit
7788 case TARGET_NR_ugetrlimit:
7789 {
7790 struct rlimit rlim;
7791 int resource = target_to_host_resource(arg1);
7792 ret = get_errno(getrlimit(resource, &rlim));
7793 if (!is_error(ret)) {
7794 struct target_rlimit *target_rlim;
7795 if (!lock_user_struct(VERIFY_WRITE, target_rlim, arg2, 0))
7796 goto efault;
7797 target_rlim->rlim_cur = host_to_target_rlim(rlim.rlim_cur);
7798 target_rlim->rlim_max = host_to_target_rlim(rlim.rlim_max);
7799 unlock_user_struct(target_rlim, arg2, 1);
7800 }
7801 break;
7802 }
7803 #endif
7804 #ifdef TARGET_NR_truncate64
7805 case TARGET_NR_truncate64:
7806 if (!(p = lock_user_string(arg1)))
7807 goto efault;
7808 ret = target_truncate64(cpu_env, p, arg2, arg3, arg4);
7809 unlock_user(p, arg1, 0);
7810 break;
7811 #endif
7812 #ifdef TARGET_NR_ftruncate64
7813 case TARGET_NR_ftruncate64:
7814 ret = target_ftruncate64(cpu_env, arg1, arg2, arg3, arg4);
7815 break;
7816 #endif
7817 #ifdef TARGET_NR_stat64
7818 case TARGET_NR_stat64:
7819 if (!(p = lock_user_string(arg1)))
7820 goto efault;
7821 ret = get_errno(stat(path(p), &st));
7822 unlock_user(p, arg1, 0);
7823 if (!is_error(ret))
7824 ret = host_to_target_stat64(cpu_env, arg2, &st);
7825 break;
7826 #endif
7827 #ifdef TARGET_NR_lstat64
7828 case TARGET_NR_lstat64:
7829 if (!(p = lock_user_string(arg1)))
7830 goto efault;
7831 ret = get_errno(lstat(path(p), &st));
7832 unlock_user(p, arg1, 0);
7833 if (!is_error(ret))
7834 ret = host_to_target_stat64(cpu_env, arg2, &st);
7835 break;
7836 #endif
7837 #ifdef TARGET_NR_fstat64
7838 case TARGET_NR_fstat64:
7839 ret = get_errno(fstat(arg1, &st));
7840 if (!is_error(ret))
7841 ret = host_to_target_stat64(cpu_env, arg2, &st);
7842 break;
7843 #endif
7844 #if (defined(TARGET_NR_fstatat64) || defined(TARGET_NR_newfstatat))
7845 #ifdef TARGET_NR_fstatat64
7846 case TARGET_NR_fstatat64:
7847 #endif
7848 #ifdef TARGET_NR_newfstatat
7849 case TARGET_NR_newfstatat:
7850 #endif
7851 if (!(p = lock_user_string(arg2)))
7852 goto efault;
7853 ret = get_errno(fstatat(arg1, path(p), &st, arg4));
7854 if (!is_error(ret))
7855 ret = host_to_target_stat64(cpu_env, arg3, &st);
7856 break;
7857 #endif
7858 case TARGET_NR_lchown:
7859 if (!(p = lock_user_string(arg1)))
7860 goto efault;
7861 ret = get_errno(lchown(p, low2highuid(arg2), low2highgid(arg3)));
7862 unlock_user(p, arg1, 0);
7863 break;
7864 #ifdef TARGET_NR_getuid
7865 case TARGET_NR_getuid:
7866 ret = get_errno(high2lowuid(getuid()));
7867 break;
7868 #endif
7869 #ifdef TARGET_NR_getgid
7870 case TARGET_NR_getgid:
7871 ret = get_errno(high2lowgid(getgid()));
7872 break;
7873 #endif
7874 #ifdef TARGET_NR_geteuid
7875 case TARGET_NR_geteuid:
7876 ret = get_errno(high2lowuid(geteuid()));
7877 break;
7878 #endif
7879 #ifdef TARGET_NR_getegid
7880 case TARGET_NR_getegid:
7881 ret = get_errno(high2lowgid(getegid()));
7882 break;
7883 #endif
7884 case TARGET_NR_setreuid:
7885 ret = get_errno(setreuid(low2highuid(arg1), low2highuid(arg2)));
7886 break;
7887 case TARGET_NR_setregid:
7888 ret = get_errno(setregid(low2highgid(arg1), low2highgid(arg2)));
7889 break;
7890 case TARGET_NR_getgroups:
7891 {
7892 int gidsetsize = arg1;
7893 target_id *target_grouplist;
7894 gid_t *grouplist;
7895 int i;
7896
7897 grouplist = alloca(gidsetsize * sizeof(gid_t));
7898 ret = get_errno(getgroups(gidsetsize, grouplist));
7899 if (gidsetsize == 0)
7900 break;
7901 if (!is_error(ret)) {
7902 target_grouplist = lock_user(VERIFY_WRITE, arg2, gidsetsize * sizeof(target_id), 0);
7903 if (!target_grouplist)
7904 goto efault;
7905 for(i = 0;i < ret; i++)
7906 target_grouplist[i] = tswapid(high2lowgid(grouplist[i]));
7907 unlock_user(target_grouplist, arg2, gidsetsize * sizeof(target_id));
7908 }
7909 }
7910 break;
7911 case TARGET_NR_setgroups:
7912 {
7913 int gidsetsize = arg1;
7914 target_id *target_grouplist;
7915 gid_t *grouplist = NULL;
7916 int i;
7917 if (gidsetsize) {
7918 grouplist = alloca(gidsetsize * sizeof(gid_t));
7919 target_grouplist = lock_user(VERIFY_READ, arg2, gidsetsize * sizeof(target_id), 1);
7920 if (!target_grouplist) {
7921 ret = -TARGET_EFAULT;
7922 goto fail;
7923 }
7924 for (i = 0; i < gidsetsize; i++) {
7925 grouplist[i] = low2highgid(tswapid(target_grouplist[i]));
7926 }
7927 unlock_user(target_grouplist, arg2, 0);
7928 }
7929 ret = get_errno(setgroups(gidsetsize, grouplist));
7930 }
7931 break;
7932 case TARGET_NR_fchown:
7933 ret = get_errno(fchown(arg1, low2highuid(arg2), low2highgid(arg3)));
7934 break;
7935 #if defined(TARGET_NR_fchownat)
7936 case TARGET_NR_fchownat:
7937 if (!(p = lock_user_string(arg2)))
7938 goto efault;
7939 ret = get_errno(fchownat(arg1, p, low2highuid(arg3),
7940 low2highgid(arg4), arg5));
7941 unlock_user(p, arg2, 0);
7942 break;
7943 #endif
7944 #ifdef TARGET_NR_setresuid
7945 case TARGET_NR_setresuid:
7946 ret = get_errno(setresuid(low2highuid(arg1),
7947 low2highuid(arg2),
7948 low2highuid(arg3)));
7949 break;
7950 #endif
7951 #ifdef TARGET_NR_getresuid
7952 case TARGET_NR_getresuid:
7953 {
7954 uid_t ruid, euid, suid;
7955 ret = get_errno(getresuid(&ruid, &euid, &suid));
7956 if (!is_error(ret)) {
7957 if (put_user_id(high2lowuid(ruid), arg1)
7958 || put_user_id(high2lowuid(euid), arg2)
7959 || put_user_id(high2lowuid(suid), arg3))
7960 goto efault;
7961 }
7962 }
7963 break;
7964 #endif
7965 #ifdef TARGET_NR_getresgid
7966 case TARGET_NR_setresgid:
7967 ret = get_errno(setresgid(low2highgid(arg1),
7968 low2highgid(arg2),
7969 low2highgid(arg3)));
7970 break;
7971 #endif
7972 #ifdef TARGET_NR_getresgid
7973 case TARGET_NR_getresgid:
7974 {
7975 gid_t rgid, egid, sgid;
7976 ret = get_errno(getresgid(&rgid, &egid, &sgid));
7977 if (!is_error(ret)) {
7978 if (put_user_id(high2lowgid(rgid), arg1)
7979 || put_user_id(high2lowgid(egid), arg2)
7980 || put_user_id(high2lowgid(sgid), arg3))
7981 goto efault;
7982 }
7983 }
7984 break;
7985 #endif
7986 case TARGET_NR_chown:
7987 if (!(p = lock_user_string(arg1)))
7988 goto efault;
7989 ret = get_errno(chown(p, low2highuid(arg2), low2highgid(arg3)));
7990 unlock_user(p, arg1, 0);
7991 break;
7992 case TARGET_NR_setuid:
7993 ret = get_errno(setuid(low2highuid(arg1)));
7994 break;
7995 case TARGET_NR_setgid:
7996 ret = get_errno(setgid(low2highgid(arg1)));
7997 break;
7998 case TARGET_NR_setfsuid:
7999 ret = get_errno(setfsuid(arg1));
8000 break;
8001 case TARGET_NR_setfsgid:
8002 ret = get_errno(setfsgid(arg1));
8003 break;
8004
8005 #ifdef TARGET_NR_lchown32
8006 case TARGET_NR_lchown32:
8007 if (!(p = lock_user_string(arg1)))
8008 goto efault;
8009 ret = get_errno(lchown(p, arg2, arg3));
8010 unlock_user(p, arg1, 0);
8011 break;
8012 #endif
8013 #ifdef TARGET_NR_getuid32
8014 case TARGET_NR_getuid32:
8015 ret = get_errno(getuid());
8016 break;
8017 #endif
8018
8019 #if defined(TARGET_NR_getxuid) && defined(TARGET_ALPHA)
8020 /* Alpha specific */
8021 case TARGET_NR_getxuid:
8022 {
8023 uid_t euid;
8024 euid=geteuid();
8025 ((CPUAlphaState *)cpu_env)->ir[IR_A4]=euid;
8026 }
8027 ret = get_errno(getuid());
8028 break;
8029 #endif
8030 #if defined(TARGET_NR_getxgid) && defined(TARGET_ALPHA)
8031 /* Alpha specific */
8032 case TARGET_NR_getxgid:
8033 {
8034 uid_t egid;
8035 egid=getegid();
8036 ((CPUAlphaState *)cpu_env)->ir[IR_A4]=egid;
8037 }
8038 ret = get_errno(getgid());
8039 break;
8040 #endif
8041 #if defined(TARGET_NR_osf_getsysinfo) && defined(TARGET_ALPHA)
8042 /* Alpha specific */
8043 case TARGET_NR_osf_getsysinfo:
8044 ret = -TARGET_EOPNOTSUPP;
8045 switch (arg1) {
8046 case TARGET_GSI_IEEE_FP_CONTROL:
8047 {
8048 uint64_t swcr, fpcr = cpu_alpha_load_fpcr (cpu_env);
8049
8050 /* Copied from linux ieee_fpcr_to_swcr. */
8051 swcr = (fpcr >> 35) & SWCR_STATUS_MASK;
8052 swcr |= (fpcr >> 36) & SWCR_MAP_DMZ;
8053 swcr |= (~fpcr >> 48) & (SWCR_TRAP_ENABLE_INV
8054 | SWCR_TRAP_ENABLE_DZE
8055 | SWCR_TRAP_ENABLE_OVF);
8056 swcr |= (~fpcr >> 57) & (SWCR_TRAP_ENABLE_UNF
8057 | SWCR_TRAP_ENABLE_INE);
8058 swcr |= (fpcr >> 47) & SWCR_MAP_UMZ;
8059 swcr |= (~fpcr >> 41) & SWCR_TRAP_ENABLE_DNO;
8060
8061 if (put_user_u64 (swcr, arg2))
8062 goto efault;
8063 ret = 0;
8064 }
8065 break;
8066
8067 /* case GSI_IEEE_STATE_AT_SIGNAL:
8068 -- Not implemented in linux kernel.
8069 case GSI_UACPROC:
8070 -- Retrieves current unaligned access state; not much used.
8071 case GSI_PROC_TYPE:
8072 -- Retrieves implver information; surely not used.
8073 case GSI_GET_HWRPB:
8074 -- Grabs a copy of the HWRPB; surely not used.
8075 */
8076 }
8077 break;
8078 #endif
8079 #if defined(TARGET_NR_osf_setsysinfo) && defined(TARGET_ALPHA)
8080 /* Alpha specific */
8081 case TARGET_NR_osf_setsysinfo:
8082 ret = -TARGET_EOPNOTSUPP;
8083 switch (arg1) {
8084 case TARGET_SSI_IEEE_FP_CONTROL:
8085 {
8086 uint64_t swcr, fpcr, orig_fpcr;
8087
8088 if (get_user_u64 (swcr, arg2)) {
8089 goto efault;
8090 }
8091 orig_fpcr = cpu_alpha_load_fpcr(cpu_env);
8092 fpcr = orig_fpcr & FPCR_DYN_MASK;
8093
8094 /* Copied from linux ieee_swcr_to_fpcr. */
8095 fpcr |= (swcr & SWCR_STATUS_MASK) << 35;
8096 fpcr |= (swcr & SWCR_MAP_DMZ) << 36;
8097 fpcr |= (~swcr & (SWCR_TRAP_ENABLE_INV
8098 | SWCR_TRAP_ENABLE_DZE
8099 | SWCR_TRAP_ENABLE_OVF)) << 48;
8100 fpcr |= (~swcr & (SWCR_TRAP_ENABLE_UNF
8101 | SWCR_TRAP_ENABLE_INE)) << 57;
8102 fpcr |= (swcr & SWCR_MAP_UMZ ? FPCR_UNDZ | FPCR_UNFD : 0);
8103 fpcr |= (~swcr & SWCR_TRAP_ENABLE_DNO) << 41;
8104
8105 cpu_alpha_store_fpcr(cpu_env, fpcr);
8106 ret = 0;
8107 }
8108 break;
8109
8110 case TARGET_SSI_IEEE_RAISE_EXCEPTION:
8111 {
8112 uint64_t exc, fpcr, orig_fpcr;
8113 int si_code;
8114
8115 if (get_user_u64(exc, arg2)) {
8116 goto efault;
8117 }
8118
8119 orig_fpcr = cpu_alpha_load_fpcr(cpu_env);
8120
8121 /* We only add to the exception status here. */
8122 fpcr = orig_fpcr | ((exc & SWCR_STATUS_MASK) << 35);
8123
8124 cpu_alpha_store_fpcr(cpu_env, fpcr);
8125 ret = 0;
8126
8127 /* Old exceptions are not signaled. */
8128 fpcr &= ~(orig_fpcr & FPCR_STATUS_MASK);
8129
8130 /* If any exceptions set by this call,
8131 and are unmasked, send a signal. */
8132 si_code = 0;
8133 if ((fpcr & (FPCR_INE | FPCR_INED)) == FPCR_INE) {
8134 si_code = TARGET_FPE_FLTRES;
8135 }
8136 if ((fpcr & (FPCR_UNF | FPCR_UNFD)) == FPCR_UNF) {
8137 si_code = TARGET_FPE_FLTUND;
8138 }
8139 if ((fpcr & (FPCR_OVF | FPCR_OVFD)) == FPCR_OVF) {
8140 si_code = TARGET_FPE_FLTOVF;
8141 }
8142 if ((fpcr & (FPCR_DZE | FPCR_DZED)) == FPCR_DZE) {
8143 si_code = TARGET_FPE_FLTDIV;
8144 }
8145 if ((fpcr & (FPCR_INV | FPCR_INVD)) == FPCR_INV) {
8146 si_code = TARGET_FPE_FLTINV;
8147 }
8148 if (si_code != 0) {
8149 target_siginfo_t info;
8150 info.si_signo = SIGFPE;
8151 info.si_errno = 0;
8152 info.si_code = si_code;
8153 info._sifields._sigfault._addr
8154 = ((CPUArchState *)cpu_env)->pc;
8155 queue_signal((CPUArchState *)cpu_env, info.si_signo, &info);
8156 }
8157 }
8158 break;
8159
8160 /* case SSI_NVPAIRS:
8161 -- Used with SSIN_UACPROC to enable unaligned accesses.
8162 case SSI_IEEE_STATE_AT_SIGNAL:
8163 case SSI_IEEE_IGNORE_STATE_AT_SIGNAL:
8164 -- Not implemented in linux kernel
8165 */
8166 }
8167 break;
8168 #endif
8169 #ifdef TARGET_NR_osf_sigprocmask
8170 /* Alpha specific. */
8171 case TARGET_NR_osf_sigprocmask:
8172 {
8173 abi_ulong mask;
8174 int how;
8175 sigset_t set, oldset;
8176
8177 switch(arg1) {
8178 case TARGET_SIG_BLOCK:
8179 how = SIG_BLOCK;
8180 break;
8181 case TARGET_SIG_UNBLOCK:
8182 how = SIG_UNBLOCK;
8183 break;
8184 case TARGET_SIG_SETMASK:
8185 how = SIG_SETMASK;
8186 break;
8187 default:
8188 ret = -TARGET_EINVAL;
8189 goto fail;
8190 }
8191 mask = arg2;
8192 target_to_host_old_sigset(&set, &mask);
8193 do_sigprocmask(how, &set, &oldset);
8194 host_to_target_old_sigset(&mask, &oldset);
8195 ret = mask;
8196 }
8197 break;
8198 #endif
8199
8200 #ifdef TARGET_NR_getgid32
8201 case TARGET_NR_getgid32:
8202 ret = get_errno(getgid());
8203 break;
8204 #endif
8205 #ifdef TARGET_NR_geteuid32
8206 case TARGET_NR_geteuid32:
8207 ret = get_errno(geteuid());
8208 break;
8209 #endif
8210 #ifdef TARGET_NR_getegid32
8211 case TARGET_NR_getegid32:
8212 ret = get_errno(getegid());
8213 break;
8214 #endif
8215 #ifdef TARGET_NR_setreuid32
8216 case TARGET_NR_setreuid32:
8217 ret = get_errno(setreuid(arg1, arg2));
8218 break;
8219 #endif
8220 #ifdef TARGET_NR_setregid32
8221 case TARGET_NR_setregid32:
8222 ret = get_errno(setregid(arg1, arg2));
8223 break;
8224 #endif
8225 #ifdef TARGET_NR_getgroups32
8226 case TARGET_NR_getgroups32:
8227 {
8228 int gidsetsize = arg1;
8229 uint32_t *target_grouplist;
8230 gid_t *grouplist;
8231 int i;
8232
8233 grouplist = alloca(gidsetsize * sizeof(gid_t));
8234 ret = get_errno(getgroups(gidsetsize, grouplist));
8235 if (gidsetsize == 0)
8236 break;
8237 if (!is_error(ret)) {
8238 target_grouplist = lock_user(VERIFY_WRITE, arg2, gidsetsize * 4, 0);
8239 if (!target_grouplist) {
8240 ret = -TARGET_EFAULT;
8241 goto fail;
8242 }
8243 for(i = 0;i < ret; i++)
8244 target_grouplist[i] = tswap32(grouplist[i]);
8245 unlock_user(target_grouplist, arg2, gidsetsize * 4);
8246 }
8247 }
8248 break;
8249 #endif
8250 #ifdef TARGET_NR_setgroups32
8251 case TARGET_NR_setgroups32:
8252 {
8253 int gidsetsize = arg1;
8254 uint32_t *target_grouplist;
8255 gid_t *grouplist;
8256 int i;
8257
8258 grouplist = alloca(gidsetsize * sizeof(gid_t));
8259 target_grouplist = lock_user(VERIFY_READ, arg2, gidsetsize * 4, 1);
8260 if (!target_grouplist) {
8261 ret = -TARGET_EFAULT;
8262 goto fail;
8263 }
8264 for(i = 0;i < gidsetsize; i++)
8265 grouplist[i] = tswap32(target_grouplist[i]);
8266 unlock_user(target_grouplist, arg2, 0);
8267 ret = get_errno(setgroups(gidsetsize, grouplist));
8268 }
8269 break;
8270 #endif
8271 #ifdef TARGET_NR_fchown32
8272 case TARGET_NR_fchown32:
8273 ret = get_errno(fchown(arg1, arg2, arg3));
8274 break;
8275 #endif
8276 #ifdef TARGET_NR_setresuid32
8277 case TARGET_NR_setresuid32:
8278 ret = get_errno(setresuid(arg1, arg2, arg3));
8279 break;
8280 #endif
8281 #ifdef TARGET_NR_getresuid32
8282 case TARGET_NR_getresuid32:
8283 {
8284 uid_t ruid, euid, suid;
8285 ret = get_errno(getresuid(&ruid, &euid, &suid));
8286 if (!is_error(ret)) {
8287 if (put_user_u32(ruid, arg1)
8288 || put_user_u32(euid, arg2)
8289 || put_user_u32(suid, arg3))
8290 goto efault;
8291 }
8292 }
8293 break;
8294 #endif
8295 #ifdef TARGET_NR_setresgid32
8296 case TARGET_NR_setresgid32:
8297 ret = get_errno(setresgid(arg1, arg2, arg3));
8298 break;
8299 #endif
8300 #ifdef TARGET_NR_getresgid32
8301 case TARGET_NR_getresgid32:
8302 {
8303 gid_t rgid, egid, sgid;
8304 ret = get_errno(getresgid(&rgid, &egid, &sgid));
8305 if (!is_error(ret)) {
8306 if (put_user_u32(rgid, arg1)
8307 || put_user_u32(egid, arg2)
8308 || put_user_u32(sgid, arg3))
8309 goto efault;
8310 }
8311 }
8312 break;
8313 #endif
8314 #ifdef TARGET_NR_chown32
8315 case TARGET_NR_chown32:
8316 if (!(p = lock_user_string(arg1)))
8317 goto efault;
8318 ret = get_errno(chown(p, arg2, arg3));
8319 unlock_user(p, arg1, 0);
8320 break;
8321 #endif
8322 #ifdef TARGET_NR_setuid32
8323 case TARGET_NR_setuid32:
8324 ret = get_errno(setuid(arg1));
8325 break;
8326 #endif
8327 #ifdef TARGET_NR_setgid32
8328 case TARGET_NR_setgid32:
8329 ret = get_errno(setgid(arg1));
8330 break;
8331 #endif
8332 #ifdef TARGET_NR_setfsuid32
8333 case TARGET_NR_setfsuid32:
8334 ret = get_errno(setfsuid(arg1));
8335 break;
8336 #endif
8337 #ifdef TARGET_NR_setfsgid32
8338 case TARGET_NR_setfsgid32:
8339 ret = get_errno(setfsgid(arg1));
8340 break;
8341 #endif
8342
8343 case TARGET_NR_pivot_root:
8344 goto unimplemented;
8345 #ifdef TARGET_NR_mincore
8346 case TARGET_NR_mincore:
8347 {
8348 void *a;
8349 ret = -TARGET_EFAULT;
8350 if (!(a = lock_user(VERIFY_READ, arg1,arg2, 0)))
8351 goto efault;
8352 if (!(p = lock_user_string(arg3)))
8353 goto mincore_fail;
8354 ret = get_errno(mincore(a, arg2, p));
8355 unlock_user(p, arg3, ret);
8356 mincore_fail:
8357 unlock_user(a, arg1, 0);
8358 }
8359 break;
8360 #endif
8361 #ifdef TARGET_NR_arm_fadvise64_64
8362 case TARGET_NR_arm_fadvise64_64:
8363 {
8364 /*
8365 * arm_fadvise64_64 looks like fadvise64_64 but
8366 * with different argument order
8367 */
8368 abi_long temp;
8369 temp = arg3;
8370 arg3 = arg4;
8371 arg4 = temp;
8372 }
8373 #endif
8374 #if defined(TARGET_NR_fadvise64_64) || defined(TARGET_NR_arm_fadvise64_64) || defined(TARGET_NR_fadvise64)
8375 #ifdef TARGET_NR_fadvise64_64
8376 case TARGET_NR_fadvise64_64:
8377 #endif
8378 #ifdef TARGET_NR_fadvise64
8379 case TARGET_NR_fadvise64:
8380 #endif
8381 #ifdef TARGET_S390X
8382 switch (arg4) {
8383 case 4: arg4 = POSIX_FADV_NOREUSE + 1; break; /* make sure it's an invalid value */
8384 case 5: arg4 = POSIX_FADV_NOREUSE + 2; break; /* ditto */
8385 case 6: arg4 = POSIX_FADV_DONTNEED; break;
8386 case 7: arg4 = POSIX_FADV_NOREUSE; break;
8387 default: break;
8388 }
8389 #endif
8390 ret = -posix_fadvise(arg1, arg2, arg3, arg4);
8391 break;
8392 #endif
8393 #ifdef TARGET_NR_madvise
8394 case TARGET_NR_madvise:
8395 /* A straight passthrough may not be safe because qemu sometimes
8396 turns private file-backed mappings into anonymous mappings.
8397 This will break MADV_DONTNEED.
8398 This is a hint, so ignoring and returning success is ok. */
8399 ret = get_errno(0);
8400 break;
8401 #endif
8402 #if TARGET_ABI_BITS == 32
8403 case TARGET_NR_fcntl64:
8404 {
8405 int cmd;
8406 struct flock64 fl;
8407 struct target_flock64 *target_fl;
8408 #ifdef TARGET_ARM
8409 struct target_eabi_flock64 *target_efl;
8410 #endif
8411
8412 cmd = target_to_host_fcntl_cmd(arg2);
8413 if (cmd == -TARGET_EINVAL) {
8414 ret = cmd;
8415 break;
8416 }
8417
8418 switch(arg2) {
8419 case TARGET_F_GETLK64:
8420 #ifdef TARGET_ARM
8421 if (((CPUARMState *)cpu_env)->eabi) {
8422 if (!lock_user_struct(VERIFY_READ, target_efl, arg3, 1))
8423 goto efault;
8424 fl.l_type = tswap16(target_efl->l_type);
8425 fl.l_whence = tswap16(target_efl->l_whence);
8426 fl.l_start = tswap64(target_efl->l_start);
8427 fl.l_len = tswap64(target_efl->l_len);
8428 fl.l_pid = tswap32(target_efl->l_pid);
8429 unlock_user_struct(target_efl, arg3, 0);
8430 } else
8431 #endif
8432 {
8433 if (!lock_user_struct(VERIFY_READ, target_fl, arg3, 1))
8434 goto efault;
8435 fl.l_type = tswap16(target_fl->l_type);
8436 fl.l_whence = tswap16(target_fl->l_whence);
8437 fl.l_start = tswap64(target_fl->l_start);
8438 fl.l_len = tswap64(target_fl->l_len);
8439 fl.l_pid = tswap32(target_fl->l_pid);
8440 unlock_user_struct(target_fl, arg3, 0);
8441 }
8442 ret = get_errno(fcntl(arg1, cmd, &fl));
8443 if (ret == 0) {
8444 #ifdef TARGET_ARM
8445 if (((CPUARMState *)cpu_env)->eabi) {
8446 if (!lock_user_struct(VERIFY_WRITE, target_efl, arg3, 0))
8447 goto efault;
8448 target_efl->l_type = tswap16(fl.l_type);
8449 target_efl->l_whence = tswap16(fl.l_whence);
8450 target_efl->l_start = tswap64(fl.l_start);
8451 target_efl->l_len = tswap64(fl.l_len);
8452 target_efl->l_pid = tswap32(fl.l_pid);
8453 unlock_user_struct(target_efl, arg3, 1);
8454 } else
8455 #endif
8456 {
8457 if (!lock_user_struct(VERIFY_WRITE, target_fl, arg3, 0))
8458 goto efault;
8459 target_fl->l_type = tswap16(fl.l_type);
8460 target_fl->l_whence = tswap16(fl.l_whence);
8461 target_fl->l_start = tswap64(fl.l_start);
8462 target_fl->l_len = tswap64(fl.l_len);
8463 target_fl->l_pid = tswap32(fl.l_pid);
8464 unlock_user_struct(target_fl, arg3, 1);
8465 }
8466 }
8467 break;
8468
8469 case TARGET_F_SETLK64:
8470 case TARGET_F_SETLKW64:
8471 #ifdef TARGET_ARM
8472 if (((CPUARMState *)cpu_env)->eabi) {
8473 if (!lock_user_struct(VERIFY_READ, target_efl, arg3, 1))
8474 goto efault;
8475 fl.l_type = tswap16(target_efl->l_type);
8476 fl.l_whence = tswap16(target_efl->l_whence);
8477 fl.l_start = tswap64(target_efl->l_start);
8478 fl.l_len = tswap64(target_efl->l_len);
8479 fl.l_pid = tswap32(target_efl->l_pid);
8480 unlock_user_struct(target_efl, arg3, 0);
8481 } else
8482 #endif
8483 {
8484 if (!lock_user_struct(VERIFY_READ, target_fl, arg3, 1))
8485 goto efault;
8486 fl.l_type = tswap16(target_fl->l_type);
8487 fl.l_whence = tswap16(target_fl->l_whence);
8488 fl.l_start = tswap64(target_fl->l_start);
8489 fl.l_len = tswap64(target_fl->l_len);
8490 fl.l_pid = tswap32(target_fl->l_pid);
8491 unlock_user_struct(target_fl, arg3, 0);
8492 }
8493 ret = get_errno(fcntl(arg1, cmd, &fl));
8494 break;
8495 default:
8496 ret = do_fcntl(arg1, arg2, arg3);
8497 break;
8498 }
8499 break;
8500 }
8501 #endif
8502 #ifdef TARGET_NR_cacheflush
8503 case TARGET_NR_cacheflush:
8504 /* self-modifying code is handled automatically, so nothing needed */
8505 ret = 0;
8506 break;
8507 #endif
8508 #ifdef TARGET_NR_security
8509 case TARGET_NR_security:
8510 goto unimplemented;
8511 #endif
8512 #ifdef TARGET_NR_getpagesize
8513 case TARGET_NR_getpagesize:
8514 ret = TARGET_PAGE_SIZE;
8515 break;
8516 #endif
8517 case TARGET_NR_gettid:
8518 ret = get_errno(gettid());
8519 break;
8520 #ifdef TARGET_NR_readahead
8521 case TARGET_NR_readahead:
8522 #if TARGET_ABI_BITS == 32
8523 if (regpairs_aligned(cpu_env)) {
8524 arg2 = arg3;
8525 arg3 = arg4;
8526 arg4 = arg5;
8527 }
8528 ret = get_errno(readahead(arg1, ((off64_t)arg3 << 32) | arg2, arg4));
8529 #else
8530 ret = get_errno(readahead(arg1, arg2, arg3));
8531 #endif
8532 break;
8533 #endif
8534 #ifdef CONFIG_ATTR
8535 #ifdef TARGET_NR_setxattr
8536 case TARGET_NR_listxattr:
8537 case TARGET_NR_llistxattr:
8538 {
8539 void *p, *b = 0;
8540 if (arg2) {
8541 b = lock_user(VERIFY_WRITE, arg2, arg3, 0);
8542 if (!b) {
8543 ret = -TARGET_EFAULT;
8544 break;
8545 }
8546 }
8547 p = lock_user_string(arg1);
8548 if (p) {
8549 if (num == TARGET_NR_listxattr) {
8550 ret = get_errno(listxattr(p, b, arg3));
8551 } else {
8552 ret = get_errno(llistxattr(p, b, arg3));
8553 }
8554 } else {
8555 ret = -TARGET_EFAULT;
8556 }
8557 unlock_user(p, arg1, 0);
8558 unlock_user(b, arg2, arg3);
8559 break;
8560 }
8561 case TARGET_NR_flistxattr:
8562 {
8563 void *b = 0;
8564 if (arg2) {
8565 b = lock_user(VERIFY_WRITE, arg2, arg3, 0);
8566 if (!b) {
8567 ret = -TARGET_EFAULT;
8568 break;
8569 }
8570 }
8571 ret = get_errno(flistxattr(arg1, b, arg3));
8572 unlock_user(b, arg2, arg3);
8573 break;
8574 }
8575 case TARGET_NR_setxattr:
8576 case TARGET_NR_lsetxattr:
8577 {
8578 void *p, *n, *v = 0;
8579 if (arg3) {
8580 v = lock_user(VERIFY_READ, arg3, arg4, 1);
8581 if (!v) {
8582 ret = -TARGET_EFAULT;
8583 break;
8584 }
8585 }
8586 p = lock_user_string(arg1);
8587 n = lock_user_string(arg2);
8588 if (p && n) {
8589 if (num == TARGET_NR_setxattr) {
8590 ret = get_errno(setxattr(p, n, v, arg4, arg5));
8591 } else {
8592 ret = get_errno(lsetxattr(p, n, v, arg4, arg5));
8593 }
8594 } else {
8595 ret = -TARGET_EFAULT;
8596 }
8597 unlock_user(p, arg1, 0);
8598 unlock_user(n, arg2, 0);
8599 unlock_user(v, arg3, 0);
8600 }
8601 break;
8602 case TARGET_NR_fsetxattr:
8603 {
8604 void *n, *v = 0;
8605 if (arg3) {
8606 v = lock_user(VERIFY_READ, arg3, arg4, 1);
8607 if (!v) {
8608 ret = -TARGET_EFAULT;
8609 break;
8610 }
8611 }
8612 n = lock_user_string(arg2);
8613 if (n) {
8614 ret = get_errno(fsetxattr(arg1, n, v, arg4, arg5));
8615 } else {
8616 ret = -TARGET_EFAULT;
8617 }
8618 unlock_user(n, arg2, 0);
8619 unlock_user(v, arg3, 0);
8620 }
8621 break;
8622 case TARGET_NR_getxattr:
8623 case TARGET_NR_lgetxattr:
8624 {
8625 void *p, *n, *v = 0;
8626 if (arg3) {
8627 v = lock_user(VERIFY_WRITE, arg3, arg4, 0);
8628 if (!v) {
8629 ret = -TARGET_EFAULT;
8630 break;
8631 }
8632 }
8633 p = lock_user_string(arg1);
8634 n = lock_user_string(arg2);
8635 if (p && n) {
8636 if (num == TARGET_NR_getxattr) {
8637 ret = get_errno(getxattr(p, n, v, arg4));
8638 } else {
8639 ret = get_errno(lgetxattr(p, n, v, arg4));
8640 }
8641 } else {
8642 ret = -TARGET_EFAULT;
8643 }
8644 unlock_user(p, arg1, 0);
8645 unlock_user(n, arg2, 0);
8646 unlock_user(v, arg3, arg4);
8647 }
8648 break;
8649 case TARGET_NR_fgetxattr:
8650 {
8651 void *n, *v = 0;
8652 if (arg3) {
8653 v = lock_user(VERIFY_WRITE, arg3, arg4, 0);
8654 if (!v) {
8655 ret = -TARGET_EFAULT;
8656 break;
8657 }
8658 }
8659 n = lock_user_string(arg2);
8660 if (n) {
8661 ret = get_errno(fgetxattr(arg1, n, v, arg4));
8662 } else {
8663 ret = -TARGET_EFAULT;
8664 }
8665 unlock_user(n, arg2, 0);
8666 unlock_user(v, arg3, arg4);
8667 }
8668 break;
8669 case TARGET_NR_removexattr:
8670 case TARGET_NR_lremovexattr:
8671 {
8672 void *p, *n;
8673 p = lock_user_string(arg1);
8674 n = lock_user_string(arg2);
8675 if (p && n) {
8676 if (num == TARGET_NR_removexattr) {
8677 ret = get_errno(removexattr(p, n));
8678 } else {
8679 ret = get_errno(lremovexattr(p, n));
8680 }
8681 } else {
8682 ret = -TARGET_EFAULT;
8683 }
8684 unlock_user(p, arg1, 0);
8685 unlock_user(n, arg2, 0);
8686 }
8687 break;
8688 case TARGET_NR_fremovexattr:
8689 {
8690 void *n;
8691 n = lock_user_string(arg2);
8692 if (n) {
8693 ret = get_errno(fremovexattr(arg1, n));
8694 } else {
8695 ret = -TARGET_EFAULT;
8696 }
8697 unlock_user(n, arg2, 0);
8698 }
8699 break;
8700 #endif
8701 #endif /* CONFIG_ATTR */
8702 #ifdef TARGET_NR_set_thread_area
8703 case TARGET_NR_set_thread_area:
8704 #if defined(TARGET_MIPS)
8705 ((CPUMIPSState *) cpu_env)->active_tc.CP0_UserLocal = arg1;
8706 ret = 0;
8707 break;
8708 #elif defined(TARGET_CRIS)
8709 if (arg1 & 0xff)
8710 ret = -TARGET_EINVAL;
8711 else {
8712 ((CPUCRISState *) cpu_env)->pregs[PR_PID] = arg1;
8713 ret = 0;
8714 }
8715 break;
8716 #elif defined(TARGET_I386) && defined(TARGET_ABI32)
8717 ret = do_set_thread_area(cpu_env, arg1);
8718 break;
8719 #elif defined(TARGET_M68K)
8720 {
8721 TaskState *ts = cpu->opaque;
8722 ts->tp_value = arg1;
8723 ret = 0;
8724 break;
8725 }
8726 #else
8727 goto unimplemented_nowarn;
8728 #endif
8729 #endif
8730 #ifdef TARGET_NR_get_thread_area
8731 case TARGET_NR_get_thread_area:
8732 #if defined(TARGET_I386) && defined(TARGET_ABI32)
8733 ret = do_get_thread_area(cpu_env, arg1);
8734 break;
8735 #elif defined(TARGET_M68K)
8736 {
8737 TaskState *ts = cpu->opaque;
8738 ret = ts->tp_value;
8739 break;
8740 }
8741 #else
8742 goto unimplemented_nowarn;
8743 #endif
8744 #endif
8745 #ifdef TARGET_NR_getdomainname
8746 case TARGET_NR_getdomainname:
8747 goto unimplemented_nowarn;
8748 #endif
8749
8750 #ifdef TARGET_NR_clock_gettime
8751 case TARGET_NR_clock_gettime:
8752 {
8753 struct timespec ts;
8754 ret = get_errno(clock_gettime(arg1, &ts));
8755 if (!is_error(ret)) {
8756 host_to_target_timespec(arg2, &ts);
8757 }
8758 break;
8759 }
8760 #endif
8761 #ifdef TARGET_NR_clock_getres
8762 case TARGET_NR_clock_getres:
8763 {
8764 struct timespec ts;
8765 ret = get_errno(clock_getres(arg1, &ts));
8766 if (!is_error(ret)) {
8767 host_to_target_timespec(arg2, &ts);
8768 }
8769 break;
8770 }
8771 #endif
8772 #ifdef TARGET_NR_clock_nanosleep
8773 case TARGET_NR_clock_nanosleep:
8774 {
8775 struct timespec ts;
8776 target_to_host_timespec(&ts, arg3);
8777 ret = get_errno(clock_nanosleep(arg1, arg2, &ts, arg4 ? &ts : NULL));
8778 if (arg4)
8779 host_to_target_timespec(arg4, &ts);
8780 break;
8781 }
8782 #endif
8783
8784 #if defined(TARGET_NR_set_tid_address) && defined(__NR_set_tid_address)
8785 case TARGET_NR_set_tid_address:
8786 ret = get_errno(set_tid_address((int *)g2h(arg1)));
8787 break;
8788 #endif
8789
8790 #if defined(TARGET_NR_tkill) && defined(__NR_tkill)
8791 case TARGET_NR_tkill:
8792 ret = get_errno(sys_tkill((int)arg1, target_to_host_signal(arg2)));
8793 break;
8794 #endif
8795
8796 #if defined(TARGET_NR_tgkill) && defined(__NR_tgkill)
8797 case TARGET_NR_tgkill:
8798 ret = get_errno(sys_tgkill((int)arg1, (int)arg2,
8799 target_to_host_signal(arg3)));
8800 break;
8801 #endif
8802
8803 #ifdef TARGET_NR_set_robust_list
8804 case TARGET_NR_set_robust_list:
8805 case TARGET_NR_get_robust_list:
8806 /* The ABI for supporting robust futexes has userspace pass
8807 * the kernel a pointer to a linked list which is updated by
8808 * userspace after the syscall; the list is walked by the kernel
8809 * when the thread exits. Since the linked list in QEMU guest
8810 * memory isn't a valid linked list for the host and we have
8811 * no way to reliably intercept the thread-death event, we can't
8812 * support these. Silently return ENOSYS so that guest userspace
8813 * falls back to a non-robust futex implementation (which should
8814 * be OK except in the corner case of the guest crashing while
8815 * holding a mutex that is shared with another process via
8816 * shared memory).
8817 */
8818 goto unimplemented_nowarn;
8819 #endif
8820
8821 #if defined(TARGET_NR_utimensat)
8822 case TARGET_NR_utimensat:
8823 {
8824 struct timespec *tsp, ts[2];
8825 if (!arg3) {
8826 tsp = NULL;
8827 } else {
8828 target_to_host_timespec(ts, arg3);
8829 target_to_host_timespec(ts+1, arg3+sizeof(struct target_timespec));
8830 tsp = ts;
8831 }
8832 if (!arg2)
8833 ret = get_errno(sys_utimensat(arg1, NULL, tsp, arg4));
8834 else {
8835 if (!(p = lock_user_string(arg2))) {
8836 ret = -TARGET_EFAULT;
8837 goto fail;
8838 }
8839 ret = get_errno(sys_utimensat(arg1, path(p), tsp, arg4));
8840 unlock_user(p, arg2, 0);
8841 }
8842 }
8843 break;
8844 #endif
8845 case TARGET_NR_futex:
8846 ret = do_futex(arg1, arg2, arg3, arg4, arg5, arg6);
8847 break;
8848 #if defined(TARGET_NR_inotify_init) && defined(__NR_inotify_init)
8849 case TARGET_NR_inotify_init:
8850 ret = get_errno(sys_inotify_init());
8851 break;
8852 #endif
8853 #ifdef CONFIG_INOTIFY1
8854 #if defined(TARGET_NR_inotify_init1) && defined(__NR_inotify_init1)
8855 case TARGET_NR_inotify_init1:
8856 ret = get_errno(sys_inotify_init1(arg1));
8857 break;
8858 #endif
8859 #endif
8860 #if defined(TARGET_NR_inotify_add_watch) && defined(__NR_inotify_add_watch)
8861 case TARGET_NR_inotify_add_watch:
8862 p = lock_user_string(arg2);
8863 ret = get_errno(sys_inotify_add_watch(arg1, path(p), arg3));
8864 unlock_user(p, arg2, 0);
8865 break;
8866 #endif
8867 #if defined(TARGET_NR_inotify_rm_watch) && defined(__NR_inotify_rm_watch)
8868 case TARGET_NR_inotify_rm_watch:
8869 ret = get_errno(sys_inotify_rm_watch(arg1, arg2));
8870 break;
8871 #endif
8872
8873 #if defined(TARGET_NR_mq_open) && defined(__NR_mq_open)
8874 case TARGET_NR_mq_open:
8875 {
8876 struct mq_attr posix_mq_attr;
8877
8878 p = lock_user_string(arg1 - 1);
8879 if (arg4 != 0)
8880 copy_from_user_mq_attr (&posix_mq_attr, arg4);
8881 ret = get_errno(mq_open(p, arg2, arg3, &posix_mq_attr));
8882 unlock_user (p, arg1, 0);
8883 }
8884 break;
8885
8886 case TARGET_NR_mq_unlink:
8887 p = lock_user_string(arg1 - 1);
8888 ret = get_errno(mq_unlink(p));
8889 unlock_user (p, arg1, 0);
8890 break;
8891
8892 case TARGET_NR_mq_timedsend:
8893 {
8894 struct timespec ts;
8895
8896 p = lock_user (VERIFY_READ, arg2, arg3, 1);
8897 if (arg5 != 0) {
8898 target_to_host_timespec(&ts, arg5);
8899 ret = get_errno(mq_timedsend(arg1, p, arg3, arg4, &ts));
8900 host_to_target_timespec(arg5, &ts);
8901 }
8902 else
8903 ret = get_errno(mq_send(arg1, p, arg3, arg4));
8904 unlock_user (p, arg2, arg3);
8905 }
8906 break;
8907
8908 case TARGET_NR_mq_timedreceive:
8909 {
8910 struct timespec ts;
8911 unsigned int prio;
8912
8913 p = lock_user (VERIFY_READ, arg2, arg3, 1);
8914 if (arg5 != 0) {
8915 target_to_host_timespec(&ts, arg5);
8916 ret = get_errno(mq_timedreceive(arg1, p, arg3, &prio, &ts));
8917 host_to_target_timespec(arg5, &ts);
8918 }
8919 else
8920 ret = get_errno(mq_receive(arg1, p, arg3, &prio));
8921 unlock_user (p, arg2, arg3);
8922 if (arg4 != 0)
8923 put_user_u32(prio, arg4);
8924 }
8925 break;
8926
8927 /* Not implemented for now... */
8928 /* case TARGET_NR_mq_notify: */
8929 /* break; */
8930
8931 case TARGET_NR_mq_getsetattr:
8932 {
8933 struct mq_attr posix_mq_attr_in, posix_mq_attr_out;
8934 ret = 0;
8935 if (arg3 != 0) {
8936 ret = mq_getattr(arg1, &posix_mq_attr_out);
8937 copy_to_user_mq_attr(arg3, &posix_mq_attr_out);
8938 }
8939 if (arg2 != 0) {
8940 copy_from_user_mq_attr(&posix_mq_attr_in, arg2);
8941 ret |= mq_setattr(arg1, &posix_mq_attr_in, &posix_mq_attr_out);
8942 }
8943
8944 }
8945 break;
8946 #endif
8947
8948 #ifdef CONFIG_SPLICE
8949 #ifdef TARGET_NR_tee
8950 case TARGET_NR_tee:
8951 {
8952 ret = get_errno(tee(arg1,arg2,arg3,arg4));
8953 }
8954 break;
8955 #endif
8956 #ifdef TARGET_NR_splice
8957 case TARGET_NR_splice:
8958 {
8959 loff_t loff_in, loff_out;
8960 loff_t *ploff_in = NULL, *ploff_out = NULL;
8961 if(arg2) {
8962 get_user_u64(loff_in, arg2);
8963 ploff_in = &loff_in;
8964 }
8965 if(arg4) {
8966 get_user_u64(loff_out, arg2);
8967 ploff_out = &loff_out;
8968 }
8969 ret = get_errno(splice(arg1, ploff_in, arg3, ploff_out, arg5, arg6));
8970 }
8971 break;
8972 #endif
8973 #ifdef TARGET_NR_vmsplice
8974 case TARGET_NR_vmsplice:
8975 {
8976 struct iovec *vec = lock_iovec(VERIFY_READ, arg2, arg3, 1);
8977 if (vec != NULL) {
8978 ret = get_errno(vmsplice(arg1, vec, arg3, arg4));
8979 unlock_iovec(vec, arg2, arg3, 0);
8980 } else {
8981 ret = -host_to_target_errno(errno);
8982 }
8983 }
8984 break;
8985 #endif
8986 #endif /* CONFIG_SPLICE */
8987 #ifdef CONFIG_EVENTFD
8988 #if defined(TARGET_NR_eventfd)
8989 case TARGET_NR_eventfd:
8990 ret = get_errno(eventfd(arg1, 0));
8991 break;
8992 #endif
8993 #if defined(TARGET_NR_eventfd2)
8994 case TARGET_NR_eventfd2:
8995 {
8996 int host_flags = arg2 & (~(TARGET_O_NONBLOCK | TARGET_O_CLOEXEC));
8997 if (arg2 & TARGET_O_NONBLOCK) {
8998 host_flags |= O_NONBLOCK;
8999 }
9000 if (arg2 & TARGET_O_CLOEXEC) {
9001 host_flags |= O_CLOEXEC;
9002 }
9003 ret = get_errno(eventfd(arg1, host_flags));
9004 break;
9005 }
9006 #endif
9007 #endif /* CONFIG_EVENTFD */
9008 #if defined(CONFIG_FALLOCATE) && defined(TARGET_NR_fallocate)
9009 case TARGET_NR_fallocate:
9010 #if TARGET_ABI_BITS == 32
9011 ret = get_errno(fallocate(arg1, arg2, target_offset64(arg3, arg4),
9012 target_offset64(arg5, arg6)));
9013 #else
9014 ret = get_errno(fallocate(arg1, arg2, arg3, arg4));
9015 #endif
9016 break;
9017 #endif
9018 #if defined(CONFIG_SYNC_FILE_RANGE)
9019 #if defined(TARGET_NR_sync_file_range)
9020 case TARGET_NR_sync_file_range:
9021 #if TARGET_ABI_BITS == 32
9022 #if defined(TARGET_MIPS)
9023 ret = get_errno(sync_file_range(arg1, target_offset64(arg3, arg4),
9024 target_offset64(arg5, arg6), arg7));
9025 #else
9026 ret = get_errno(sync_file_range(arg1, target_offset64(arg2, arg3),
9027 target_offset64(arg4, arg5), arg6));
9028 #endif /* !TARGET_MIPS */
9029 #else
9030 ret = get_errno(sync_file_range(arg1, arg2, arg3, arg4));
9031 #endif
9032 break;
9033 #endif
9034 #if defined(TARGET_NR_sync_file_range2)
9035 case TARGET_NR_sync_file_range2:
9036 /* This is like sync_file_range but the arguments are reordered */
9037 #if TARGET_ABI_BITS == 32
9038 ret = get_errno(sync_file_range(arg1, target_offset64(arg3, arg4),
9039 target_offset64(arg5, arg6), arg2));
9040 #else
9041 ret = get_errno(sync_file_range(arg1, arg3, arg4, arg2));
9042 #endif
9043 break;
9044 #endif
9045 #endif
9046 #if defined(CONFIG_EPOLL)
9047 #if defined(TARGET_NR_epoll_create)
9048 case TARGET_NR_epoll_create:
9049 ret = get_errno(epoll_create(arg1));
9050 break;
9051 #endif
9052 #if defined(TARGET_NR_epoll_create1) && defined(CONFIG_EPOLL_CREATE1)
9053 case TARGET_NR_epoll_create1:
9054 ret = get_errno(epoll_create1(arg1));
9055 break;
9056 #endif
9057 #if defined(TARGET_NR_epoll_ctl)
9058 case TARGET_NR_epoll_ctl:
9059 {
9060 struct epoll_event ep;
9061 struct epoll_event *epp = 0;
9062 if (arg4) {
9063 struct target_epoll_event *target_ep;
9064 if (!lock_user_struct(VERIFY_READ, target_ep, arg4, 1)) {
9065 goto efault;
9066 }
9067 ep.events = tswap32(target_ep->events);
9068 /* The epoll_data_t union is just opaque data to the kernel,
9069 * so we transfer all 64 bits across and need not worry what
9070 * actual data type it is.
9071 */
9072 ep.data.u64 = tswap64(target_ep->data.u64);
9073 unlock_user_struct(target_ep, arg4, 0);
9074 epp = &ep;
9075 }
9076 ret = get_errno(epoll_ctl(arg1, arg2, arg3, epp));
9077 break;
9078 }
9079 #endif
9080
9081 #if defined(TARGET_NR_epoll_pwait) && defined(CONFIG_EPOLL_PWAIT)
9082 #define IMPLEMENT_EPOLL_PWAIT
9083 #endif
9084 #if defined(TARGET_NR_epoll_wait) || defined(IMPLEMENT_EPOLL_PWAIT)
9085 #if defined(TARGET_NR_epoll_wait)
9086 case TARGET_NR_epoll_wait:
9087 #endif
9088 #if defined(IMPLEMENT_EPOLL_PWAIT)
9089 case TARGET_NR_epoll_pwait:
9090 #endif
9091 {
9092 struct target_epoll_event *target_ep;
9093 struct epoll_event *ep;
9094 int epfd = arg1;
9095 int maxevents = arg3;
9096 int timeout = arg4;
9097
9098 target_ep = lock_user(VERIFY_WRITE, arg2,
9099 maxevents * sizeof(struct target_epoll_event), 1);
9100 if (!target_ep) {
9101 goto efault;
9102 }
9103
9104 ep = alloca(maxevents * sizeof(struct epoll_event));
9105
9106 switch (num) {
9107 #if defined(IMPLEMENT_EPOLL_PWAIT)
9108 case TARGET_NR_epoll_pwait:
9109 {
9110 target_sigset_t *target_set;
9111 sigset_t _set, *set = &_set;
9112
9113 if (arg5) {
9114 target_set = lock_user(VERIFY_READ, arg5,
9115 sizeof(target_sigset_t), 1);
9116 if (!target_set) {
9117 unlock_user(target_ep, arg2, 0);
9118 goto efault;
9119 }
9120 target_to_host_sigset(set, target_set);
9121 unlock_user(target_set, arg5, 0);
9122 } else {
9123 set = NULL;
9124 }
9125
9126 ret = get_errno(epoll_pwait(epfd, ep, maxevents, timeout, set));
9127 break;
9128 }
9129 #endif
9130 #if defined(TARGET_NR_epoll_wait)
9131 case TARGET_NR_epoll_wait:
9132 ret = get_errno(epoll_wait(epfd, ep, maxevents, timeout));
9133 break;
9134 #endif
9135 default:
9136 ret = -TARGET_ENOSYS;
9137 }
9138 if (!is_error(ret)) {
9139 int i;
9140 for (i = 0; i < ret; i++) {
9141 target_ep[i].events = tswap32(ep[i].events);
9142 target_ep[i].data.u64 = tswap64(ep[i].data.u64);
9143 }
9144 }
9145 unlock_user(target_ep, arg2, ret * sizeof(struct target_epoll_event));
9146 break;
9147 }
9148 #endif
9149 #endif
9150 #ifdef TARGET_NR_prlimit64
9151 case TARGET_NR_prlimit64:
9152 {
9153 /* args: pid, resource number, ptr to new rlimit, ptr to old rlimit */
9154 struct target_rlimit64 *target_rnew, *target_rold;
9155 struct host_rlimit64 rnew, rold, *rnewp = 0;
9156 if (arg3) {
9157 if (!lock_user_struct(VERIFY_READ, target_rnew, arg3, 1)) {
9158 goto efault;
9159 }
9160 rnew.rlim_cur = tswap64(target_rnew->rlim_cur);
9161 rnew.rlim_max = tswap64(target_rnew->rlim_max);
9162 unlock_user_struct(target_rnew, arg3, 0);
9163 rnewp = &rnew;
9164 }
9165
9166 ret = get_errno(sys_prlimit64(arg1, arg2, rnewp, arg4 ? &rold : 0));
9167 if (!is_error(ret) && arg4) {
9168 if (!lock_user_struct(VERIFY_WRITE, target_rold, arg4, 1)) {
9169 goto efault;
9170 }
9171 target_rold->rlim_cur = tswap64(rold.rlim_cur);
9172 target_rold->rlim_max = tswap64(rold.rlim_max);
9173 unlock_user_struct(target_rold, arg4, 1);
9174 }
9175 break;
9176 }
9177 #endif
9178 #ifdef TARGET_NR_gethostname
9179 case TARGET_NR_gethostname:
9180 {
9181 char *name = lock_user(VERIFY_WRITE, arg1, arg2, 0);
9182 if (name) {
9183 ret = get_errno(gethostname(name, arg2));
9184 unlock_user(name, arg1, arg2);
9185 } else {
9186 ret = -TARGET_EFAULT;
9187 }
9188 break;
9189 }
9190 #endif
9191 #ifdef TARGET_NR_atomic_cmpxchg_32
9192 case TARGET_NR_atomic_cmpxchg_32:
9193 {
9194 /* should use start_exclusive from main.c */
9195 abi_ulong mem_value;
9196 if (get_user_u32(mem_value, arg6)) {
9197 target_siginfo_t info;
9198 info.si_signo = SIGSEGV;
9199 info.si_errno = 0;
9200 info.si_code = TARGET_SEGV_MAPERR;
9201 info._sifields._sigfault._addr = arg6;
9202 queue_signal((CPUArchState *)cpu_env, info.si_signo, &info);
9203 ret = 0xdeadbeef;
9204
9205 }
9206 if (mem_value == arg2)
9207 put_user_u32(arg1, arg6);
9208 ret = mem_value;
9209 break;
9210 }
9211 #endif
9212 #ifdef TARGET_NR_atomic_barrier
9213 case TARGET_NR_atomic_barrier:
9214 {
9215 /* Like the kernel implementation and the qemu arm barrier, no-op this? */
9216 ret = 0;
9217 break;
9218 }
9219 #endif
9220
9221 #ifdef TARGET_NR_timer_create
9222 case TARGET_NR_timer_create:
9223 {
9224 /* args: clockid_t clockid, struct sigevent *sevp, timer_t *timerid */
9225
9226 struct sigevent host_sevp = { {0}, }, *phost_sevp = NULL;
9227 struct target_sigevent *ptarget_sevp;
9228 struct target_timer_t *ptarget_timer;
9229
9230 int clkid = arg1;
9231 int timer_index = next_free_host_timer();
9232
9233 if (timer_index < 0) {
9234 ret = -TARGET_EAGAIN;
9235 } else {
9236 timer_t *phtimer = g_posix_timers + timer_index;
9237
9238 if (arg2) {
9239 if (!lock_user_struct(VERIFY_READ, ptarget_sevp, arg2, 1)) {
9240 goto efault;
9241 }
9242
9243 host_sevp.sigev_signo = tswap32(ptarget_sevp->sigev_signo);
9244 host_sevp.sigev_notify = tswap32(ptarget_sevp->sigev_notify);
9245
9246 phost_sevp = &host_sevp;
9247 }
9248
9249 ret = get_errno(timer_create(clkid, phost_sevp, phtimer));
9250 if (ret) {
9251 phtimer = NULL;
9252 } else {
9253 if (!lock_user_struct(VERIFY_WRITE, ptarget_timer, arg3, 1)) {
9254 goto efault;
9255 }
9256 ptarget_timer->ptr = tswap32(0xcafe0000 | timer_index);
9257 unlock_user_struct(ptarget_timer, arg3, 1);
9258 }
9259 }
9260 break;
9261 }
9262 #endif
9263
9264 #ifdef TARGET_NR_timer_settime
9265 case TARGET_NR_timer_settime:
9266 {
9267 /* args: timer_t timerid, int flags, const struct itimerspec *new_value,
9268 * struct itimerspec * old_value */
9269 arg1 &= 0xffff;
9270 if (arg3 == 0 || arg1 < 0 || arg1 >= ARRAY_SIZE(g_posix_timers)) {
9271 ret = -TARGET_EINVAL;
9272 } else {
9273 timer_t htimer = g_posix_timers[arg1];
9274 struct itimerspec hspec_new = {{0},}, hspec_old = {{0},};
9275
9276 target_to_host_itimerspec(&hspec_new, arg3);
9277 ret = get_errno(
9278 timer_settime(htimer, arg2, &hspec_new, &hspec_old));
9279 host_to_target_itimerspec(arg2, &hspec_old);
9280 }
9281 break;
9282 }
9283 #endif
9284
9285 #ifdef TARGET_NR_timer_gettime
9286 case TARGET_NR_timer_gettime:
9287 {
9288 /* args: timer_t timerid, struct itimerspec *curr_value */
9289 arg1 &= 0xffff;
9290 if (!arg2) {
9291 return -TARGET_EFAULT;
9292 } else if (arg1 < 0 || arg1 >= ARRAY_SIZE(g_posix_timers)) {
9293 ret = -TARGET_EINVAL;
9294 } else {
9295 timer_t htimer = g_posix_timers[arg1];
9296 struct itimerspec hspec;
9297 ret = get_errno(timer_gettime(htimer, &hspec));
9298
9299 if (host_to_target_itimerspec(arg2, &hspec)) {
9300 ret = -TARGET_EFAULT;
9301 }
9302 }
9303 break;
9304 }
9305 #endif
9306
9307 #ifdef TARGET_NR_timer_getoverrun
9308 case TARGET_NR_timer_getoverrun:
9309 {
9310 /* args: timer_t timerid */
9311 arg1 &= 0xffff;
9312 if (arg1 < 0 || arg1 >= ARRAY_SIZE(g_posix_timers)) {
9313 ret = -TARGET_EINVAL;
9314 } else {
9315 timer_t htimer = g_posix_timers[arg1];
9316 ret = get_errno(timer_getoverrun(htimer));
9317 }
9318 break;
9319 }
9320 #endif
9321
9322 #ifdef TARGET_NR_timer_delete
9323 case TARGET_NR_timer_delete:
9324 {
9325 /* args: timer_t timerid */
9326 arg1 &= 0xffff;
9327 if (arg1 < 0 || arg1 >= ARRAY_SIZE(g_posix_timers)) {
9328 ret = -TARGET_EINVAL;
9329 } else {
9330 timer_t htimer = g_posix_timers[arg1];
9331 ret = get_errno(timer_delete(htimer));
9332 g_posix_timers[arg1] = 0;
9333 }
9334 break;
9335 }
9336 #endif
9337
9338 default:
9339 unimplemented:
9340 gemu_log("qemu: Unsupported syscall: %d\n", num);
9341 #if defined(TARGET_NR_setxattr) || defined(TARGET_NR_get_thread_area) || defined(TARGET_NR_getdomainname) || defined(TARGET_NR_set_robust_list)
9342 unimplemented_nowarn:
9343 #endif
9344 ret = -TARGET_ENOSYS;
9345 break;
9346 }
9347 fail:
9348 #ifdef DEBUG
9349 gemu_log(" = " TARGET_ABI_FMT_ld "\n", ret);
9350 #endif
9351 if(do_strace)
9352 print_syscall_ret(num, ret);
9353 return ret;
9354 efault:
9355 ret = -TARGET_EFAULT;
9356 goto fail;
9357 }
QEmu