ipc.c - fp2-dev/platform/external/strace - Gitiles

 /*
  * Copyright (c) 1993 Ulrich Pegelow <pegelow@moorea.uni-muenster.de>
  * Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
  * Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
  * Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
  * modification, are permitted provided that the following conditions
  * are met:
  * 1. Redistributions of source code must retain the above copyright
  *    notice, this list of conditions and the following disclaimer.
  * 2. Redistributions in binary form must reproduce the above copyright
  *    notice, this list of conditions and the following disclaimer in the
  *    documentation and/or other materials provided with the distribution.
  * 3. The name of the author may not be used to endorse or promote products
  *    derived from this software without specific prior written permission.
  *
  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
  * 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.
  */

 #include "defs.h"
 #ifdef HAVE_MQUEUE_H
 # include <mqueue.h>
 #endif
 #include <fcntl.h>
 #include <sys/ipc.h>
 #include <sys/sem.h>
 #include <sys/msg.h>
 #include <sys/shm.h>

 #ifndef MSG_STAT
 #define MSG_STAT 11
 #endif
 #ifndef MSG_INFO
 #define MSG_INFO 12
 #endif
 #ifndef SHM_STAT
 #define SHM_STAT 13
 #endif
 #ifndef SHM_INFO
 #define SHM_INFO 14
 #endif
 #ifndef SEM_STAT
 #define SEM_STAT 18
 #endif
 #ifndef SEM_INFO
 #define SEM_INFO 19
 #endif

 #if !defined IPC_64
 # define IPC_64 0x100
 #endif

 extern void printsigevent(struct tcb *tcp, long arg);

 #include "xlat/msgctl_flags.h"
 #include "xlat/semctl_flags.h"
 #include "xlat/shmctl_flags.h"
 #include "xlat/resource_flags.h"
 #include "xlat/shm_resource_flags.h"
 #include "xlat/shm_flags.h"
 #include "xlat/ipc_msg_flags.h"
 #include "xlat/semop_flags.h"

 int sys_msgget(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		if (tcp->u_arg[0])
 			tprintf("%#lx, ", tcp->u_arg[0]);
 		else
 			tprints("IPC_PRIVATE, ");
 		if (printflags(resource_flags, tcp->u_arg[1] & ~0777, NULL) != 0)
 			tprints("|");
 		tprintf("%#lo", tcp->u_arg[1] & 0777);
 	}
 	return 0;
 }

 #ifdef IPC_64
 # define PRINTCTL(flagset, arg, dflt) \
 	if ((arg) & IPC_64) tprints("IPC_64|"); \
 	printxval((flagset), (arg) &~ IPC_64, dflt)
 #else
 # define PRINTCTL printxval
 #endif

 static int
 indirect_ipccall(struct tcb *tcp)
 {
 #ifdef X86_64
 	return current_personality == 1;
 #endif
 #if defined IA64
 	return tcp->scno < 1024; /* ia32 emulation syscalls are low */
 #endif
 #if defined(ALPHA) || defined(MIPS) || defined(HPPA) || defined(__ARM_EABI__) || defined(AARCH64)
 	return 0;
 #endif
 	return 1;
 }

 int sys_msgctl(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%lu, ", tcp->u_arg[0]);
 		PRINTCTL(msgctl_flags, tcp->u_arg[1], "MSG_???");
 		tprintf(", %#lx", tcp->u_arg[indirect_ipccall(tcp) ? 3 : 2]);
 	}
 	return 0;
 }

 static void
 tprint_msgsnd(struct tcb *tcp, long addr, unsigned long count,
 	      unsigned long flags)
 {
 	long mtype;

 	if (umove(tcp, addr, &mtype) < 0) {
 		tprintf("%#lx", addr);
 	} else {
 		tprintf("{%lu, ", mtype);
 		printstr(tcp, addr + sizeof(mtype), count);
 		tprints("}");
 	}
 	tprintf(", %lu, ", count);
 	printflags(ipc_msg_flags, flags, "MSG_???");
 }

 int sys_msgsnd(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%d, ", (int) tcp->u_arg[0]);
 		if (indirect_ipccall(tcp)) {
 			tprint_msgsnd(tcp, tcp->u_arg[3], tcp->u_arg[1],
 				      tcp->u_arg[2]);
 		} else {
 			tprint_msgsnd(tcp, tcp->u_arg[1], tcp->u_arg[2],
 				      tcp->u_arg[3]);
 		}
 	}
 	return 0;
 }

 static void
 tprint_msgrcv(struct tcb *tcp, long addr, unsigned long count, long msgtyp)
 {
 	long mtype;

 	if (syserror(tcp) || umove(tcp, addr, &mtype) < 0) {
 		tprintf("%#lx", addr);
 	} else {
 		tprintf("{%lu, ", mtype);
 		printstr(tcp, addr + sizeof(mtype), count);
 		tprints("}");
 	}
 	tprintf(", %lu, %ld, ", count, msgtyp);
 }

 int sys_msgrcv(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%d, ", (int) tcp->u_arg[0]);
 	} else {
 		if (indirect_ipccall(tcp)) {
 			struct ipc_wrapper {
 				struct msgbuf *msgp;
 				long msgtyp;
 			} tmp;

 			if (umove(tcp, tcp->u_arg[3], &tmp) < 0) {
 				tprintf("%#lx, %lu, ",
 					tcp->u_arg[3], tcp->u_arg[1]);
 			} else {
 				tprint_msgrcv(tcp, (long) tmp.msgp,
 					tcp->u_arg[1], tmp.msgtyp);
 			}
 			printflags(ipc_msg_flags, tcp->u_arg[2], "MSG_???");
 		} else {
 			tprint_msgrcv(tcp, tcp->u_arg[1],
 				tcp->u_arg[2], tcp->u_arg[3]);
 			printflags(ipc_msg_flags, tcp->u_arg[4], "MSG_???");
 		}
 	}
 	return 0;
 }

 static void
 tprint_sembuf(struct tcb *tcp, long addr, unsigned long count)
 {
 	unsigned long i, max_count;

 	if (abbrev(tcp))
 		max_count = (max_strlen < count) ? max_strlen : count;
 	else
 		max_count = count;

 	if (!max_count) {
 		tprintf("%#lx, %lu", addr, count);
 		return;
 	}

 	for (i = 0; i < max_count; ++i) {
 		struct sembuf sb;
 		if (i)
 			tprints(", ");
 		if (umove(tcp, addr + i * sizeof(struct sembuf), &sb) < 0) {
 			if (i) {
 				tprints("{???}");
 				break;
 			} else {
 				tprintf("%#lx, %lu", addr, count);
 				return;
 			}
 		} else {
 			if (!i)
 				tprints("{");
 			tprintf("{%u, %d, ", sb.sem_num, sb.sem_op);
 			printflags(semop_flags, sb.sem_flg, "SEM_???");
 			tprints("}");
 		}
 	}

 	if (i < max_count || max_count < count)
 		tprints(", ...");

 	tprintf("}, %lu", count);
 }

 int sys_semop(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%lu, ", tcp->u_arg[0]);
 		if (indirect_ipccall(tcp)) {
 			tprint_sembuf(tcp, tcp->u_arg[3], tcp->u_arg[1]);
 		} else {
 			tprint_sembuf(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 		}
 	}
 	return 0;
 }

 int sys_semtimedop(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%lu, ", tcp->u_arg[0]);
 		if (indirect_ipccall(tcp)) {
 			tprint_sembuf(tcp, tcp->u_arg[3], tcp->u_arg[1]);
 			tprints(", ");
 #if defined(S390) || defined(S390X)
 			printtv(tcp, tcp->u_arg[2]);
 #else
 			printtv(tcp, tcp->u_arg[4]);
 #endif
 		} else {
 			tprint_sembuf(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 			tprints(", ");
 			printtv(tcp, tcp->u_arg[3]);
 		}
 	}
 	return 0;
 }

 int sys_semget(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		if (tcp->u_arg[0])
 			tprintf("%#lx", tcp->u_arg[0]);
 		else
 			tprints("IPC_PRIVATE");
 		tprintf(", %lu, ", tcp->u_arg[1]);
 		if (printflags(resource_flags, tcp->u_arg[2] & ~0777, NULL) != 0)
 			tprints("|");
 		tprintf("%#lo", tcp->u_arg[2] & 0777);
 	}
 	return 0;
 }

 int sys_semctl(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%lu, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
 		PRINTCTL(semctl_flags, tcp->u_arg[2], "SEM_???");
 		tprintf(", %#lx", tcp->u_arg[3]);
 	}
 	return 0;
 }

 int sys_shmget(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		if (tcp->u_arg[0])
 			tprintf("%#lx", tcp->u_arg[0]);
 		else
 			tprints("IPC_PRIVATE");
 		tprintf(", %lu, ", tcp->u_arg[1]);
 		if (printflags(shm_resource_flags, tcp->u_arg[2] & ~0777, NULL) != 0)
 			tprints("|");
 		tprintf("%#lo", tcp->u_arg[2] & 0777);
 	}
 	return 0;
 }

 int sys_shmctl(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%lu, ", tcp->u_arg[0]);
 		PRINTCTL(shmctl_flags, tcp->u_arg[1], "SHM_???");
 		if (indirect_ipccall(tcp)) {
 			tprintf(", %#lx", tcp->u_arg[3]);
 		} else {
 			tprintf(", %#lx", tcp->u_arg[2]);
 		}
 	}
 	return 0;
 }

 int sys_shmat(struct tcb *tcp)
 {
 	if (exiting(tcp)) {
 		tprintf("%lu", tcp->u_arg[0]);
 		if (indirect_ipccall(tcp)) {
 			tprintf(", %#lx, ", tcp->u_arg[3]);
 			printflags(shm_flags, tcp->u_arg[1], "SHM_???");
 		} else {
 			tprintf(", %#lx, ", tcp->u_arg[1]);
 			printflags(shm_flags, tcp->u_arg[2], "SHM_???");
 		}
 		if (syserror(tcp))
 			return 0;
 		if (indirect_ipccall(tcp)) {
 			unsigned long raddr;
 			if (umove(tcp, tcp->u_arg[2], &raddr) < 0)
 				return RVAL_NONE;
 			tcp->u_rval = raddr;
 		}
 		return RVAL_HEX;
 	}
 	return 0;
 }

 int sys_shmdt(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		if (indirect_ipccall(tcp)) {
 			tprintf("%#lx", tcp->u_arg[3]);
 		} else {
 			tprintf("%#lx", tcp->u_arg[0]);
 		}
 	}
 	return 0;
 }

 int
 sys_mq_open(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		printpath(tcp, tcp->u_arg[0]);
 		tprints(", ");
 		/* flags */
 		tprint_open_modes(tcp->u_arg[1]);
 		if (tcp->u_arg[1] & O_CREAT) {
 # ifndef HAVE_MQUEUE_H
 			tprintf(", %lx", tcp->u_arg[2]);
 # else
 			struct mq_attr attr;
 			/* mode */
 			tprintf(", %#lo, ", tcp->u_arg[2]);
 			if (umove(tcp, tcp->u_arg[3], &attr) < 0)
 				tprints("{???}");
 			else
 				tprintf("{mq_maxmsg=%ld, mq_msgsize=%ld}",
 					(long) attr.mq_maxmsg,
 					(long) attr.mq_msgsize);
 # endif
 		}
 	}
 	return 0;
 }

 int
 sys_mq_timedsend(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 		tprintf(", %lu, %ld, ", tcp->u_arg[2], tcp->u_arg[3]);
 		printtv(tcp, tcp->u_arg[4]);
 	}
 	return 0;
 }

 int
 sys_mq_timedreceive(struct tcb *tcp)
 {
 	if (entering(tcp))
 		tprintf("%ld, ", tcp->u_arg[0]);
 	else {
 		printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
 		tprintf(", %lu, %ld, ", tcp->u_arg[2], tcp->u_arg[3]);
 		printtv(tcp, tcp->u_arg[4]);
 	}
 	return 0;
 }

 int
 sys_mq_notify(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printsigevent(tcp, tcp->u_arg[1]);
 	}
 	return 0;
 }

 static void
 printmqattr(struct tcb *tcp, long addr)
 {
 	if (addr == 0)
 		tprints("NULL");
 	else {
 # ifndef HAVE_MQUEUE_H
 		tprintf("%#lx", addr);
 # else
 		struct mq_attr attr;
 		if (umove(tcp, addr, &attr) < 0) {
 			tprints("{...}");
 			return;
 		}
 		tprints("{mq_flags=");
 		tprint_open_modes(attr.mq_flags);
 		tprintf(", mq_maxmsg=%ld, mq_msgsize=%ld, mq_curmsg=%ld}",
 			(long) attr.mq_maxmsg, (long) attr.mq_msgsize,
 			(long) attr.mq_curmsgs);
 # endif
 	}
 }

 int
 sys_mq_getsetattr(struct tcb *tcp)
 {
 	if (entering(tcp)) {
 		tprintf("%ld, ", tcp->u_arg[0]);
 		printmqattr(tcp, tcp->u_arg[1]);
 		tprints(", ");
 	} else
 		printmqattr(tcp, tcp->u_arg[2]);
 	return 0;
 }

 int
 sys_ipc(struct tcb *tcp)
 {
 	return printargs(tcp);
 }
	/*
	* Copyright (c) 1993 Ulrich Pegelow <pegelow@moorea.uni-muenster.de>
	* Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
	* Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
	* Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
	* All rights reserved.
	*
	* Redistribution and use in source and binary forms, with or without
	* modification, are permitted provided that the following conditions
	* are met:
	* 1. Redistributions of source code must retain the above copyright
	* notice, this list of conditions and the following disclaimer.
	* 2. Redistributions in binary form must reproduce the above copyright
	* notice, this list of conditions and the following disclaimer in the
	* documentation and/or other materials provided with the distribution.
	* 3. The name of the author may not be used to endorse or promote products
	* derived from this software without specific prior written permission.
	*
	* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
	* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
	* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
	* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
	* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
	* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
	* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
	* 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.
	*/

	#include "defs.h"
	#ifdef HAVE_MQUEUE_H
	# include <mqueue.h>
	#endif
	#include <fcntl.h>
	#include <sys/ipc.h>
	#include <sys/sem.h>
	#include <sys/msg.h>
	#include <sys/shm.h>

	#ifndef MSG_STAT
	#define MSG_STAT 11
	#endif
	#ifndef MSG_INFO
	#define MSG_INFO 12
	#endif
	#ifndef SHM_STAT
	#define SHM_STAT 13
	#endif
	#ifndef SHM_INFO
	#define SHM_INFO 14
	#endif
	#ifndef SEM_STAT
	#define SEM_STAT 18
	#endif
	#ifndef SEM_INFO
	#define SEM_INFO 19
	#endif

	#if !defined IPC_64
	# define IPC_64 0x100
	#endif

	extern void printsigevent(struct tcb *tcp, long arg);

	#include "xlat/msgctl_flags.h"
	#include "xlat/semctl_flags.h"
	#include "xlat/shmctl_flags.h"
	#include "xlat/resource_flags.h"
	#include "xlat/shm_resource_flags.h"
	#include "xlat/shm_flags.h"
	#include "xlat/ipc_msg_flags.h"
	#include "xlat/semop_flags.h"

	int sys_msgget(struct tcb *tcp)
	{
	if (entering(tcp)) {
	if (tcp->u_arg[0])
	tprintf("%#lx, ", tcp->u_arg[0]);
	else
	tprints("IPC_PRIVATE, ");
	if (printflags(resource_flags, tcp->u_arg[1] & ~0777, NULL) != 0)
	tprints("\|");
	tprintf("%#lo", tcp->u_arg[1] & 0777);
	}
	return 0;
	}

	#ifdef IPC_64
	# define PRINTCTL(flagset, arg, dflt) \
	if ((arg) & IPC_64) tprints("IPC_64\|"); \
	printxval((flagset), (arg) &~ IPC_64, dflt)
	#else
	# define PRINTCTL printxval
	#endif

	static int
	indirect_ipccall(struct tcb *tcp)
	{
	#ifdef X86_64
	return current_personality == 1;
	#endif
	#if defined IA64
	return tcp->scno < 1024; /* ia32 emulation syscalls are low */
	#endif
	#if defined(ALPHA) \|\| defined(MIPS) \|\| defined(HPPA) \|\| defined(__ARM_EABI__) \|\| defined(AARCH64)
	return 0;
	#endif
	return 1;
	}

	int sys_msgctl(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%lu, ", tcp->u_arg[0]);
	PRINTCTL(msgctl_flags, tcp->u_arg[1], "MSG_???");
	tprintf(", %#lx", tcp->u_arg[indirect_ipccall(tcp) ? 3 : 2]);
	}
	return 0;
	}

	static void
	tprint_msgsnd(struct tcb *tcp, long addr, unsigned long count,
	unsigned long flags)
	{
	long mtype;

	if (umove(tcp, addr, &mtype) < 0) {
	tprintf("%#lx", addr);
	} else {
	tprintf("{%lu, ", mtype);
	printstr(tcp, addr + sizeof(mtype), count);
	tprints("}");
	}
	tprintf(", %lu, ", count);
	printflags(ipc_msg_flags, flags, "MSG_???");
	}

	int sys_msgsnd(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%d, ", (int) tcp->u_arg[0]);
	if (indirect_ipccall(tcp)) {
	tprint_msgsnd(tcp, tcp->u_arg[3], tcp->u_arg[1],
	tcp->u_arg[2]);
	} else {
	tprint_msgsnd(tcp, tcp->u_arg[1], tcp->u_arg[2],
	tcp->u_arg[3]);
	}
	}
	return 0;
	}

	static void
	tprint_msgrcv(struct tcb *tcp, long addr, unsigned long count, long msgtyp)
	{
	long mtype;

	if (syserror(tcp) \|\| umove(tcp, addr, &mtype) < 0) {
	tprintf("%#lx", addr);
	} else {
	tprintf("{%lu, ", mtype);
	printstr(tcp, addr + sizeof(mtype), count);
	tprints("}");
	}
	tprintf(", %lu, %ld, ", count, msgtyp);
	}

	int sys_msgrcv(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%d, ", (int) tcp->u_arg[0]);
	} else {
	if (indirect_ipccall(tcp)) {
	struct ipc_wrapper {
	struct msgbuf *msgp;
	long msgtyp;
	} tmp;

	if (umove(tcp, tcp->u_arg[3], &tmp) < 0) {
	tprintf("%#lx, %lu, ",
	tcp->u_arg[3], tcp->u_arg[1]);
	} else {
	tprint_msgrcv(tcp, (long) tmp.msgp,
	tcp->u_arg[1], tmp.msgtyp);
	}
	printflags(ipc_msg_flags, tcp->u_arg[2], "MSG_???");
	} else {
	tprint_msgrcv(tcp, tcp->u_arg[1],
	tcp->u_arg[2], tcp->u_arg[3]);
	printflags(ipc_msg_flags, tcp->u_arg[4], "MSG_???");
	}
	}
	return 0;
	}

	static void
	tprint_sembuf(struct tcb *tcp, long addr, unsigned long count)
	{
	unsigned long i, max_count;

	if (abbrev(tcp))
	max_count = (max_strlen < count) ? max_strlen : count;
	else
	max_count = count;

	if (!max_count) {
	tprintf("%#lx, %lu", addr, count);
	return;
	}

	for (i = 0; i < max_count; ++i) {
	struct sembuf sb;
	if (i)
	tprints(", ");
	if (umove(tcp, addr + i * sizeof(struct sembuf), &sb) < 0) {
	if (i) {
	tprints("{???}");
	break;
	} else {
	tprintf("%#lx, %lu", addr, count);
	return;
	}
	} else {
	if (!i)
	tprints("{");
	tprintf("{%u, %d, ", sb.sem_num, sb.sem_op);
	printflags(semop_flags, sb.sem_flg, "SEM_???");
	tprints("}");
	}
	}

	if (i < max_count \|\| max_count < count)
	tprints(", ...");

	tprintf("}, %lu", count);
	}

	int sys_semop(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%lu, ", tcp->u_arg[0]);
	if (indirect_ipccall(tcp)) {
	tprint_sembuf(tcp, tcp->u_arg[3], tcp->u_arg[1]);
	} else {
	tprint_sembuf(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	}
	}
	return 0;
	}

	int sys_semtimedop(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%lu, ", tcp->u_arg[0]);
	if (indirect_ipccall(tcp)) {
	tprint_sembuf(tcp, tcp->u_arg[3], tcp->u_arg[1]);
	tprints(", ");
	#if defined(S390) \|\| defined(S390X)
	printtv(tcp, tcp->u_arg[2]);
	#else
	printtv(tcp, tcp->u_arg[4]);
	#endif
	} else {
	tprint_sembuf(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	tprints(", ");
	printtv(tcp, tcp->u_arg[3]);
	}
	}
	return 0;
	}

	int sys_semget(struct tcb *tcp)
	{
	if (entering(tcp)) {
	if (tcp->u_arg[0])
	tprintf("%#lx", tcp->u_arg[0]);
	else
	tprints("IPC_PRIVATE");
	tprintf(", %lu, ", tcp->u_arg[1]);
	if (printflags(resource_flags, tcp->u_arg[2] & ~0777, NULL) != 0)
	tprints("\|");
	tprintf("%#lo", tcp->u_arg[2] & 0777);
	}
	return 0;
	}

	int sys_semctl(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%lu, %lu, ", tcp->u_arg[0], tcp->u_arg[1]);
	PRINTCTL(semctl_flags, tcp->u_arg[2], "SEM_???");
	tprintf(", %#lx", tcp->u_arg[3]);
	}
	return 0;
	}

	int sys_shmget(struct tcb *tcp)
	{
	if (entering(tcp)) {
	if (tcp->u_arg[0])
	tprintf("%#lx", tcp->u_arg[0]);
	else
	tprints("IPC_PRIVATE");
	tprintf(", %lu, ", tcp->u_arg[1]);
	if (printflags(shm_resource_flags, tcp->u_arg[2] & ~0777, NULL) != 0)
	tprints("\|");
	tprintf("%#lo", tcp->u_arg[2] & 0777);
	}
	return 0;
	}

	int sys_shmctl(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%lu, ", tcp->u_arg[0]);
	PRINTCTL(shmctl_flags, tcp->u_arg[1], "SHM_???");
	if (indirect_ipccall(tcp)) {
	tprintf(", %#lx", tcp->u_arg[3]);
	} else {
	tprintf(", %#lx", tcp->u_arg[2]);
	}
	}
	return 0;
	}

	int sys_shmat(struct tcb *tcp)
	{
	if (exiting(tcp)) {
	tprintf("%lu", tcp->u_arg[0]);
	if (indirect_ipccall(tcp)) {
	tprintf(", %#lx, ", tcp->u_arg[3]);
	printflags(shm_flags, tcp->u_arg[1], "SHM_???");
	} else {
	tprintf(", %#lx, ", tcp->u_arg[1]);
	printflags(shm_flags, tcp->u_arg[2], "SHM_???");
	}
	if (syserror(tcp))
	return 0;
	if (indirect_ipccall(tcp)) {
	unsigned long raddr;
	if (umove(tcp, tcp->u_arg[2], &raddr) < 0)
	return RVAL_NONE;
	tcp->u_rval = raddr;
	}
	return RVAL_HEX;
	}
	return 0;
	}

	int sys_shmdt(struct tcb *tcp)
	{
	if (entering(tcp)) {
	if (indirect_ipccall(tcp)) {
	tprintf("%#lx", tcp->u_arg[3]);
	} else {
	tprintf("%#lx", tcp->u_arg[0]);
	}
	}
	return 0;
	}

	int
	sys_mq_open(struct tcb *tcp)
	{
	if (entering(tcp)) {
	printpath(tcp, tcp->u_arg[0]);
	tprints(", ");
	/* flags */
	tprint_open_modes(tcp->u_arg[1]);
	if (tcp->u_arg[1] & O_CREAT) {
	# ifndef HAVE_MQUEUE_H
	tprintf(", %lx", tcp->u_arg[2]);
	# else
	struct mq_attr attr;
	/* mode */
	tprintf(", %#lo, ", tcp->u_arg[2]);
	if (umove(tcp, tcp->u_arg[3], &attr) < 0)
	tprints("{???}");
	else
	tprintf("{mq_maxmsg=%ld, mq_msgsize=%ld}",
	(long) attr.mq_maxmsg,
	(long) attr.mq_msgsize);
	# endif
	}
	}
	return 0;
	}

	int
	sys_mq_timedsend(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	tprintf(", %lu, %ld, ", tcp->u_arg[2], tcp->u_arg[3]);
	printtv(tcp, tcp->u_arg[4]);
	}
	return 0;
	}

	int
	sys_mq_timedreceive(struct tcb *tcp)
	{
	if (entering(tcp))
	tprintf("%ld, ", tcp->u_arg[0]);
	else {
	printstr(tcp, tcp->u_arg[1], tcp->u_arg[2]);
	tprintf(", %lu, %ld, ", tcp->u_arg[2], tcp->u_arg[3]);
	printtv(tcp, tcp->u_arg[4]);
	}
	return 0;
	}

	int
	sys_mq_notify(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printsigevent(tcp, tcp->u_arg[1]);
	}
	return 0;
	}

	static void
	printmqattr(struct tcb *tcp, long addr)
	{
	if (addr == 0)
	tprints("NULL");
	else {
	# ifndef HAVE_MQUEUE_H
	tprintf("%#lx", addr);
	# else
	struct mq_attr attr;
	if (umove(tcp, addr, &attr) < 0) {
	tprints("{...}");
	return;
	}
	tprints("{mq_flags=");
	tprint_open_modes(attr.mq_flags);
	tprintf(", mq_maxmsg=%ld, mq_msgsize=%ld, mq_curmsg=%ld}",
	(long) attr.mq_maxmsg, (long) attr.mq_msgsize,
	(long) attr.mq_curmsgs);
	# endif
	}
	}

	int
	sys_mq_getsetattr(struct tcb *tcp)
	{
	if (entering(tcp)) {
	tprintf("%ld, ", tcp->u_arg[0]);
	printmqattr(tcp, tcp->u_arg[1]);
	tprints(", ");
	} else
	printmqattr(tcp, tcp->u_arg[2]);
	return 0;
	}

	int
	sys_ipc(struct tcb *tcp)
	{
	return printargs(tcp);
	}