Dmitry V. Levin
b93d52fe3d
strace is now provided under the terms of the GNU Lesser General Public License version 2.1 or later, see COPYING for more details. strace test suite is now provided under the terms of the GNU General Public License version 2 or later, see tests/COPYING for more details.
110 lines
2.6 KiB
C
110 lines
2.6 KiB
C
/*
|
|
* 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>
|
|
* Copyright (c) 2003-2006 Roland McGrath <roland@redhat.com>
|
|
* Copyright (c) 2006-2015 Dmitry V. Levin <ldv@altlinux.org>
|
|
* Copyright (c) 2015-2018 The strace developers.
|
|
* All rights reserved.
|
|
*
|
|
* SPDX-License-Identifier: LGPL-2.1-or-later
|
|
*/
|
|
|
|
#include "defs.h"
|
|
#include "ipc_defs.h"
|
|
|
|
#ifdef HAVE_SYS_SEM_H
|
|
# include <sys/sem.h>
|
|
#elif defined HAVE_LINUX_SEM_H
|
|
# include <linux/sem.h>
|
|
#endif
|
|
|
|
#include "xlat/semctl_flags.h"
|
|
#include "xlat/semop_flags.h"
|
|
|
|
#if defined HAVE_SYS_SEM_H || defined HAVE_LINUX_SEM_H
|
|
static bool
|
|
print_sembuf(struct tcb *tcp, void *elem_buf, size_t elem_size, void *data)
|
|
{
|
|
const struct sembuf *sb = elem_buf;
|
|
|
|
tprintf("{%u, %d, ", sb->sem_num, sb->sem_op);
|
|
printflags(semop_flags, (unsigned short) sb->sem_flg, "SEM_???");
|
|
tprints("}");
|
|
|
|
return true;
|
|
}
|
|
#endif
|
|
|
|
static void
|
|
tprint_sembuf_array(struct tcb *const tcp, const kernel_ulong_t addr,
|
|
const unsigned int count)
|
|
{
|
|
#if defined HAVE_SYS_SEM_H || defined HAVE_LINUX_SEM_H
|
|
struct sembuf sb;
|
|
print_array(tcp, addr, count, &sb, sizeof(sb),
|
|
tfetch_mem, print_sembuf, 0);
|
|
#else
|
|
printaddr(addr);
|
|
#endif
|
|
tprintf(", %u", count);
|
|
}
|
|
|
|
SYS_FUNC(semop)
|
|
{
|
|
tprintf("%d, ", (int) tcp->u_arg[0]);
|
|
if (indirect_ipccall(tcp)) {
|
|
tprint_sembuf_array(tcp, tcp->u_arg[3], tcp->u_arg[1]);
|
|
} else {
|
|
tprint_sembuf_array(tcp, tcp->u_arg[1], tcp->u_arg[2]);
|
|
}
|
|
return RVAL_DECODED;
|
|
}
|
|
|
|
SYS_FUNC(semtimedop)
|
|
{
|
|
tprintf("%d, ", (int) tcp->u_arg[0]);
|
|
if (indirect_ipccall(tcp)) {
|
|
tprint_sembuf_array(tcp, tcp->u_arg[3], tcp->u_arg[1]);
|
|
tprints(", ");
|
|
#if defined(S390) || defined(S390X)
|
|
print_timespec(tcp, tcp->u_arg[2]);
|
|
#else
|
|
print_timespec(tcp, tcp->u_arg[4]);
|
|
#endif
|
|
} else {
|
|
tprint_sembuf_array(tcp, tcp->u_arg[1], tcp->u_arg[2]);
|
|
tprints(", ");
|
|
print_timespec(tcp, tcp->u_arg[3]);
|
|
}
|
|
return RVAL_DECODED;
|
|
}
|
|
|
|
SYS_FUNC(semget)
|
|
{
|
|
printxval(ipc_private, (unsigned int) tcp->u_arg[0], NULL);
|
|
tprintf(", %d, ", (int) tcp->u_arg[1]);
|
|
if (printflags(resource_flags, tcp->u_arg[2] & ~0777, NULL) != 0)
|
|
tprints("|");
|
|
print_numeric_umode_t(tcp->u_arg[2] & 0777);
|
|
return RVAL_DECODED;
|
|
}
|
|
|
|
SYS_FUNC(semctl)
|
|
{
|
|
tprintf("%d, %d, ", (int) tcp->u_arg[0], (int) tcp->u_arg[1]);
|
|
PRINTCTL(semctl_flags, tcp->u_arg[2], "SEM_???");
|
|
tprints(", ");
|
|
if (indirect_ipccall(tcp)
|
|
#ifdef SPARC64
|
|
&& current_personality != 0
|
|
#endif
|
|
) {
|
|
printnum_ptr(tcp, tcp->u_arg[3]);
|
|
} else {
|
|
printaddr(tcp->u_arg[3]);
|
|
}
|
|
return RVAL_DECODED;
|
|
}
|