]> granicus.if.org Git - strace/blobdiff - mem.c
wait: move fallback definitions of wait options to xlat/
[strace] / mem.c
diff --git a/mem.c b/mem.c
index 8e34f966eee3aad937783a432a5816679daa241d..322b7eb76b5f0cb71ac16b6a7a76813ca5412d51 100644 (file)
--- a/mem.c
+++ b/mem.c
 #include "defs.h"
 #include <asm/mman.h>
 #include <sys/mman.h>
-#if defined(I386)
-# include <asm/ldt.h>
-# ifdef HAVE_STRUCT_USER_DESC
-#  define modify_ldt_ldt_s user_desc
-# endif
-#endif
-#if defined(SH64)
-# include <asm/page.h>     /* for PAGE_SHIFT */
-#endif
 
-#ifdef HAVE_LONG_LONG_OFF_T
-/*
- * Ugly hacks for systems that have a long long off_t
- */
-# define sys_mmap64    sys_mmap
-#endif
+unsigned long
+get_pagesize(void)
+{
+       static unsigned long pagesize;
 
-int
-sys_brk(struct tcb *tcp)
+       if (!pagesize)
+               pagesize = sysconf(_SC_PAGESIZE);
+       return pagesize;
+}
+
+SYS_FUNC(brk)
 {
        if (entering(tcp)) {
                tprintf("%#lx", tcp->u_arg[0]);
@@ -59,156 +52,11 @@ sys_brk(struct tcb *tcp)
        return RVAL_HEX;
 }
 
-static const struct xlat mmap_prot[] = {
-       { PROT_NONE,    "PROT_NONE",    },
-       { PROT_READ,    "PROT_READ"     },
-       { PROT_WRITE,   "PROT_WRITE"    },
-       { PROT_EXEC,    "PROT_EXEC"     },
-#ifdef PROT_SEM
-       { PROT_SEM,     "PROT_SEM"      },
-#endif
-#ifdef PROT_GROWSDOWN
-       { PROT_GROWSDOWN,"PROT_GROWSDOWN"},
-#endif
-#ifdef PROT_GROWSUP
-       { PROT_GROWSUP, "PROT_GROWSUP"  },
-#endif
-#ifdef PROT_SAO
-       { PROT_SAO,     "PROT_SAO"      },
-#endif
-       { 0,            NULL            },
-};
-
-static const struct xlat mmap_flags[] = {
-       { MAP_SHARED,   "MAP_SHARED"    },
-       { MAP_PRIVATE,  "MAP_PRIVATE"   },
-       { MAP_FIXED,    "MAP_FIXED"     },
-#ifdef MAP_ANONYMOUS
-       { MAP_ANONYMOUS,"MAP_ANONYMOUS" },
-#endif
-#ifdef MAP_32BIT
-       { MAP_32BIT,    "MAP_32BIT"     },
-#endif
-#ifdef MAP_RENAME
-       { MAP_RENAME,   "MAP_RENAME"    },
-#endif
-#ifdef MAP_NORESERVE
-       { MAP_NORESERVE,"MAP_NORESERVE" },
-#endif
-#ifdef MAP_POPULATE
-       { MAP_POPULATE, "MAP_POPULATE" },
-#endif
-#ifdef MAP_NONBLOCK
-       { MAP_NONBLOCK, "MAP_NONBLOCK" },
-#endif
-       /*
-        * XXX - this was introduced in SunOS 4.x to distinguish between
-        * the old pre-4.x "mmap()", which:
-        *
-        *      only let you map devices with an "mmap" routine (e.g.,
-        *      frame buffers) in;
-        *
-        *      required you to specify the mapping address;
-        *
-        *      returned 0 on success and -1 on failure;
-        *
-        * memory and which, and the 4.x "mmap()" which:
-        *
-        *      can map plain files;
-        *
-        *      can be asked to pick where to map the file;
-        *
-        *      returns the address where it mapped the file on success
-        *      and -1 on failure.
-        *
-        * It's not actually used in source code that calls "mmap()"; the
-        * "mmap()" routine adds it for you.
-        *
-        * It'd be nice to come up with some way of eliminating it from
-        * the flags, e.g. reporting calls *without* it as "old_mmap()"
-        * and calls with it as "mmap()".
-        */
-#ifdef _MAP_NEW
-       { _MAP_NEW,     "_MAP_NEW"      },
-#endif
-#ifdef MAP_GROWSDOWN
-       { MAP_GROWSDOWN,"MAP_GROWSDOWN" },
-#endif
-#ifdef MAP_DENYWRITE
-       { MAP_DENYWRITE,"MAP_DENYWRITE" },
-#endif
-#ifdef MAP_EXECUTABLE
-       { MAP_EXECUTABLE,"MAP_EXECUTABLE"},
-#endif
-#ifdef MAP_INHERIT
-       { MAP_INHERIT,  "MAP_INHERIT"   },
-#endif
-#ifdef MAP_FILE
-       { MAP_FILE,     "MAP_FILE"      },
-#endif
-#ifdef MAP_LOCKED
-       { MAP_LOCKED,   "MAP_LOCKED"    },
-#endif
-       /* FreeBSD ones */
-#if defined(MAP_ANON) && (!defined(MAP_ANONYMOUS) || MAP_ANON != MAP_ANONYMOUS)
-       { MAP_ANON,     "MAP_ANON"      },
-#endif
-#ifdef MAP_HASSEMAPHORE
-       { MAP_HASSEMAPHORE,"MAP_HASSEMAPHORE"},
-#endif
-#ifdef MAP_STACK
-       { MAP_STACK,    "MAP_STACK"     },
-#endif
-#ifdef MAP_NOSYNC
-       { MAP_NOSYNC,   "MAP_NOSYNC"    },
-#endif
-#ifdef MAP_NOCORE
-       { MAP_NOCORE,   "MAP_NOCORE"    },
-#endif
-#ifdef TILE
-       { MAP_CACHE_NO_LOCAL, "MAP_CACHE_NO_LOCAL" },
-       { MAP_CACHE_NO_L2, "MAP_CACHE_NO_L2" },
-       { MAP_CACHE_NO_L1, "MAP_CACHE_NO_L1" },
-#endif
-       { 0,            NULL            },
-};
-
-#ifdef TILE
-static int
-addtileflags(long flags)
-{
-       long home = flags & _MAP_CACHE_MKHOME(_MAP_CACHE_HOME_MASK);
-       flags &= ~_MAP_CACHE_MKHOME(_MAP_CACHE_HOME_MASK);
-
-       if (flags & _MAP_CACHE_INCOHERENT) {
-               flags &= ~_MAP_CACHE_INCOHERENT;
-               if (home == MAP_CACHE_HOME_NONE) {
-                       tprints("|MAP_CACHE_INCOHERENT");
-                       return flags;
-               }
-               tprints("|_MAP_CACHE_INCOHERENT");
-       }
-
-       switch (home) {
-       case 0: break;
-       case MAP_CACHE_HOME_HERE: tprints("|MAP_CACHE_HOME_HERE"); break;
-       case MAP_CACHE_HOME_NONE: tprints("|MAP_CACHE_HOME_NONE"); break;
-       case MAP_CACHE_HOME_SINGLE: tprints("|MAP_CACHE_HOME_SINGLE"); break;
-       case MAP_CACHE_HOME_TASK: tprints("|MAP_CACHE_HOME_TASK"); break;
-       case MAP_CACHE_HOME_HASH: tprints("|MAP_CACHE_HOME_HASH"); break;
-       default:
-               tprintf("|MAP_CACHE_HOME(%d)",
-                       (home >> _MAP_CACHE_HOME_SHIFT) );
-               break;
-       }
+#include "xlat/mmap_prot.h"
+#include "xlat/mmap_flags.h"
 
-       return flags;
-}
-#endif
-
-#if !HAVE_LONG_LONG_OFF_T
 static int
-print_mmap(struct tcb *tcp, long *u_arg, long long offset)
+print_mmap(struct tcb *tcp, long *u_arg, unsigned long long offset)
 {
        if (entering(tcp)) {
                /* addr */
@@ -224,16 +72,12 @@ print_mmap(struct tcb *tcp, long *u_arg, long long offset)
                /* flags */
 #ifdef MAP_TYPE
                printxval(mmap_flags, u_arg[3] & MAP_TYPE, "MAP_???");
-#ifdef TILE
-               addflags(mmap_flags, addtileflags(u_arg[3] & ~MAP_TYPE));
-#else
                addflags(mmap_flags, u_arg[3] & ~MAP_TYPE);
-#endif
 #else
                printflags(mmap_flags, u_arg[3], "MAP_???");
 #endif
-               /* fd */
                tprints(", ");
+               /* fd */
                printfd(tcp, u_arg[4]);
                /* offset */
                tprintf(", %#llx", offset);
@@ -241,130 +85,98 @@ print_mmap(struct tcb *tcp, long *u_arg, long long offset)
        return RVAL_HEX;
 }
 
-int sys_old_mmap(struct tcb *tcp)
+/* Syscall name<->function correspondence is messed up on many arches.
+ * For example:
+ * i386 has __NR_mmap == 90, and it is "old mmap", and
+ * also it has __NR_mmap2 == 192, which is a "new mmap with page offsets".
+ * But x86_64 has just one __NR_mmap == 9, a "new mmap with byte offsets".
+ * Confused? Me too!
+ */
+
+/* Params are pointed to by u_arg[0], offset is in bytes */
+SYS_FUNC(old_mmap)
 {
+       long u_arg[6];
 #if defined(IA64)
        /*
         * IA64 processes never call this routine, they only use the
-        * new `sys_mmap' interface.
-        * For IA32 processes, this code converts the integer arguments
-        * that they pushed onto the stack, into longs.
-        *
-        * Note that addresses with bit 31 set will be sign extended.
-        * Fortunately, those addresses are not currently being generated
-        * for IA32 processes so it's not a problem.
+        * new 'sys_mmap' interface. Only IA32 processes come here.
         */
        int i;
-       long u_arg[6];
-       int narrow_arg[6];
-       if (umoven(tcp, tcp->u_arg[0], sizeof(narrow_arg), (char *) narrow_arg) == -1)
+       unsigned narrow_arg[6];
+       if (umoven(tcp, tcp->u_arg[0], sizeof(narrow_arg), narrow_arg) == -1)
                return 0;
        for (i = 0; i < 6; i++)
-               u_arg[i] = narrow_arg[i];
-#elif defined(SH) || defined(SH64)
-       /* SH has always passed the args in registers */
-       long *u_arg = tcp->u_arg;
+               u_arg[i] = (unsigned long) narrow_arg[i];
+#elif defined(X86_64)
+       /* We are here only in personality 1 (i386) */
+       int i;
+       unsigned narrow_arg[6];
+       if (umoven(tcp, tcp->u_arg[0], sizeof(narrow_arg), narrow_arg) == -1)
+               return 0;
+       for (i = 0; i < 6; ++i)
+               u_arg[i] = (unsigned long) narrow_arg[i];
 #else
-       long u_arg[6];
-# if defined(X86_64)
-       if (current_personality == 1) {
-               int i;
-               unsigned narrow_arg[6];
-               if (umoven(tcp, tcp->u_arg[0], sizeof(narrow_arg), (char *) narrow_arg) == -1)
-                       return 0;
-               for (i = 0; i < 6; ++i)
-                       u_arg[i] = narrow_arg[i];
-       }
-       else
-# endif
-       if (umoven(tcp, tcp->u_arg[0], sizeof(u_arg), (char *) u_arg) == -1)
+       if (umoven(tcp, tcp->u_arg[0], sizeof(u_arg), u_arg) == -1)
                return 0;
-#endif /* other architectures */
-
-       return print_mmap(tcp, u_arg, u_arg[5]);
+#endif
+       return print_mmap(tcp, u_arg, (unsigned long) u_arg[5]);
 }
 
-int
-sys_mmap(struct tcb *tcp)
+#if defined(S390)
+/* Params are pointed to by u_arg[0], offset is in pages */
+SYS_FUNC(old_mmap_pgoff)
 {
-       long long offset = tcp->u_arg[5];
-
-       /* FIXME: why only SH64? i386 mmap2 syscall ends up
-        * in this function, but does not convert offset
-        * from pages to bytes. See test/mmap_offset_decode.c
-        * Why SH64 and i386 are handled differently?
-        */
-#if defined(SH64)
-       /*
-        * Old mmap differs from new mmap in specifying the
-        * offset in units of bytes rather than pages.  We
-        * pretend it's in byte units so the user only ever
-        * sees bytes in the printout.
-        */
-       offset <<= PAGE_SHIFT;
+       long u_arg[5];
+       int i;
+       unsigned narrow_arg[6];
+       unsigned long long offset;
+       if (umoven(tcp, tcp->u_arg[0], sizeof(narrow_arg), narrow_arg) == -1)
+               return 0;
+       for (i = 0; i < 5; i++)
+               u_arg[i] = (unsigned long) narrow_arg[i];
+       offset = narrow_arg[5];
+       offset *= get_pagesize();
+       return print_mmap(tcp, u_arg, offset);
+}
 #endif
-#if defined(LINUX_MIPSN32)
+
+/* Params are passed directly, offset is in bytes */
+SYS_FUNC(mmap)
+{
+       unsigned long long offset = (unsigned long) tcp->u_arg[5];
+#if defined(LINUX_MIPSN32) || defined(X32)
+       /* Try test/x32_mmap.c */
        offset = tcp->ext_arg[5];
 #endif
+       /* Example of kernel-side handling of this variety of mmap:
+        * arch/x86/kernel/sys_x86_64.c::SYSCALL_DEFINE6(mmap, ...) calls
+        * sys_mmap_pgoff(..., off >> PAGE_SHIFT); i.e. off is in bytes,
+        * since the above code converts off to pages.
+        */
        return print_mmap(tcp, tcp->u_arg, offset);
 }
-#endif /* !HAVE_LONG_LONG_OFF_T */
 
-#if _LFS64_LARGEFILE || HAVE_LONG_LONG_OFF_T
-/* TODO: comment which arches use this routine.
- * For one, does ALPHA on Linux use this??
- * From code it seems that it might use 7 or 8 registers,
- * which is strange - Linux syscalls can pass maximum of 6 parameters!
- */
-int
-sys_mmap64(struct tcb *tcp)
+/* Params are passed directly, offset is in pages */
+SYS_FUNC(mmap_pgoff)
 {
-       if (entering(tcp)) {
-#if defined(ALPHA) || defined(X32)
-               long *u_arg = tcp->u_arg;
-#else
-               long u_arg[7];
-               if (umoven(tcp, tcp->u_arg[0], sizeof u_arg,
-                               (char *) u_arg) == -1)
-                       return 0;
-#endif
-               /* addr */
-               if (!u_arg[0])
-                       tprints("NULL, ");
-               else
-                       tprintf("%#lx, ", u_arg[0]);
-               /* len */
-               tprintf("%lu, ", u_arg[1]);
-               /* prot */
-               printflags(mmap_prot, u_arg[2], "PROT_???");
-               tprints(", ");
-               /* flags */
-#ifdef MAP_TYPE
-               printxval(mmap_flags, u_arg[3] & MAP_TYPE, "MAP_???");
-               addflags(mmap_flags, u_arg[3] & ~MAP_TYPE);
-#else
-               printflags(mmap_flags, u_arg[3], "MAP_???");
-#endif
-               /* fd */
-               tprints(", ");
-               printfd(tcp, u_arg[4]);
-               /* offset */
-#if defined(ALPHA) || defined(X32)
-               printllval(tcp, ", %#llx", 5);
-#else
-               /* NOTE: not verified that [5] and [6] should be used.
-                * It's possible that long long is 64-bit aligned in memory
-                * and we need to use [6] and [7] here instead:
-                */
-               tprintf(", %#llx", LONG_LONG(u_arg[5], u_arg[6]));
-#endif
-       }
-       return RVAL_HEX;
+       /* Try test/mmap_offset_decode.c */
+       unsigned long long offset;
+       offset = (unsigned long) tcp->u_arg[5];
+       offset *= get_pagesize();
+       return print_mmap(tcp, tcp->u_arg, offset);
 }
-#endif /* _LFS64_LARGEFILE || HAVE_LONG_LONG_OFF_T */
 
-int
-sys_munmap(struct tcb *tcp)
+/* Params are passed directly, offset is in 4k units */
+SYS_FUNC(mmap_4koff)
+{
+       unsigned long long offset;
+       offset = (unsigned long) tcp->u_arg[5];
+       offset <<= 12;
+       return print_mmap(tcp, tcp->u_arg, offset);
+}
+
+SYS_FUNC(munmap)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu",
@@ -373,8 +185,7 @@ sys_munmap(struct tcb *tcp)
        return 0;
 }
 
-int
-sys_mprotect(struct tcb *tcp)
+SYS_FUNC(mprotect)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, ",
@@ -384,16 +195,9 @@ sys_mprotect(struct tcb *tcp)
        return 0;
 }
 
-static const struct xlat mremap_flags[] = {
-       { MREMAP_MAYMOVE,       "MREMAP_MAYMOVE"        },
-#ifdef MREMAP_FIXED
-       { MREMAP_FIXED,         "MREMAP_FIXED"          },
-#endif
-       { 0,                    NULL                    }
-};
+#include "xlat/mremap_flags.h"
 
-int
-sys_mremap(struct tcb *tcp)
+SYS_FUNC(mremap)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, %lu, ", tcp->u_arg[0], tcp->u_arg[1],
@@ -408,27 +212,9 @@ sys_mremap(struct tcb *tcp)
        return RVAL_HEX;
 }
 
-static const struct xlat madvise_cmds[] = {
-#ifdef MADV_NORMAL
-       { MADV_NORMAL,          "MADV_NORMAL" },
-#endif
-#ifdef MADV_RANDOM
-       { MADV_RANDOM,          "MADV_RANDOM" },
-#endif
-#ifdef MADV_SEQUENTIAL
-       { MADV_SEQUENTIAL,      "MADV_SEQUENTIAL" },
-#endif
-#ifdef MADV_WILLNEED
-       { MADV_WILLNEED,        "MADV_WILLNEED" },
-#endif
-#ifdef MADV_DONTNEED
-       { MADV_DONTNEED,        "MADV_DONTNEED" },
-#endif
-       { 0,                    NULL },
-};
+#include "xlat/madvise_cmds.h"
 
-int
-sys_madvise(struct tcb *tcp)
+SYS_FUNC(madvise)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
@@ -437,18 +223,9 @@ sys_madvise(struct tcb *tcp)
        return 0;
 }
 
-static const struct xlat mlockall_flags[] = {
-#ifdef MCL_CURRENT
-       { MCL_CURRENT,  "MCL_CURRENT" },
-#endif
-#ifdef MCL_FUTURE
-       { MCL_FUTURE,   "MCL_FUTURE" },
-#endif
-       { 0,            NULL}
-};
+#include "xlat/mlockall_flags.h"
 
-int
-sys_mlockall(struct tcb *tcp)
+SYS_FUNC(mlockall)
 {
        if (entering(tcp)) {
                printflags(mlockall_flags, tcp->u_arg[0], "MCL_???");
@@ -456,19 +233,9 @@ sys_mlockall(struct tcb *tcp)
        return 0;
 }
 
-#ifdef MS_ASYNC
+#include "xlat/mctl_sync.h"
 
-static const struct xlat mctl_sync[] = {
-#ifdef MS_SYNC
-       { MS_SYNC,      "MS_SYNC"       },
-#endif
-       { MS_ASYNC,     "MS_ASYNC"      },
-       { MS_INVALIDATE,"MS_INVALIDATE" },
-       { 0,            NULL            },
-};
-
-int
-sys_msync(struct tcb *tcp)
+SYS_FUNC(msync)
 {
        if (entering(tcp)) {
                /* addr */
@@ -481,60 +248,7 @@ sys_msync(struct tcb *tcp)
        return 0;
 }
 
-#endif /* MS_ASYNC */
-
-#ifdef MC_SYNC
-
-static const struct xlat mctl_funcs[] = {
-       { MC_LOCK,      "MC_LOCK"       },
-       { MC_LOCKAS,    "MC_LOCKAS"     },
-       { MC_SYNC,      "MC_SYNC"       },
-       { MC_UNLOCK,    "MC_UNLOCK"     },
-       { MC_UNLOCKAS,  "MC_UNLOCKAS"   },
-       { 0,            NULL            },
-};
-
-static const struct xlat mctl_lockas[] = {
-       { MCL_CURRENT,  "MCL_CURRENT"   },
-       { MCL_FUTURE,   "MCL_FUTURE"    },
-       { 0,            NULL            },
-};
-
-int
-sys_mctl(struct tcb *tcp)
-{
-       int arg, function;
-
-       if (entering(tcp)) {
-               /* addr */
-               tprintf("%#lx", tcp->u_arg[0]);
-               /* len */
-               tprintf(", %lu, ", tcp->u_arg[1]);
-               /* function */
-               function = tcp->u_arg[2];
-               printflags(mctl_funcs, function, "MC_???");
-               /* arg */
-               arg = tcp->u_arg[3];
-               tprints(", ");
-               switch (function) {
-               case MC_SYNC:
-                       printflags(mctl_sync, arg, "MS_???");
-                       break;
-               case MC_LOCKAS:
-                       printflags(mctl_lockas, arg, "MCL_???");
-                       break;
-               default:
-                       tprintf("%#x", arg);
-                       break;
-               }
-       }
-       return 0;
-}
-
-#endif /* MC_SYNC */
-
-int
-sys_mincore(struct tcb *tcp)
+SYS_FUNC(mincore)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
@@ -564,8 +278,7 @@ sys_mincore(struct tcb *tcp)
 }
 
 #if defined(ALPHA) || defined(IA64) || defined(SPARC) || defined(SPARC64)
-int
-sys_getpagesize(struct tcb *tcp)
+SYS_FUNC(getpagesize)
 {
        if (exiting(tcp))
                return RVAL_HEX;
@@ -573,119 +286,7 @@ sys_getpagesize(struct tcb *tcp)
 }
 #endif
 
-#if defined(I386)
-void
-print_ldt_entry(struct modify_ldt_ldt_s *ldt_entry)
-{
-       tprintf("base_addr:%#08lx, "
-               "limit:%d, "
-               "seg_32bit:%d, "
-               "contents:%d, "
-               "read_exec_only:%d, "
-               "limit_in_pages:%d, "
-               "seg_not_present:%d, "
-               "useable:%d}",
-               (long) ldt_entry->base_addr,
-               ldt_entry->limit,
-               ldt_entry->seg_32bit,
-               ldt_entry->contents,
-               ldt_entry->read_exec_only,
-               ldt_entry->limit_in_pages,
-               ldt_entry->seg_not_present,
-               ldt_entry->useable);
-}
-
-int
-sys_modify_ldt(struct tcb *tcp)
-{
-       if (entering(tcp)) {
-               struct modify_ldt_ldt_s copy;
-               tprintf("%ld", tcp->u_arg[0]);
-               if (tcp->u_arg[1] == 0
-                               || tcp->u_arg[2] != sizeof(struct modify_ldt_ldt_s)
-                               || umove(tcp, tcp->u_arg[1], &copy) == -1)
-                       tprintf(", %lx", tcp->u_arg[1]);
-               else {
-                       tprintf(", {entry_number:%d, ", copy.entry_number);
-                       if (!verbose(tcp))
-                               tprints("...}");
-                       else {
-                               print_ldt_entry(&copy);
-                       }
-               }
-               tprintf(", %lu", tcp->u_arg[2]);
-       }
-       return 0;
-}
-
-int
-sys_set_thread_area(struct tcb *tcp)
-{
-       struct modify_ldt_ldt_s copy;
-       if (entering(tcp)) {
-               if (umove(tcp, tcp->u_arg[0], &copy) != -1) {
-                       if (copy.entry_number == -1)
-                               tprintf("{entry_number:%d -> ",
-                                       copy.entry_number);
-                       else
-                               tprints("{entry_number:");
-               }
-       } else {
-               if (umove(tcp, tcp->u_arg[0], &copy) != -1) {
-                       tprintf("%d, ", copy.entry_number);
-                       if (!verbose(tcp))
-                               tprints("...}");
-                       else {
-                               print_ldt_entry(&copy);
-                       }
-               } else {
-                       tprintf("%lx", tcp->u_arg[0]);
-               }
-       }
-       return 0;
-
-}
-
-int
-sys_get_thread_area(struct tcb *tcp)
-{
-       struct modify_ldt_ldt_s copy;
-       if (exiting(tcp)) {
-               if (umove(tcp, tcp->u_arg[0], &copy) != -1) {
-                       tprintf("{entry_number:%d, ", copy.entry_number);
-                       if (!verbose(tcp))
-                               tprints("...}");
-                       else {
-                               print_ldt_entry(&copy);
-                       }
-               } else {
-                       tprintf("%lx", tcp->u_arg[0]);
-               }
-       }
-       return 0;
-
-}
-#endif /* I386 */
-
-#if defined(M68K)
-int
-sys_set_thread_area(struct tcb *tcp)
-{
-       if (entering(tcp))
-               tprintf("%#lx", tcp->u_arg[0]);
-       return 0;
-
-}
-
-int
-sys_get_thread_area(struct tcb *tcp)
-{
-       return RVAL_HEX;
-}
-#endif
-
-int
-sys_remap_file_pages(struct tcb *tcp)
+SYS_FUNC(remap_file_pages)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
@@ -713,32 +314,10 @@ sys_remap_file_pages(struct tcb *tcp)
 #define MPOL_MF_MOVE   (1<<1)
 #define MPOL_MF_MOVE_ALL (1<<2)
 
-static const struct xlat policies[] = {
-       { MPOL_DEFAULT,         "MPOL_DEFAULT"          },
-       { MPOL_PREFERRED,       "MPOL_PREFERRED"        },
-       { MPOL_BIND,            "MPOL_BIND"             },
-       { MPOL_INTERLEAVE,      "MPOL_INTERLEAVE"       },
-       { 0,                    NULL                    }
-};
-
-static const struct xlat mbindflags[] = {
-       { MPOL_MF_STRICT,       "MPOL_MF_STRICT"        },
-       { MPOL_MF_MOVE,         "MPOL_MF_MOVE"          },
-       { MPOL_MF_MOVE_ALL,     "MPOL_MF_MOVE_ALL"      },
-       { 0,                    NULL                    }
-};
-
-static const struct xlat mempolicyflags[] = {
-       { MPOL_F_NODE,          "MPOL_F_NODE"           },
-       { MPOL_F_ADDR,          "MPOL_F_ADDR"           },
-       { 0,                    NULL                    }
-};
-
-static const struct xlat move_pages_flags[] = {
-       { MPOL_MF_MOVE,         "MPOL_MF_MOVE"          },
-       { MPOL_MF_MOVE_ALL,     "MPOL_MF_MOVE_ALL"      },
-       { 0,                    NULL                    }
-};
+#include "xlat/policies.h"
+#include "xlat/mbindflags.h"
+#include "xlat/mempolicyflags.h"
+#include "xlat/move_pages_flags.h"
 
 static void
 get_nodes(struct tcb *tcp, unsigned long ptr, unsigned long maxnodes, int err)
@@ -768,7 +347,7 @@ get_nodes(struct tcb *tcp, unsigned long ptr, unsigned long maxnodes, int err)
                                tprints("...");
                                break;
                        }
-                       if (umoven(tcp, cur, sizeof(n), (char *) &n) < 0) {
+                       if (umoven(tcp, cur, sizeof(n), &n) < 0) {
                                tprints("?");
                                failed = 1;
                                break;
@@ -783,8 +362,7 @@ get_nodes(struct tcb *tcp, unsigned long ptr, unsigned long maxnodes, int err)
        tprintf(", %lu", maxnodes);
 }
 
-int
-sys_mbind(struct tcb *tcp)
+SYS_FUNC(mbind)
 {
        if (entering(tcp)) {
                tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
@@ -796,8 +374,7 @@ sys_mbind(struct tcb *tcp)
        return 0;
 }
 
-int
-sys_set_mempolicy(struct tcb *tcp)
+SYS_FUNC(set_mempolicy)
 {
        if (entering(tcp)) {
                printxval(policies, tcp->u_arg[0], "MPOL_???");
@@ -806,8 +383,7 @@ sys_set_mempolicy(struct tcb *tcp)
        return 0;
 }
 
-int
-sys_get_mempolicy(struct tcb *tcp)
+SYS_FUNC(get_mempolicy)
 {
        if (exiting(tcp)) {
                int pol;
@@ -824,8 +400,7 @@ sys_get_mempolicy(struct tcb *tcp)
        return 0;
 }
 
-int
-sys_migrate_pages(struct tcb *tcp)
+SYS_FUNC(migrate_pages)
 {
        if (entering(tcp)) {
                tprintf("%ld, ", (long) (pid_t) tcp->u_arg[0]);
@@ -836,8 +411,7 @@ sys_migrate_pages(struct tcb *tcp)
        return 0;
 }
 
-int
-sys_move_pages(struct tcb *tcp)
+SYS_FUNC(move_pages)
 {
        if (entering(tcp)) {
                unsigned long npages = tcp->u_arg[1];
@@ -845,7 +419,7 @@ sys_move_pages(struct tcb *tcp)
                if (tcp->u_arg[2] == 0)
                        tprints("NULL, ");
                else {
-                       int i;
+                       unsigned int i;
                        long puser = tcp->u_arg[2];
                        tprints("{");
                        for (i = 0; i < npages; ++i) {
@@ -864,7 +438,7 @@ sys_move_pages(struct tcb *tcp)
                if (tcp->u_arg[3] == 0)
                        tprints("NULL, ");
                else {
-                       int i;
+                       unsigned int i;
                        long nodeuser = tcp->u_arg[3];
                        tprints("{");
                        for (i = 0; i < npages; ++i) {
@@ -886,7 +460,7 @@ sys_move_pages(struct tcb *tcp)
                if (tcp->u_arg[4] == 0)
                        tprints("NULL, ");
                else {
-                       int i;
+                       unsigned int i;
                        long statususer = tcp->u_arg[4];
                        tprints("{");
                        for (i = 0; i < npages; ++i) {
@@ -908,8 +482,7 @@ sys_move_pages(struct tcb *tcp)
 }
 
 #if defined(POWERPC)
-int
-sys_subpage_prot(struct tcb *tcp)
+SYS_FUNC(subpage_prot)
 {
        if (entering(tcp)) {
                unsigned long cur, end, abbrev_end, entries;
@@ -923,7 +496,7 @@ sys_subpage_prot(struct tcb *tcp)
                }
                cur = tcp->u_arg[2];
                end = cur + (sizeof(int) * entries);
-               if (!verbose(tcp) || end < tcp->u_arg[2]) {
+               if (!verbose(tcp) || end < (unsigned long) tcp->u_arg[2]) {
                        tprintf("%#lx", tcp->u_arg[2]);
                        return 0;
                }
@@ -936,7 +509,7 @@ sys_subpage_prot(struct tcb *tcp)
                        abbrev_end = end;
                tprints("{");
                for (; cur < end; cur += sizeof(int)) {
-                       if (cur > tcp->u_arg[2])
+                       if (cur > (unsigned long) tcp->u_arg[2])
                                tprints(", ");
                        if (cur >= abbrev_end) {
                                tprints("...");