Archipelago » qemu

/*

 *  Linux syscalls

 *

 *  Copyright (c) 2003 Fabrice Bellard

 *

 *  This program is free software; you can redistribute it and/or modify

 *  it under the terms of the GNU General Public License as published by

 *  the Free Software Foundation; either version 2 of the License, or

 *  (at your option) any later version.

 *

 *  This program is distributed in the hope that it will be useful,

 *  but WITHOUT ANY WARRANTY; without even the implied warranty of

 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the

 *  GNU General Public License for more details.

 *

 *  You should have received a copy of the GNU General Public License

 *  along with this program; if not, see <http://www.gnu.org/licenses/>.

 */

#define _ATFILE_SOURCE

#include <stdlib.h>

#include <stdio.h>

#include <stdarg.h>

#include <string.h>

#include <elf.h>

#include <endian.h>

#include <errno.h>

#include <unistd.h>

#include <fcntl.h>

#include <time.h>

#include <limits.h>

#include <grp.h>

#include <sys/types.h>

#include <sys/ipc.h>

#include <sys/msg.h>

#include <sys/wait.h>

#include <sys/time.h>

#include <sys/stat.h>

#include <sys/mount.h>

#include <sys/file.h>

#include <sys/fsuid.h>

#include <sys/personality.h>

#include <sys/prctl.h>

#include <sys/resource.h>

#include <sys/mman.h>

#include <sys/swap.h>

#include <signal.h>

#include <sched.h>

#ifdef __ia64__

int __clone2(int (*fn)(void *), void *child_stack_base,

             size_t stack_size, int flags, void *arg, ...);

#endif

#include <sys/socket.h>

#include <sys/un.h>

#include <sys/uio.h>

#include <sys/poll.h>

#include <sys/times.h>

#include <sys/shm.h>

#include <sys/sem.h>

#include <sys/statfs.h>

#include <utime.h>

#include <sys/sysinfo.h>

#include <sys/utsname.h>

//#include <sys/user.h>

#include <netinet/ip.h>

#include <netinet/tcp.h>

#include <linux/wireless.h>

#include <linux/icmp.h>

#include "qemu-common.h"

#ifdef TARGET_GPROF

#include <sys/gmon.h>

#endif

#ifdef CONFIG_EVENTFD

#include <sys/eventfd.h>

#endif

#ifdef CONFIG_EPOLL

#include <sys/epoll.h>

#endif

#ifdef CONFIG_ATTR

#include "qemu/xattr.h"

#endif

#ifdef CONFIG_SENDFILE

#include <sys/sendfile.h>

#endif

#define termios host_termios

#define winsize host_winsize

#define termio host_termio

#define sgttyb host_sgttyb /* same as target */

#define tchars host_tchars /* same as target */

#define ltchars host_ltchars /* same as target */

#include <linux/termios.h>

#include <linux/unistd.h>

#include <linux/utsname.h>

#include <linux/cdrom.h>

#include <linux/hdreg.h>

#include <linux/soundcard.h>

#include <linux/kd.h>

#include <linux/mtio.h>

#include <linux/fs.h>

#if defined(CONFIG_FIEMAP)

#include <linux/fiemap.h>

#endif

#include <linux/fb.h>

#include <linux/vt.h>

#include <linux/dm-ioctl.h>

#include <linux/reboot.h>

#include <linux/route.h>

#include <linux/filter.h>

#include <linux/blkpg.h>

#include "linux_loop.h"

#include "cpu-uname.h"

#include "qemu.h"

#define CLONE_NPTL_FLAGS2 (CLONE_SETTLS | \

    CLONE_PARENT_SETTID | CLONE_CHILD_SETTID | CLONE_CHILD_CLEARTID)

//#define DEBUG

//#include <linux/msdos_fs.h>

#define        VFAT_IOCTL_READDIR_BOTH                _IOR('r', 1, struct linux_dirent [2])

#define        VFAT_IOCTL_READDIR_SHORT        _IOR('r', 2, struct linux_dirent [2])

#undef _syscall0

#undef _syscall1

#undef _syscall2

#undef _syscall3

#undef _syscall4

#undef _syscall5

#undef _syscall6

#define _syscall0(type,name)                \

static type name (void)                        \

{                                        \

        return syscall(__NR_##name);        \

}

#define _syscall1(type,name,type1,arg1)                \

static type name (type1 arg1)                        \

{                                                \

        return syscall(__NR_##name, arg1);        \

}

#define _syscall2(type,name,type1,arg1,type2,arg2)        \

static type name (type1 arg1,type2 arg2)                \

{                                                        \

        return syscall(__NR_##name, arg1, arg2);        \

}

#define _syscall3(type,name,type1,arg1,type2,arg2,type3,arg3)        \

static type name (type1 arg1,type2 arg2,type3 arg3)                \

{                                                                \

        return syscall(__NR_##name, arg1, arg2, arg3);                \

}

#define _syscall4(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4)        \

static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4)                        \

{                                                                                \

        return syscall(__NR_##name, arg1, arg2, arg3, arg4);                        \

}

#define _syscall5(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4,        \

                  type5,arg5)                                                        \

static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4,type5 arg5)        \

{                                                                                \

        return syscall(__NR_##name, arg1, arg2, arg3, arg4, arg5);                \

}

#define _syscall6(type,name,type1,arg1,type2,arg2,type3,arg3,type4,arg4,        \

                  type5,arg5,type6,arg6)                                        \

static type name (type1 arg1,type2 arg2,type3 arg3,type4 arg4,type5 arg5,        \

                  type6 arg6)                                                        \

{                                                                                \

        return syscall(__NR_##name, arg1, arg2, arg3, arg4, arg5, arg6);        \

}

#define __NR_sys_uname __NR_uname

#define __NR_sys_getcwd1 __NR_getcwd

#define __NR_sys_getdents __NR_getdents

#define __NR_sys_getdents64 __NR_getdents64

#define __NR_sys_getpriority __NR_getpriority

#define __NR_sys_rt_sigqueueinfo __NR_rt_sigqueueinfo

#define __NR_sys_syslog __NR_syslog

#define __NR_sys_tgkill __NR_tgkill

#define __NR_sys_tkill __NR_tkill

#define __NR_sys_futex __NR_futex

#define __NR_sys_inotify_init __NR_inotify_init

#define __NR_sys_inotify_add_watch __NR_inotify_add_watch

#define __NR_sys_inotify_rm_watch __NR_inotify_rm_watch

#if defined(__alpha__) || defined (__ia64__) || defined(__x86_64__) || \

    defined(__s390x__)

#define __NR__llseek __NR_lseek

#endif

#ifdef __NR_gettid

_syscall0(int, gettid)

#else

/* This is a replacement for the host gettid() and must return a host

   errno. */

static int gettid(void) {

    return -ENOSYS;

}

#endif

#ifdef __NR_getdents

_syscall3(int, sys_getdents, uint, fd, struct linux_dirent *, dirp, uint, count);

#endif

#if !defined(__NR_getdents) || \

    (defined(TARGET_NR_getdents64) && defined(__NR_getdents64))

_syscall3(int, sys_getdents64, uint, fd, struct linux_dirent64 *, dirp, uint, count);

#endif

#if defined(TARGET_NR__llseek) && defined(__NR_llseek)

_syscall5(int, _llseek,  uint,  fd, ulong, hi, ulong, lo,

          loff_t *, res, uint, wh);

#endif

_syscall3(int,sys_rt_sigqueueinfo,int,pid,int,sig,siginfo_t *,uinfo)

_syscall3(int,sys_syslog,int,type,char*,bufp,int,len)

#if defined(TARGET_NR_tgkill) && defined(__NR_tgkill)

_syscall3(int,sys_tgkill,int,tgid,int,pid,int,sig)

#endif

#if defined(TARGET_NR_tkill) && defined(__NR_tkill)

_syscall2(int,sys_tkill,int,tid,int,sig)

#endif

#ifdef __NR_exit_group

_syscall1(int,exit_group,int,error_code)

#endif

#if defined(TARGET_NR_set_tid_address) && defined(__NR_set_tid_address)

_syscall1(int,set_tid_address,int *,tidptr)

#endif

#if defined(TARGET_NR_futex) && defined(__NR_futex)

_syscall6(int,sys_futex,int *,uaddr,int,op,int,val,

          const struct timespec *,timeout,int *,uaddr2,int,val3)

#endif

#define __NR_sys_sched_getaffinity __NR_sched_getaffinity

_syscall3(int, sys_sched_getaffinity, pid_t, pid, unsigned int, len,

          unsigned long *, user_mask_ptr);

#define __NR_sys_sched_setaffinity __NR_sched_setaffinity

_syscall3(int, sys_sched_setaffinity, pid_t, pid, unsigned int, len,

          unsigned long *, user_mask_ptr);

_syscall4(int, reboot, int, magic1, int, magic2, unsigned int, cmd,

          void *, arg);

static bitmask_transtbl fcntl_flags_tbl[] = {

  { TARGET_O_ACCMODE,   TARGET_O_WRONLY,    O_ACCMODE,   O_WRONLY,    },

  { TARGET_O_ACCMODE,   TARGET_O_RDWR,      O_ACCMODE,   O_RDWR,      },

  { TARGET_O_CREAT,     TARGET_O_CREAT,     O_CREAT,     O_CREAT,     },

  { TARGET_O_EXCL,      TARGET_O_EXCL,      O_EXCL,      O_EXCL,      },

  { TARGET_O_NOCTTY,    TARGET_O_NOCTTY,    O_NOCTTY,    O_NOCTTY,    },

  { TARGET_O_TRUNC,     TARGET_O_TRUNC,     O_TRUNC,     O_TRUNC,     },

  { TARGET_O_APPEND,    TARGET_O_APPEND,    O_APPEND,    O_APPEND,    },

  { TARGET_O_NONBLOCK,  TARGET_O_NONBLOCK,  O_NONBLOCK,  O_NONBLOCK,  },

  { TARGET_O_SYNC,      TARGET_O_DSYNC,     O_SYNC,      O_DSYNC,     },

  { TARGET_O_SYNC,      TARGET_O_SYNC,      O_SYNC,      O_SYNC,      },

  { TARGET_FASYNC,      TARGET_FASYNC,      FASYNC,      FASYNC,      },

  { TARGET_O_DIRECTORY, TARGET_O_DIRECTORY, O_DIRECTORY, O_DIRECTORY, },

  { TARGET_O_NOFOLLOW,  TARGET_O_NOFOLLOW,  O_NOFOLLOW,  O_NOFOLLOW,  },

#if defined(O_DIRECT)

  { TARGET_O_DIRECT,    TARGET_O_DIRECT,    O_DIRECT,    O_DIRECT,    },

#endif

#if defined(O_NOATIME)

  { TARGET_O_NOATIME,   TARGET_O_NOATIME,   O_NOATIME,   O_NOATIME    },

#endif

#if defined(O_CLOEXEC)

  { TARGET_O_CLOEXEC,   TARGET_O_CLOEXEC,   O_CLOEXEC,   O_CLOEXEC    },

#endif

#if defined(O_PATH)

  { TARGET_O_PATH,      TARGET_O_PATH,      O_PATH,      O_PATH       },

#endif

  /* Don't terminate the list prematurely on 64-bit host+guest.  */

#if TARGET_O_LARGEFILE != 0 || O_LARGEFILE != 0

  { TARGET_O_LARGEFILE, TARGET_O_LARGEFILE, O_LARGEFILE, O_LARGEFILE, },

#endif

  { 0, 0, 0, 0 }

};

#define COPY_UTSNAME_FIELD(dest, src) \

  do { \

      /* __NEW_UTS_LEN doesn't include terminating null */ \

      (void) strncpy((dest), (src), __NEW_UTS_LEN); \

      (dest)[__NEW_UTS_LEN] = '\0'; \

  } while (0)

static int sys_uname(struct new_utsname *buf)

{

  struct utsname uts_buf;

  if (uname(&uts_buf) < 0)

      return (-1);

  /*

   * Just in case these have some differences, we

   * translate utsname to new_utsname (which is the

   * struct linux kernel uses).

   */

  memset(buf, 0, sizeof(*buf));

  COPY_UTSNAME_FIELD(buf->sysname, uts_buf.sysname);

  COPY_UTSNAME_FIELD(buf->nodename, uts_buf.nodename);

  COPY_UTSNAME_FIELD(buf->release, uts_buf.release);

  COPY_UTSNAME_FIELD(buf->version, uts_buf.version);

  COPY_UTSNAME_FIELD(buf->machine, uts_buf.machine);

#ifdef _GNU_SOURCE

  COPY_UTSNAME_FIELD(buf->domainname, uts_buf.domainname);

#endif

  return (0);

#undef COPY_UTSNAME_FIELD

}

static int sys_getcwd1(char *buf, size_t size)

{

  if (getcwd(buf, size) == NULL) {

      /* getcwd() sets errno */

      return (-1);

  }

  return strlen(buf)+1;

}

#ifdef TARGET_NR_openat

static int sys_openat(int dirfd, const char *pathname, int flags, mode_t mode)

{

  /*

   * open(2) has extra parameter 'mode' when called with

   * flag O_CREAT.

   */

  if ((flags & O_CREAT) != 0) {

      return (openat(dirfd, pathname, flags, mode));

  }

  return (openat(dirfd, pathname, flags));

}

#endif

#ifdef TARGET_NR_utimensat

#ifdef CONFIG_UTIMENSAT

static int sys_utimensat(int dirfd, const char *pathname,

    const struct timespec times[2], int flags)

{

    if (pathname == NULL)

        return futimens(dirfd, times);

    else

        return utimensat(dirfd, pathname, times, flags);

}

#elif defined(__NR_utimensat)

#define __NR_sys_utimensat __NR_utimensat

_syscall4(int,sys_utimensat,int,dirfd,const char *,pathname,

          const struct timespec *,tsp,int,flags)

#else

static int sys_utimensat(int dirfd, const char *pathname,

                         const struct timespec times[2], int flags)

{

    errno = ENOSYS;

    return -1;

}

#endif

#endif /* TARGET_NR_utimensat */

#ifdef CONFIG_INOTIFY

#include <sys/inotify.h>

#if defined(TARGET_NR_inotify_init) && defined(__NR_inotify_init)

static int sys_inotify_init(void)

{

  return (inotify_init());

}

#endif

#if defined(TARGET_NR_inotify_add_watch) && defined(__NR_inotify_add_watch)

static int sys_inotify_add_watch(int fd,const char *pathname, int32_t mask)

{

  return (inotify_add_watch(fd, pathname, mask));

}

#endif

#if defined(TARGET_NR_inotify_rm_watch) && defined(__NR_inotify_rm_watch)

static int sys_inotify_rm_watch(int fd, int32_t wd)

{

  return (inotify_rm_watch(fd, wd));

}

#endif

#ifdef CONFIG_INOTIFY1

#if defined(TARGET_NR_inotify_init1) && defined(__NR_inotify_init1)

static int sys_inotify_init1(int flags)

{

  return (inotify_init1(flags));

}

#endif

#endif

#else

/* Userspace can usually survive runtime without inotify */

#undef TARGET_NR_inotify_init

#undef TARGET_NR_inotify_init1

#undef TARGET_NR_inotify_add_watch

#undef TARGET_NR_inotify_rm_watch

#endif /* CONFIG_INOTIFY  */

#if defined(TARGET_NR_ppoll)

#ifndef __NR_ppoll

# define __NR_ppoll -1

#endif

#define __NR_sys_ppoll __NR_ppoll

_syscall5(int, sys_ppoll, struct pollfd *, fds, nfds_t, nfds,

          struct timespec *, timeout, const __sigset_t *, sigmask,

          size_t, sigsetsize)

#endif

#if defined(TARGET_NR_pselect6)

#ifndef __NR_pselect6

# define __NR_pselect6 -1

#endif

#define __NR_sys_pselect6 __NR_pselect6

_syscall6(int, sys_pselect6, int, nfds, fd_set *, readfds, fd_set *, writefds,

          fd_set *, exceptfds, struct timespec *, timeout, void *, sig);

#endif

#if defined(TARGET_NR_prlimit64)

#ifndef __NR_prlimit64

# define __NR_prlimit64 -1

#endif

#define __NR_sys_prlimit64 __NR_prlimit64

/* The glibc rlimit structure may not be that used by the underlying syscall */

struct host_rlimit64 {

    uint64_t rlim_cur;

    uint64_t rlim_max;

};

_syscall4(int, sys_prlimit64, pid_t, pid, int, resource,

          const struct host_rlimit64 *, new_limit,

          struct host_rlimit64 *, old_limit)

#endif

#if defined(TARGET_NR_timer_create)

/* Maxiumum of 32 active POSIX timers allowed at any one time. */

static timer_t g_posix_timers[32] = { 0, } ;

static inline int next_free_host_timer(void)

{

    int k ;

    /* FIXME: Does finding the next free slot require a lock? */

    for (k = 0; k < ARRAY_SIZE(g_posix_timers); k++) {

        if (g_posix_timers[k] == 0) {

            g_posix_timers[k] = (timer_t) 1;

            return k;

        }

    }

    return -1;

}

#endif

/* ARM EABI and MIPS expect 64bit types aligned even on pairs or registers */

#ifdef TARGET_ARM

static inline int regpairs_aligned(void *cpu_env) {

    return ((((CPUARMState *)cpu_env)->eabi) == 1) ;

}

#elif defined(TARGET_MIPS)

static inline int regpairs_aligned(void *cpu_env) { return 1; }

#elif defined(TARGET_PPC) && !defined(TARGET_PPC64)

/* SysV AVI for PPC32 expects 64bit parameters to be passed on odd/even pairs

 * of registers which translates to the same as ARM/MIPS, because we start with

 * r3 as arg1 */

static inline int regpairs_aligned(void *cpu_env) { return 1; }

#else

static inline int regpairs_aligned(void *cpu_env) { return 0; }

#endif

#define ERRNO_TABLE_SIZE 1200

/* target_to_host_errno_table[] is initialized from

 * host_to_target_errno_table[] in syscall_init(). */

static uint16_t target_to_host_errno_table[ERRNO_TABLE_SIZE] = {

};

/*

 * This list is the union of errno values overridden in asm-<arch>/errno.h

 * minus the errnos that are not actually generic to all archs.

 */

static uint16_t host_to_target_errno_table[ERRNO_TABLE_SIZE] = {

    [EIDRM]                = TARGET_EIDRM,

    [ECHRNG]                = TARGET_ECHRNG,

    [EL2NSYNC]                = TARGET_EL2NSYNC,

    [EL3HLT]                = TARGET_EL3HLT,

    [EL3RST]                = TARGET_EL3RST,

    [ELNRNG]                = TARGET_ELNRNG,

    [EUNATCH]                = TARGET_EUNATCH,

    [ENOCSI]                = TARGET_ENOCSI,

    [EL2HLT]                = TARGET_EL2HLT,

    [EDEADLK]                = TARGET_EDEADLK,

    [ENOLCK]                = TARGET_ENOLCK,

    [EBADE]                = TARGET_EBADE,

    [EBADR]                = TARGET_EBADR,

    [EXFULL]                = TARGET_EXFULL,

    [ENOANO]                = TARGET_ENOANO,

    [EBADRQC]                = TARGET_EBADRQC,

    [EBADSLT]                = TARGET_EBADSLT,

    [EBFONT]                = TARGET_EBFONT,

    [ENOSTR]                = TARGET_ENOSTR,

    [ENODATA]                = TARGET_ENODATA,

    [ETIME]                = TARGET_ETIME,

    [ENOSR]                = TARGET_ENOSR,

    [ENONET]                = TARGET_ENONET,

    [ENOPKG]                = TARGET_ENOPKG,

    [EREMOTE]                = TARGET_EREMOTE,

    [ENOLINK]                = TARGET_ENOLINK,

    [EADV]                = TARGET_EADV,

    [ESRMNT]                = TARGET_ESRMNT,

    [ECOMM]                = TARGET_ECOMM,

    [EPROTO]                = TARGET_EPROTO,

    [EDOTDOT]                = TARGET_EDOTDOT,

    [EMULTIHOP]                = TARGET_EMULTIHOP,

    [EBADMSG]                = TARGET_EBADMSG,

    [ENAMETOOLONG]        = TARGET_ENAMETOOLONG,

    [EOVERFLOW]                = TARGET_EOVERFLOW,

    [ENOTUNIQ]                = TARGET_ENOTUNIQ,

    [EBADFD]                = TARGET_EBADFD,

    [EREMCHG]                = TARGET_EREMCHG,

    [ELIBACC]                = TARGET_ELIBACC,

    [ELIBBAD]                = TARGET_ELIBBAD,

    [ELIBSCN]                = TARGET_ELIBSCN,

    [ELIBMAX]                = TARGET_ELIBMAX,

    [ELIBEXEC]                = TARGET_ELIBEXEC,

    [EILSEQ]                = TARGET_EILSEQ,

    [ENOSYS]                = TARGET_ENOSYS,

    [ELOOP]                = TARGET_ELOOP,

    [ERESTART]                = TARGET_ERESTART,

    [ESTRPIPE]                = TARGET_ESTRPIPE,

    [ENOTEMPTY]                = TARGET_ENOTEMPTY,

    [EUSERS]                = TARGET_EUSERS,

    [ENOTSOCK]                = TARGET_ENOTSOCK,

    [EDESTADDRREQ]        = TARGET_EDESTADDRREQ,

    [EMSGSIZE]                = TARGET_EMSGSIZE,

    [EPROTOTYPE]        = TARGET_EPROTOTYPE,

    [ENOPROTOOPT]        = TARGET_ENOPROTOOPT,

    [EPROTONOSUPPORT]        = TARGET_EPROTONOSUPPORT,

    [ESOCKTNOSUPPORT]        = TARGET_ESOCKTNOSUPPORT,

    [EOPNOTSUPP]        = TARGET_EOPNOTSUPP,

    [EPFNOSUPPORT]        = TARGET_EPFNOSUPPORT,

    [EAFNOSUPPORT]        = TARGET_EAFNOSUPPORT,

    [EADDRINUSE]        = TARGET_EADDRINUSE,

    [EADDRNOTAVAIL]        = TARGET_EADDRNOTAVAIL,

    [ENETDOWN]                = TARGET_ENETDOWN,

    [ENETUNREACH]        = TARGET_ENETUNREACH,

    [ENETRESET]                = TARGET_ENETRESET,

    [ECONNABORTED]        = TARGET_ECONNABORTED,

    [ECONNRESET]        = TARGET_ECONNRESET,

    [ENOBUFS]                = TARGET_ENOBUFS,

    [EISCONN]                = TARGET_EISCONN,

    [ENOTCONN]                = TARGET_ENOTCONN,

    [EUCLEAN]                = TARGET_EUCLEAN,

    [ENOTNAM]                = TARGET_ENOTNAM,

    [ENAVAIL]                = TARGET_ENAVAIL,

    [EISNAM]                = TARGET_EISNAM,

    [EREMOTEIO]                = TARGET_EREMOTEIO,

    [ESHUTDOWN]                = TARGET_ESHUTDOWN,

    [ETOOMANYREFS]        = TARGET_ETOOMANYREFS,

    [ETIMEDOUT]                = TARGET_ETIMEDOUT,

    [ECONNREFUSED]        = TARGET_ECONNREFUSED,

    [EHOSTDOWN]                = TARGET_EHOSTDOWN,

    [EHOSTUNREACH]        = TARGET_EHOSTUNREACH,

    [EALREADY]                = TARGET_EALREADY,

    [EINPROGRESS]        = TARGET_EINPROGRESS,

    [ESTALE]                = TARGET_ESTALE,

    [ECANCELED]                = TARGET_ECANCELED,

    [ENOMEDIUM]                = TARGET_ENOMEDIUM,

    [EMEDIUMTYPE]        = TARGET_EMEDIUMTYPE,

#ifdef ENOKEY

    [ENOKEY]                = TARGET_ENOKEY,

#endif

#ifdef EKEYEXPIRED

    [EKEYEXPIRED]        = TARGET_EKEYEXPIRED,

#endif

#ifdef EKEYREVOKED

    [EKEYREVOKED]        = TARGET_EKEYREVOKED,

#endif

#ifdef EKEYREJECTED

    [EKEYREJECTED]        = TARGET_EKEYREJECTED,

#endif

#ifdef EOWNERDEAD

    [EOWNERDEAD]        = TARGET_EOWNERDEAD,

#endif

#ifdef ENOTRECOVERABLE

    [ENOTRECOVERABLE]        = TARGET_ENOTRECOVERABLE,

#endif

};

static inline int host_to_target_errno(int err)

{

    if(host_to_target_errno_table[err])

        return host_to_target_errno_table[err];

    return err;

}

static inline int target_to_host_errno(int err)

{

    if (target_to_host_errno_table[err])

        return target_to_host_errno_table[err];

    return err;

}

static inline abi_long get_errno(abi_long ret)

{

    if (ret == -1)

        return -host_to_target_errno(errno);

    else

        return ret;

}

static inline int is_error(abi_long ret)

{

    return (abi_ulong)ret >= (abi_ulong)(-4096);

}

char *target_strerror(int err)

{

    if ((err >= ERRNO_TABLE_SIZE) || (err < 0)) {

        return NULL;

    }

    return strerror(target_to_host_errno(err));

}

static abi_ulong target_brk;

static abi_ulong target_original_brk;

static abi_ulong brk_page;

void target_set_brk(abi_ulong new_brk)

{

    target_original_brk = target_brk = HOST_PAGE_ALIGN(new_brk);

    brk_page = HOST_PAGE_ALIGN(target_brk);

}

//#define DEBUGF_BRK(message, args...) do { fprintf(stderr, (message), ## args); } while (0)

#define DEBUGF_BRK(message, args...)

/* do_brk() must return target values and target errnos. */

abi_long do_brk(abi_ulong new_brk)

{

    abi_long mapped_addr;

    int        new_alloc_size;

    DEBUGF_BRK("do_brk(" TARGET_ABI_FMT_lx ") -> ", new_brk);

    if (!new_brk) {

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (!new_brk)\n", target_brk);

        return target_brk;

    }

    if (new_brk < target_original_brk) {

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (new_brk < target_original_brk)\n",

                   target_brk);

        return target_brk;

    }

    /* If the new brk is less than the highest page reserved to the

     * target heap allocation, set it and we're almost done...  */

    if (new_brk <= brk_page) {

        /* Heap contents are initialized to zero, as for anonymous

         * mapped pages.  */

        if (new_brk > target_brk) {

            memset(g2h(target_brk), 0, new_brk - target_brk);

        }

        target_brk = new_brk;

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (new_brk <= brk_page)\n", target_brk);

            return target_brk;

    }

    /* We need to allocate more memory after the brk... Note that

     * we don't use MAP_FIXED because that will map over the top of

     * any existing mapping (like the one with the host libc or qemu

     * itself); instead we treat "mapped but at wrong address" as

     * a failure and unmap again.

     */

    new_alloc_size = HOST_PAGE_ALIGN(new_brk - brk_page);

    mapped_addr = get_errno(target_mmap(brk_page, new_alloc_size,

                                        PROT_READ|PROT_WRITE,

                                        MAP_ANON|MAP_PRIVATE, 0, 0));

    if (mapped_addr == brk_page) {

        /* Heap contents are initialized to zero, as for anonymous

         * mapped pages.  Technically the new pages are already

         * initialized to zero since they *are* anonymous mapped

         * pages, however we have to take care with the contents that

         * come from the remaining part of the previous page: it may

         * contains garbage data due to a previous heap usage (grown

         * then shrunken).  */

        memset(g2h(target_brk), 0, brk_page - target_brk);

        target_brk = new_brk;

        brk_page = HOST_PAGE_ALIGN(target_brk);

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (mapped_addr == brk_page)\n",

            target_brk);

        return target_brk;

    } else if (mapped_addr != -1) {

        /* Mapped but at wrong address, meaning there wasn't actually

         * enough space for this brk.

         */

        target_munmap(mapped_addr, new_alloc_size);

        mapped_addr = -1;

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (mapped_addr != -1)\n", target_brk);

    }

    else {

        DEBUGF_BRK(TARGET_ABI_FMT_lx " (otherwise)\n", target_brk);

    }

#if defined(TARGET_ALPHA)

    /* We (partially) emulate OSF/1 on Alpha, which requires we

       return a proper errno, not an unchanged brk value.  */

    return -TARGET_ENOMEM;

#endif

    /* For everything else, return the previous break. */

    return target_brk;

}

static inline abi_long copy_from_user_fdset(fd_set *fds,

                                            abi_ulong target_fds_addr,

                                            int n)

{

    int i, nw, j, k;

    abi_ulong b, *target_fds;

    nw = (n + TARGET_ABI_BITS - 1) / TARGET_ABI_BITS;

    if (!(target_fds = lock_user(VERIFY_READ,

                                 target_fds_addr,

                                 sizeof(abi_ulong) * nw,

                                 1)))

        return -TARGET_EFAULT;

    FD_ZERO(fds);

    k = 0;

    for (i = 0; i < nw; i++) {

        /* grab the abi_ulong */

        __get_user(b, &target_fds[i]);

        for (j = 0; j < TARGET_ABI_BITS; j++) {

            /* check the bit inside the abi_ulong */

            if ((b >> j) & 1)

                FD_SET(k, fds);

            k++;

        }

    }

    unlock_user(target_fds, target_fds_addr, 0);

    return 0;

}

static inline abi_ulong copy_from_user_fdset_ptr(fd_set *fds, fd_set **fds_ptr,

                                                 abi_ulong target_fds_addr,

                                                 int n)

{

    if (target_fds_addr) {

        if (copy_from_user_fdset(fds, target_fds_addr, n))

            return -TARGET_EFAULT;

        *fds_ptr = fds;

    } else {

        *fds_ptr = NULL;

    }

    return 0;

}

static inline abi_long copy_to_user_fdset(abi_ulong target_fds_addr,

                                          const fd_set *fds,

                                          int n)

{

    int i, nw, j, k;

    abi_long v;

    abi_ulong *target_fds;

    nw = (n + TARGET_ABI_BITS - 1) / TARGET_ABI_BITS;

    if (!(target_fds = lock_user(VERIFY_WRITE,

                                 target_fds_addr,

                                 sizeof(abi_ulong) * nw,

                                 0)))

        return -TARGET_EFAULT;

    k = 0;

    for (i = 0; i < nw; i++) {

        v = 0;

        for (j = 0; j < TARGET_ABI_BITS; j++) {

            v |= ((abi_ulong)(FD_ISSET(k, fds) != 0) << j);

            k++;

        }

        __put_user(v, &target_fds[i]);

    }

    unlock_user(target_fds, target_fds_addr, sizeof(abi_ulong) * nw);

    return 0;

}

#if defined(__alpha__)

#define HOST_HZ 1024

#else

#define HOST_HZ 100

#endif

static inline abi_long host_to_target_clock_t(long ticks)

{

#if HOST_HZ == TARGET_HZ

    return ticks;

#else

    return ((int64_t)ticks * TARGET_HZ) / HOST_HZ;

#endif

}

static inline abi_long host_to_target_rusage(abi_ulong target_addr,

                                             const struct rusage *rusage)

{

    struct target_rusage *target_rusage;

    if (!lock_user_struct(VERIFY_WRITE, target_rusage, target_addr, 0))

        return -TARGET_EFAULT;

    target_rusage->ru_utime.tv_sec = tswapal(rusage->ru_utime.tv_sec);

    target_rusage->ru_utime.tv_usec = tswapal(rusage->ru_utime.tv_usec);

    target_rusage->ru_stime.tv_sec = tswapal(rusage->ru_stime.tv_sec);

    target_rusage->ru_stime.tv_usec = tswapal(rusage->ru_stime.tv_usec);

    target_rusage->ru_maxrss = tswapal(rusage->ru_maxrss);

    target_rusage->ru_ixrss = tswapal(rusage->ru_ixrss);

    target_rusage->ru_idrss = tswapal(rusage->ru_idrss);

    target_rusage->ru_isrss = tswapal(rusage->ru_isrss);

    target_rusage->ru_minflt = tswapal(rusage->ru_minflt);

    target_rusage->ru_majflt = tswapal(rusage->ru_majflt);

    target_rusage->ru_nswap = tswapal(rusage->ru_nswap);

    target_rusage->ru_inblock = tswapal(rusage->ru_inblock);

    target_rusage->ru_oublock = tswapal(rusage->ru_oublock);

    target_rusage->ru_msgsnd = tswapal(rusage->ru_msgsnd);

    target_rusage->ru_msgrcv = tswapal(rusage->ru_msgrcv);

    target_rusage->ru_nsignals = tswapal(rusage->ru_nsignals);

    target_rusage->ru_nvcsw = tswapal(rusage->ru_nvcsw);

    target_rusage->ru_nivcsw = tswapal(rusage->ru_nivcsw);

    unlock_user_struct(target_rusage, target_addr, 1);

    return 0;

}

static inline rlim_t target_to_host_rlim(abi_ulong target_rlim)

{

    abi_ulong target_rlim_swap;

    rlim_t result;

    target_rlim_swap = tswapal(target_rlim);

    if (target_rlim_swap == TARGET_RLIM_INFINITY)

        return RLIM_INFINITY;

    result = target_rlim_swap;

    if (target_rlim_swap != (rlim_t)result)

        return RLIM_INFINITY;

    return result;

}

static inline abi_ulong host_to_target_rlim(rlim_t rlim)

{

    abi_ulong target_rlim_swap;

    abi_ulong result;

    if (rlim == RLIM_INFINITY || rlim != (abi_long)rlim)

        target_rlim_swap = TARGET_RLIM_INFINITY;

    else

        target_rlim_swap = rlim;

    result = tswapal(target_rlim_swap);

    return result;

}

static inline int target_to_host_resource(int code)

{

    switch (code) {

    case TARGET_RLIMIT_AS:

        return RLIMIT_AS;

    case TARGET_RLIMIT_CORE:

        return RLIMIT_CORE;

    case TARGET_RLIMIT_CPU:

        return RLIMIT_CPU;

    case TARGET_RLIMIT_DATA:

        return RLIMIT_DATA;

    case TARGET_RLIMIT_FSIZE:

        return RLIMIT_FSIZE;

    case TARGET_RLIMIT_LOCKS:

        return RLIMIT_LOCKS;

    case TARGET_RLIMIT_MEMLOCK:

        return RLIMIT_MEMLOCK;

    case TARGET_RLIMIT_MSGQUEUE:

        return RLIMIT_MSGQUEUE;

    case TARGET_RLIMIT_NICE:

        return RLIMIT_NICE;

    case TARGET_RLIMIT_NOFILE:

        return RLIMIT_NOFILE;

    case TARGET_RLIMIT_NPROC:

        return RLIMIT_NPROC;

    case TARGET_RLIMIT_RSS:

        return RLIMIT_RSS;

    case TARGET_RLIMIT_RTPRIO:

        return RLIMIT_RTPRIO;

    case TARGET_RLIMIT_SIGPENDING:

        return RLIMIT_SIGPENDING;

    case TARGET_RLIMIT_STACK:

        return RLIMIT_STACK;

    default:

        return code;

    }

}

static inline abi_long copy_from_user_timeval(struct timeval *tv,

                                              abi_ulong target_tv_addr)

{

    struct target_timeval *target_tv;

    if (!lock_user_struct(VERIFY_READ, target_tv, target_tv_addr, 1))

        return -TARGET_EFAULT;

    __get_user(tv->tv_sec, &target_tv->tv_sec);

    __get_user(tv->tv_usec, &target_tv->tv_usec);

    unlock_user_struct(target_tv, target_tv_addr, 0);

    return 0;

}

static inline abi_long copy_to_user_timeval(abi_ulong target_tv_addr,

                                            const struct timeval *tv)

{

    struct target_timeval *target_tv;

    if (!lock_user_struct(VERIFY_WRITE, target_tv, target_tv_addr, 0))

        return -TARGET_EFAULT;

    __put_user(tv->tv_sec, &target_tv->tv_sec);

    __put_user(tv->tv_usec, &target_tv->tv_usec);

    unlock_user_struct(target_tv, target_tv_addr, 1);

    return 0;

}

#if defined(TARGET_NR_mq_open) && defined(__NR_mq_open)

#include <mqueue.h>

static inline abi_long copy_from_user_mq_attr(struct mq_attr *attr,

                                              abi_ulong target_mq_attr_addr)

{

    struct target_mq_attr *target_mq_attr;

    if (!lock_user_struct(VERIFY_READ, target_mq_attr,

                          target_mq_attr_addr, 1))

        return -TARGET_EFAULT;

    __get_user(attr->mq_flags, &target_mq_attr->mq_flags);

    __get_user(attr->mq_maxmsg, &target_mq_attr->mq_maxmsg);

    __get_user(attr->mq_msgsize, &target_mq_attr->mq_msgsize);

    __get_user(attr->mq_curmsgs, &target_mq_attr->mq_curmsgs);

    unlock_user_struct(target_mq_attr, target_mq_attr_addr, 0);

    return 0;

}

static inline abi_long copy_to_user_mq_attr(abi_ulong target_mq_attr_addr,

                                            const struct mq_attr *attr)

{

    struct target_mq_attr *target_mq_attr;

    if (!lock_user_struct(VERIFY_WRITE, target_mq_attr,

                          target_mq_attr_addr, 0))

        return -TARGET_EFAULT;

    __put_user(attr->mq_flags, &target_mq_attr->mq_flags);

    __put_user(attr->mq_maxmsg, &target_mq_attr->mq_maxmsg);

    __put_user(attr->mq_msgsize, &target_mq_attr->mq_msgsize);

    __put_user(attr->mq_curmsgs, &target_mq_attr->mq_curmsgs);

    unlock_user_struct(target_mq_attr, target_mq_attr_addr, 1);

    return 0;

}

#endif

#if defined(TARGET_NR_select) || defined(TARGET_NR__newselect)

/* do_select() must return target values and target errnos. */

static abi_long do_select(int n,

                          abi_ulong rfd_addr, abi_ulong wfd_addr,

                          abi_ulong efd_addr, abi_ulong target_tv_addr)

{

    fd_set rfds, wfds, efds;

    fd_set *rfds_ptr, *wfds_ptr, *efds_ptr;

    struct timeval tv, *tv_ptr;

    abi_long ret;

    ret = copy_from_user_fdset_ptr(&rfds, &rfds_ptr, rfd_addr, n);

    if (ret) {

        return ret;

    }

    ret = copy_from_user_fdset_ptr(&wfds, &wfds_ptr, wfd_addr, n);

    if (ret) {

        return ret;

    }

    ret = copy_from_user_fdset_ptr(&efds, &efds_ptr, efd_addr, n);

    if (ret) {

        return ret;

    }

    if (target_tv_addr) {

        if (copy_from_user_timeval(&tv, target_tv_addr))

            return -TARGET_EFAULT;

        tv_ptr = &tv;

    } else {

        tv_ptr = NULL;

    }

    ret = get_errno(select(n, rfds_ptr, wfds_ptr, efds_ptr, tv_ptr));

    if (!is_error(ret)) {

        if (rfd_addr && copy_to_user_fdset(rfd_addr, &rfds, n))

            return -TARGET_EFAULT;

        if (wfd_addr && copy_to_user_fdset(wfd_addr, &wfds, n))

            return -TARGET_EFAULT;

        if (efd_addr && copy_to_user_fdset(efd_addr, &efds, n))

            return -TARGET_EFAULT;

        if (target_tv_addr && copy_to_user_timeval(target_tv_addr, &tv))

            return -TARGET_EFAULT;

    }

    return ret;

}

#endif

static abi_long do_pipe2(int host_pipe[], int flags)

{

#ifdef CONFIG_PIPE2

    return pipe2(host_pipe, flags);

#else

    return -ENOSYS;

#endif

}

static abi_long do_pipe(void *cpu_env, abi_ulong pipedes,

                        int flags, int is_pipe2)

{

    int host_pipe[2];

    abi_long ret;

    ret = flags ? do_pipe2(host_pipe, flags) : pipe(host_pipe);

    if (is_error(ret))

        return get_errno(ret);

    /* Several targets have special calling conventions for the original

       pipe syscall, but didn't replicate this into the pipe2 syscall.  */

    if (!is_pipe2) {

#if defined(TARGET_ALPHA)

        ((CPUAlphaState *)cpu_env)->ir[IR_A4] = host_pipe[1];

        return host_pipe[0];

#elif defined(TARGET_MIPS)

        ((CPUMIPSState*)cpu_env)->active_tc.gpr[3] = host_pipe[1];

        return host_pipe[0];

#elif defined(TARGET_SH4)

        ((CPUSH4State*)cpu_env)->gregs[1] = host_pipe[1];

        return host_pipe[0];

#elif defined(TARGET_SPARC)

        ((CPUSPARCState*)cpu_env)->regwptr[1] = host_pipe[1];

        return host_pipe[0];

#endif

    }

    if (put_user_s32(host_pipe[0], pipedes)

        || put_user_s32(host_pipe[1], pipedes + sizeof(host_pipe[0])))

        return -TARGET_EFAULT;

    return get_errno(ret);

}

static inline abi_long target_to_host_ip_mreq(struct ip_mreqn *mreqn,

                                              abi_ulong target_addr,

                                              socklen_t len)

{

    struct target_ip_mreqn *target_smreqn;

    target_smreqn = lock_user(VERIFY_READ, target_addr, len, 1);

    if (!target_smreqn)

        return -TARGET_EFAULT;

    mreqn->imr_multiaddr.s_addr = target_smreqn->imr_multiaddr.s_addr;

    mreqn->imr_address.s_addr = target_smreqn->imr_address.s_addr;

    if (len == sizeof(struct target_ip_mreqn))

        mreqn->imr_ifindex = tswapal(target_smreqn->imr_ifindex);

    unlock_user(target_smreqn, target_addr, 0);

    return 0;

}

static inline abi_long target_to_host_sockaddr(struct sockaddr *addr,

                                               abi_ulong target_addr,

                                               socklen_t len)

{

    const socklen_t unix_maxlen = sizeof (struct sockaddr_un);

    sa_family_t sa_family;

    struct target_sockaddr *target_saddr;

    target_saddr = lock_user(VERIFY_READ, target_addr, len, 1);

    if (!target_saddr)

        return -TARGET_EFAULT;

    sa_family = tswap16(target_saddr->sa_family);

    /* Oops. The caller might send a incomplete sun_path; sun_path

     * must be terminated by \0 (see the manual page), but

     * unfortunately it is quite common to specify sockaddr_un

     * length as "strlen(x->sun_path)" while it should be

     * "strlen(...) + 1". We'll fix that here if needed.

     * Linux kernel has a similar feature.

     */

    if (sa_family == AF_UNIX) {

        if (len < unix_maxlen && len > 0) {

            char *cp = (char*)target_saddr;

            if ( cp[len-1] && !cp[len] )

                len++;

        }

        if (len > unix_maxlen)

            len = unix_maxlen;

    }

    memcpy(addr, target_saddr, len);

    addr->sa_family = sa_family;

    unlock_user(target_saddr, target_addr, 0);

    return 0;

}

static inline abi_long host_to_target_sockaddr(abi_ulong target_addr,

                                               struct sockaddr *addr,

                                               socklen_t len)

{

    struct target_sockaddr *target_saddr;

    target_saddr = lock_user(VERIFY_WRITE, target_addr, len, 0);

    if (!target_saddr)

        return -TARGET_EFAULT;

    memcpy(target_saddr, addr, len);

    target_saddr->sa_family = tswap16(addr->sa_family);

    unlock_user(target_saddr, target_addr, len);

    return 0;

}

static inline abi_long target_to_host_cmsg(struct msghdr *msgh,

                                           struct target_msghdr *target_msgh)

{

    struct cmsghdr *cmsg = CMSG_FIRSTHDR(msgh);

    abi_long msg_controllen;

    abi_ulong target_cmsg_addr;

    struct target_cmsghdr *target_cmsg;

    socklen_t space = 0;

    msg_controllen = tswapal(target_msgh->msg_controllen);

    if (msg_controllen < sizeof (struct target_cmsghdr)) 

        goto the_end;

    target_cmsg_addr = tswapal(target_msgh->msg_control);

    target_cmsg = lock_user(VERIFY_READ, target_cmsg_addr, msg_controllen, 1);

    if (!target_cmsg)

        return -TARGET_EFAULT;

    while (cmsg && target_cmsg) {

        void *data = CMSG_DATA(cmsg);

        void *target_data = TARGET_CMSG_DATA(target_cmsg);

        int len = tswapal(target_cmsg->cmsg_len)

                  - TARGET_CMSG_ALIGN(sizeof (struct target_cmsghdr));

        space += CMSG_SPACE(len);

        if (space > msgh->msg_controllen) {

            space -= CMSG_SPACE(len);

            gemu_log("Host cmsg overflow\n");

            break;

        }

        if (tswap32(target_cmsg->cmsg_level) == TARGET_SOL_SOCKET) {

            cmsg->cmsg_level = SOL_SOCKET;

        } else {

            cmsg->cmsg_level = tswap32(target_cmsg->cmsg_level);

        }

        cmsg->cmsg_type = tswap32(target_cmsg->cmsg_type);

        cmsg->cmsg_len = CMSG_LEN(len);

        if (cmsg->cmsg_level != SOL_SOCKET || cmsg->cmsg_type != SCM_RIGHTS) {

            gemu_log("Unsupported ancillary data: %d/%d\n", cmsg->cmsg_level, cmsg->cmsg_type);

            memcpy(data, target_data, len);

        } else {

            int *fd = (int *)data;

            int *target_fd = (int *)target_data;

            int i, numfds = len / sizeof(int);

            for (i = 0; i < numfds; i++)

                fd[i] = tswap32(target_fd[i]);

        }

        cmsg = CMSG_NXTHDR(msgh, cmsg);

        target_cmsg = TARGET_CMSG_NXTHDR(target_msgh, target_cmsg);

    }

    unlock_user(target_cmsg, target_cmsg_addr, 0);

 the_end:

    msgh->msg_controllen = space;

    return 0;

}

static inline abi_long host_to_target_cmsg(struct target_msghdr *target_msgh,

                                           struct msghdr *msgh)

{

    struct cmsghdr *cmsg = CMSG_FIRSTHDR(msgh);

    abi_long msg_controllen;

    abi_ulong target_cmsg_addr;

    struct target_cmsghdr *target_cmsg;

    socklen_t space = 0;

    msg_controllen = tswapal(target_msgh->msg_controllen);

    if (msg_controllen < sizeof (struct target_cmsghdr)) 

        goto the_end;

    target_cmsg_addr = tswapal(target_msgh->msg_control);

    target_cmsg = lock_user(VERIFY_WRITE, target_cmsg_addr, msg_controllen, 0);

    if (!target_cmsg)

        return -TARGET_EFAULT;

    while (cmsg && target_cmsg) {

        void *data = CMSG_DATA(cmsg);

        void *target_data = TARGET_CMSG_DATA(target_cmsg);

        int len = cmsg->cmsg_len - CMSG_ALIGN(sizeof (struct cmsghdr));

        space += TARGET_CMSG_SPACE(len);

        if (space > msg_controllen) {

            space -= TARGET_CMSG_SPACE(len);

            gemu_log("Target cmsg overflow\n");

            break;

        }

        if (cmsg->cmsg_level == SOL_SOCKET) {

            target_cmsg->cmsg_level = tswap32(TARGET_SOL_SOCKET);

        } else {

            target_cmsg->cmsg_level = tswap32(cmsg->cmsg_level);

        }

        target_cmsg->cmsg_type = tswap32(cmsg->cmsg_type);

        target_cmsg->cmsg_len = tswapal(TARGET_CMSG_LEN(len));

        if ((cmsg->cmsg_level == SOL_SOCKET) &&

                                (cmsg->cmsg_type == SCM_RIGHTS)) {

            int *fd = (int *)data;

            int *target_fd = (int *)target_data;

            int i, numfds = len / sizeof(int);

            for (i = 0; i < numfds; i++)

                target_fd[i] = tswap32(fd[i]);

        } else if ((cmsg->cmsg_level == SOL_SOCKET) &&

                                (cmsg->cmsg_type == SO_TIMESTAMP) &&

                                (len == sizeof(struct timeval))) {

            /* copy struct timeval to target */

            struct timeval *tv = (struct timeval *)data;

            struct target_timeval *target_tv =

                                        (struct target_timeval *)target_data;

            target_tv->tv_sec = tswapal(tv->tv_sec);

            target_tv->tv_usec = tswapal(tv->tv_usec);

        } else {

            gemu_log("Unsupported ancillary data: %d/%d\n",

                                        cmsg->cmsg_level, cmsg->cmsg_type);

            memcpy(target_data, data, len);

        }

        cmsg = CMSG_NXTHDR(msgh, cmsg);

        target_cmsg = TARGET_CMSG_NXTHDR(target_msgh, target_cmsg);

    }

    unlock_user(target_cmsg, target_cmsg_addr, space);

 the_end:

    target_msgh->msg_controllen = tswapal(space);

    return 0;

}

/* do_setsockopt() Must return target values and target errnos. */

static abi_long do_setsockopt(int sockfd, int level, int optname,

                              abi_ulong optval_addr, socklen_t optlen)

{

    abi_long ret;

    int val;

    struct ip_mreqn *ip_mreq;

    struct ip_mreq_source *ip_mreq_source;

    switch(level) {

    case SOL_TCP:

        /* TCP options all take an 'int' value.  */

        if (optlen < sizeof(uint32_t))

            return -TARGET_EINVAL;

        if (get_user_u32(val, optval_addr))

            return -TARGET_EFAULT;

        ret = get_errno(setsockopt(sockfd, level, optname, &val, sizeof(val)));

        break;

    case SOL_IP:

        switch(optname) {

        case IP_TOS:

        case IP_TTL:

        case IP_HDRINCL:

        case IP_ROUTER_ALERT:

        case IP_RECVOPTS:

        case IP_RETOPTS:

        case IP_PKTINFO:

        case IP_MTU_DISCOVER:

        case IP_RECVERR:

        case IP_RECVTOS:

#ifdef IP_FREEBIND

        case IP_FREEBIND:

#endif

        case IP_MULTICAST_TTL:

        case IP_MULTICAST_LOOP:

            val = 0;

            if (optlen >= sizeof(uint32_t)) {

                if (get_user_u32(val, optval_addr))

                    return -TARGET_EFAULT;

            } else if (optlen >= 1) {

                if (get_user_u8(val, optval_addr))

                    return -TARGET_EFAULT;

            }

            ret = get_errno(setsockopt(sockfd, level, optname, &val, sizeof(val)));

            break;

        case IP_ADD_MEMBERSHIP:

        case IP_DROP_MEMBERSHIP:

            if (optlen < sizeof (struct target_ip_mreq) ||

                optlen > sizeof (struct target_ip_mreqn))

                return -TARGET_EINVAL;

            ip_mreq = (struct ip_mreqn *) alloca(optlen);

            target_to_host_ip_mreq(ip_mreq, optval_addr, optlen);

            ret = get_errno(setsockopt(sockfd, level, optname, ip_mreq, optlen));

            break;

        case IP_BLOCK_SOURCE:

        case IP_UNBLOCK_SOURCE:

        case IP_ADD_SOURCE_MEMBERSHIP:

        case IP_DROP_SOURCE_MEMBERSHIP:

            if (optlen != sizeof (struct target_ip_mreq_source))

                return -TARGET_EINVAL;

            ip_mreq_source = lock_user(VERIFY_READ, optval_addr, optlen, 1);

            ret = get_errno(setsockopt(sockfd, level, optname, ip_mreq_source, optlen));

            unlock_user (ip_mreq_source, optval_addr, 0);

            break;

        default:

            goto unimplemented;

        }

        break;

    case SOL_IPV6:

        switch (optname) {