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.
35 lines
980 B
C
35 lines
980 B
C
/*
|
|
* Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
|
|
* 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) 1999 IBM Deutschland Entwicklung GmbH, IBM Corporation
|
|
* Linux for s390 port by D.J. Barrow
|
|
* <barrow_dj@mail.yahoo.com,djbarrow@de.ibm.com>
|
|
* Copyright (c) 1999-2017 The strace developers.
|
|
* All rights reserved.
|
|
*
|
|
* SPDX-License-Identifier: LGPL-2.1-or-later
|
|
*/
|
|
|
|
#include "defs.h"
|
|
#include "ptrace.h"
|
|
|
|
int
|
|
upeek(struct tcb *tcp, unsigned long off, kernel_ulong_t *res)
|
|
{
|
|
long val;
|
|
|
|
errno = 0;
|
|
val = ptrace(PTRACE_PEEKUSER, (pid_t) tcp->pid, (void *) off, 0);
|
|
if (val == -1 && errno) {
|
|
if (errno != ESRCH) {
|
|
perror_msg("upeek: PTRACE_PEEKUSER pid:%d @0x%lx)",
|
|
tcp->pid, off);
|
|
}
|
|
return -1;
|
|
}
|
|
*res = (unsigned long) val;
|
|
return 0;
|
|
}
|