* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- *
- * $Id$
*/
#include "defs.h"
-
-#ifdef LINUX
#include <asm/mman.h>
-#endif
#include <sys/mman.h>
-
-#if defined(LINUX) && defined(I386)
+#if defined(I386)
# include <asm/ldt.h>
# ifdef HAVE_STRUCT_USER_DESC
# define modify_ldt_ldt_s user_desc
# endif
#endif
-#if defined(LINUX) && defined(SH64)
+#if defined(SH64)
# include <asm/page.h> /* for PAGE_SHIFT */
#endif
/*
* Ugly hacks for systems that have a long long off_t
*/
-#define sys_mmap64 sys_mmap
+# define sys_mmap64 sys_mmap
#endif
int
if (entering(tcp)) {
tprintf("%#lx", tcp->u_arg[0]);
}
-#ifdef LINUX
return RVAL_HEX;
-#else
- return 0;
-#endif
}
-#if defined(FREEBSD) || defined(SUNOS4)
-int
-sys_sbrk(struct tcb *tcp)
-{
- if (entering(tcp)) {
- tprintf("%lu", tcp->u_arg[0]);
- }
- return RVAL_HEX;
-}
-#endif /* FREEBSD || SUNOS4 */
-
static const struct xlat mmap_prot[] = {
{ PROT_NONE, "PROT_NONE", },
{ PROT_READ, "PROT_READ" },
{ MAP_EXECUTABLE,"MAP_EXECUTABLE"},
#endif
#ifdef MAP_INHERIT
- { MAP_INHERIT,"MAP_INHERIT" },
+ { MAP_INHERIT, "MAP_INHERIT" },
#endif
#ifdef MAP_FILE
- { MAP_FILE,"MAP_FILE"},
+ { MAP_FILE, "MAP_FILE" },
#endif
#ifdef MAP_LOCKED
- { MAP_LOCKED,"MAP_LOCKED"},
+ { MAP_LOCKED, "MAP_LOCKED" },
#endif
/* FreeBSD ones */
-#ifdef MAP_ANON
- { MAP_ANON, "MAP_ANON" },
+#if defined(MAP_ANON) && (!defined(MAP_ANONYMOUS) || MAP_ANON != MAP_ANONYMOUS)
+ { MAP_ANON, "MAP_ANON" },
#endif
#ifdef MAP_HASSEMAPHORE
- { MAP_HASSEMAPHORE, "MAP_HASSEMAPHORE" },
+ { MAP_HASSEMAPHORE,"MAP_HASSEMAPHORE"},
#endif
#ifdef MAP_STACK
- { MAP_STACK, "MAP_STACK" },
+ { MAP_STACK, "MAP_STACK" },
#endif
#ifdef MAP_NOSYNC
- { MAP_NOSYNC, "MAP_NOSYNC" },
+ { MAP_NOSYNC, "MAP_NOSYNC" },
#endif
#ifdef MAP_NOCORE
- { MAP_NOCORE, "MAP_NOCORE" },
+ { MAP_NOCORE, "MAP_NOCORE" },
#endif
#ifdef TILE
{ MAP_CACHE_NO_LOCAL, "MAP_CACHE_NO_LOCAL" },
if (flags & _MAP_CACHE_INCOHERENT) {
flags &= ~_MAP_CACHE_INCOHERENT;
if (home == MAP_CACHE_HOME_NONE) {
- tprintf("|MAP_CACHE_INCOHERENT");
+ tprints("|MAP_CACHE_INCOHERENT");
return flags;
}
- tprintf("|_MAP_CACHE_INCOHERENT");
+ tprints("|_MAP_CACHE_INCOHERENT");
}
switch (home) {
case 0: break;
- case MAP_CACHE_HOME_HERE: tprintf("|MAP_CACHE_HOME_HERE"); break;
- case MAP_CACHE_HOME_NONE: tprintf("|MAP_CACHE_HOME_NONE"); break;
- case MAP_CACHE_HOME_SINGLE: tprintf("|MAP_CACHE_HOME_SINGLE"); break;
- case MAP_CACHE_HOME_TASK: tprintf("|MAP_CACHE_HOME_TASK"); break;
- case MAP_CACHE_HOME_HASH: tprintf("|MAP_CACHE_HOME_HASH"); 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) );
if (entering(tcp)) {
/* addr */
if (!u_arg[0])
- tprintf("NULL, ");
+ tprints("NULL, ");
else
tprintf("%#lx, ", u_arg[0]);
/* len */
tprintf("%lu, ", u_arg[1]);
/* prot */
printflags(mmap_prot, u_arg[2], "PROT_???");
- tprintf(", ");
+ tprints(", ");
/* flags */
#ifdef MAP_TYPE
printxval(mmap_flags, u_arg[3] & MAP_TYPE, "MAP_???");
printflags(mmap_flags, u_arg[3], "MAP_???");
#endif
/* fd */
- tprintf(", ");
+ tprints(", ");
printfd(tcp, u_arg[4]);
/* offset */
tprintf(", %#llx", offset);
return RVAL_HEX;
}
-#ifdef LINUX
int sys_old_mmap(struct tcb *tcp)
{
#if defined(IA64)
return print_mmap(tcp, u_arg, u_arg[5]);
}
-#endif /* LINUX */
int
sys_mmap(struct tcb *tcp)
* from pages to bytes. See test/mmap_offset_decode.c
* Why SH64 and i386 are handled differently?
*/
-#if defined(LINUX) && defined(SH64)
+#if defined(SH64)
/*
* Old mmap differs from new mmap in specifying the
* offset in units of bytes rather than pages. We
#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)
{
if (entering(tcp)) {
-#if !defined(LINUX) || defined(ALPHA)
+#if defined(ALPHA)
long *u_arg = tcp->u_arg;
#else
long u_arg[7];
return 0;
#endif
/* addr */
- tprintf("%#lx, ", u_arg[0]);
+ 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_???");
- tprintf(", ");
+ tprints(", ");
/* flags */
#ifdef MAP_TYPE
printxval(mmap_flags, u_arg[3] & MAP_TYPE, "MAP_???");
printflags(mmap_flags, u_arg[3], "MAP_???");
#endif
/* fd */
- tprintf(", ");
- /* BUG?! should be u_arg[4] (without tcp->)? */
- printfd(tcp, tcp->u_arg[4]);
+ tprints(", ");
+ printfd(tcp, u_arg[4]);
/* offset */
- /* BUG?! on non-ALPHA linux, offset will be not in tcp->u_arg,
- * but in local u_arg, but printllval prints tcp->u_arg! */
+#if defined(ALPHA)
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;
}
#endif /* _LFS64_LARGEFILE || HAVE_LONG_LONG_OFF_T */
-
int
sys_munmap(struct tcb *tcp)
{
return 0;
}
-#ifdef LINUX
-
static const struct xlat mremap_flags[] = {
{ MREMAP_MAYMOVE, "MREMAP_MAYMOVE" },
#ifdef MREMAP_FIXED
{ 0, NULL },
};
-
int
sys_madvise(struct tcb *tcp)
{
return 0;
}
-
static const struct xlat mlockall_flags[] = {
#ifdef MCL_CURRENT
{ MCL_CURRENT, "MCL_CURRENT" },
return 0;
}
-
-#endif /* LINUX */
-
#ifdef MS_ASYNC
static const struct xlat mctl_sync[] = {
printflags(mctl_funcs, function, "MC_???");
/* arg */
arg = tcp->u_arg[3];
- tprintf(", ");
+ tprints(", ");
switch (function) {
case MC_SYNC:
printflags(mctl_sync, arg, "MS_???");
int
sys_mincore(struct tcb *tcp)
{
- unsigned long i, len;
- char *vec = NULL;
-
if (entering(tcp)) {
tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
} else {
+ unsigned long i, len;
+ char *vec = NULL;
+
len = tcp->u_arg[1];
if (syserror(tcp) || tcp->u_arg[2] == 0 ||
(vec = malloc(len)) == NULL ||
umoven(tcp, tcp->u_arg[2], len, vec) < 0)
tprintf("%#lx", tcp->u_arg[2]);
else {
- tprintf("[");
+ tprints("[");
for (i = 0; i < len; i++) {
if (abbrev(tcp) && i >= max_strlen) {
- tprintf("...");
+ tprints("...");
break;
}
- tprintf((vec[i] & 1) ? "1" : "0");
+ tprints((vec[i] & 1) ? "1" : "0");
}
- tprintf("]");
+ tprints("]");
}
- if (vec)
- free(vec);
+ free(vec);
}
return 0;
}
-#if defined(ALPHA) || defined(FREEBSD) || defined(IA64) || defined(SUNOS4) || defined(SVR4) || defined(SPARC) || defined(SPARC64)
+#if defined(ALPHA) || defined(IA64) || defined(SPARC) || defined(SPARC64)
int
sys_getpagesize(struct tcb *tcp)
{
return RVAL_HEX;
return 0;
}
-#endif /* ALPHA || FREEBSD || IA64 || SUNOS4 || SVR4 */
+#endif
-#if defined(LINUX) && defined(__i386__)
+#if defined(I386)
void
print_ldt_entry(struct modify_ldt_ldt_s *ldt_entry)
{
else {
tprintf(", {entry_number:%d, ", copy.entry_number);
if (!verbose(tcp))
- tprintf("...}");
+ tprints("...}");
else {
print_ldt_entry(©);
}
tprintf("{entry_number:%d -> ",
copy.entry_number);
else
- tprintf("{entry_number:");
+ tprints("{entry_number:");
}
} else {
if (umove(tcp, tcp->u_arg[0], ©) != -1) {
tprintf("%d, ", copy.entry_number);
if (!verbose(tcp))
- tprintf("...}");
+ tprints("...}");
else {
print_ldt_entry(©);
}
if (umove(tcp, tcp->u_arg[0], ©) != -1) {
tprintf("{entry_number:%d, ", copy.entry_number);
if (!verbose(tcp))
- tprintf("...}");
+ tprints("...}");
else {
print_ldt_entry(©);
}
return 0;
}
-#endif /* LINUX && __i386__ */
-
-#if defined(LINUX) && defined(M68K)
+#endif /* I386 */
+#if defined(M68K)
int
sys_set_thread_area(struct tcb *tcp)
{
}
#endif
-#if defined(LINUX)
int
sys_remap_file_pages(struct tcb *tcp)
{
return 0;
}
-
#define MPOL_DEFAULT 0
#define MPOL_PREFERRED 1
#define MPOL_BIND 2
#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" },
{ 0, NULL }
};
-
static void
get_nodes(struct tcb *tcp, unsigned long ptr, unsigned long maxnodes, int err)
{
} else {
abbrev_end = end;
}
- tprintf(", {");
+ tprints(", {");
for (cur = ptr; cur < end; cur += sizeof(long)) {
if (cur > ptr)
- tprintf(", ");
+ tprints(", ");
if (cur >= abbrev_end) {
- tprintf("...");
+ tprints("...");
break;
}
if (umoven(tcp, cur, sizeof(n), (char *) &n) < 0) {
- tprintf("?");
+ tprints("?");
failed = 1;
break;
}
tprintf("%#0*lx", (int) sizeof(long) * 2 + 2, n);
}
- tprintf("}");
+ tprints("}");
if (failed)
tprintf(" %#lx", ptr);
} else
tprintf("%#lx, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
printxval(policies, tcp->u_arg[2], "MPOL_???");
get_nodes(tcp, tcp->u_arg[3], tcp->u_arg[4], 0);
- tprintf(", ");
+ tprints(", ");
printflags(mbindflags, tcp->u_arg[5], "MPOL_???");
}
return 0;
if (exiting(tcp)) {
int pol;
if (tcp->u_arg[0] == 0)
- tprintf("NULL");
+ tprints("NULL");
else if (syserror(tcp) || umove(tcp, tcp->u_arg[0], &pol) < 0)
tprintf("%#lx", tcp->u_arg[0]);
else
return 0;
}
+int
+sys_migrate_pages(struct tcb *tcp)
+{
+ if (entering(tcp)) {
+ tprintf("%ld, ", (long) (pid_t) tcp->u_arg[0]);
+ get_nodes(tcp, tcp->u_arg[2], tcp->u_arg[1], 0);
+ tprints(", ");
+ get_nodes(tcp, tcp->u_arg[3], tcp->u_arg[1], 0);
+ }
+ return 0;
+}
+
int
sys_move_pages(struct tcb *tcp)
{
unsigned long npages = tcp->u_arg[1];
tprintf("%ld, %lu, ", tcp->u_arg[0], npages);
if (tcp->u_arg[2] == 0)
- tprintf("NULL, ");
+ tprints("NULL, ");
else {
int i;
long puser = tcp->u_arg[2];
- tprintf("{");
+ tprints("{");
for (i = 0; i < npages; ++i) {
void *p;
if (i > 0)
- tprintf(", ");
+ tprints(", ");
if (umove(tcp, puser, &p) < 0) {
- tprintf("???");
+ tprints("???");
break;
}
tprintf("%p", p);
puser += sizeof(void *);
}
- tprintf("}, ");
+ tprints("}, ");
}
if (tcp->u_arg[3] == 0)
- tprintf("NULL, ");
+ tprints("NULL, ");
else {
int i;
long nodeuser = tcp->u_arg[3];
- tprintf("{");
+ tprints("{");
for (i = 0; i < npages; ++i) {
int node;
if (i > 0)
- tprintf(", ");
+ tprints(", ");
if (umove(tcp, nodeuser, &node) < 0) {
- tprintf("???");
+ tprints("???");
break;
}
tprintf("%#x", node);
nodeuser += sizeof(int);
}
- tprintf("}, ");
+ tprints("}, ");
}
}
if (exiting(tcp)) {
unsigned long npages = tcp->u_arg[1];
if (tcp->u_arg[4] == 0)
- tprintf("NULL, ");
+ tprints("NULL, ");
else {
int i;
long statususer = tcp->u_arg[4];
- tprintf("{");
+ tprints("{");
for (i = 0; i < npages; ++i) {
int status;
if (i > 0)
- tprintf(", ");
+ tprints(", ");
if (umove(tcp, statususer, &status) < 0) {
- tprintf("???");
+ tprints("???");
break;
}
tprintf("%#x", status);
statususer += sizeof(int);
}
- tprintf("}, ");
+ tprints("}, ");
}
printflags(move_pages_flags, tcp->u_arg[5], "MPOL_???");
}
return 0;
}
-#endif
-#if defined(LINUX) && defined(POWERPC)
+#if defined(POWERPC)
int
sys_subpage_prot(struct tcb *tcp)
{
tprintf("%#lx, %#lx, ", tcp->u_arg[0], tcp->u_arg[1]);
entries = tcp->u_arg[1] >> 16;
if (!entries || !tcp->u_arg[2]) {
- tprintf("{}");
+ tprints("{}");
return 0;
}
cur = tcp->u_arg[2];
}
else
abbrev_end = end;
- tprintf("{");
+ tprints("{");
for (; cur < end; cur += sizeof(int)) {
if (cur > tcp->u_arg[2])
- tprintf(", ");
+ tprints(", ");
if (cur >= abbrev_end) {
- tprintf("...");
+ tprints("...");
break;
}
if (umove(tcp, cur, &entry) < 0) {
else
tprintf("%#08x", entry);
}
- tprintf("}");
+ tprints("}");
}
return 0;
projects / strace / blobdiff