Server : Apache System : Linux server2.corals.io 4.18.0-348.2.1.el8_5.x86_64 #1 SMP Mon Nov 15 09:17:08 EST 2021 x86_64 User : corals ( 1002) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /opt/rh/gcc-toolset-11/root/usr/share/systemtap/tapset/linux/s390/ |
# arch-specific requests of ptrace ___________________________
#
%{
// compat_ptrace_area is defined in a private header
// (arch/s390/kernel/compat_ptrace.h), so define our own.
typedef struct
{
__u32 len;
__u32 kernel_addr;
__u32 process_addr;
} __stp_compat_ptrace_area;
%}
function _stp_ptrace_area_u:string(ptrace_area_uaddr:long)
%{ /* pure */
char *area_uaddr = (void *)(uintptr_t)STAP_ARG_ptrace_area_uaddr;
ptrace_area area;
if (area_uaddr == NULL)
strlcpy(STAP_RETVALUE, "NULL", MAXSTRINGLEN);
else {
if (_stp_copy_from_user((char*)&area, area_uaddr,
sizeof(area)) == 0) {
_stp_snprintf(STAP_RETVALUE, MAXSTRINGLEN,
"[{%u, %#lx, %#lx}]", area.len,
area.kernel_addr, area.process_addr);
}
else
_stp_snprintf(STAP_RETVALUE, MAXSTRINGLEN, "0x%lx",
(unsigned long)area_uaddr);
}
%}
function _stp_compat_ptrace_area_u:string(compat_ptrace_area_uaddr:long)
%{ /* pure */
#ifdef CONFIG_COMPAT
char *area_uaddr = (void *)(uintptr_t)STAP_ARG_compat_ptrace_area_uaddr;
__stp_compat_ptrace_area area;
if (area_uaddr == NULL)
strlcpy(STAP_RETVALUE, "NULL", MAXSTRINGLEN);
else {
if (_stp_copy_from_user((char*)&area, area_uaddr,
sizeof(area)) == 0) {
_stp_snprintf(STAP_RETVALUE, MAXSTRINGLEN,
"[{%u, %#x, %#x}]", area.len,
area.kernel_addr, area.process_addr);
}
else
_stp_snprintf(STAP_RETVALUE, MAXSTRINGLEN, "0x%lx",
(unsigned long)area_uaddr);
}
#endif
%}
%{
// Get _stp_val_array and _stp_lookup_* definitions.
#include "linux/syscalls-common.h"
// PTRACE_SINGLEBLOCK was added in kernel 3.15. However, its value
// overlaps with PTRACE_GETREGS (which userspace has defined. So,
// we'll give PTRACE_SINGLEBLOCK a bogus value on earlier kernels.
#ifndef PTRACE_SINGLEBLOCK
#if LINUX_VERSION_CODE >= KERNEL_VERSION(3,15,0)
#define PTRACE_SINGLEBLOCK 12
#else
#define PTRACE_SINGLEBLOCK 0xABCDEF12
#endif
#endif
#ifndef PTRACE_GET_LAST_BREAK
#define PTRACE_GET_LAST_BREAK 0x5006
#endif
#ifndef PTRACE_PEEK_SYSTEM_CALL
#define PTRACE_PEEK_SYSTEM_CALL 0x5007
#endif
#ifndef PTRACE_POKE_SYSTEM_CALL
#define PTRACE_POKE_SYSTEM_CALL 0x5008
#endif
#ifndef PTRACE_ENABLE_TE
#define PTRACE_ENABLE_TE 0x5009
#endif
#ifndef PTRACE_DISABLE_TE
#define PTRACE_DISABLE_TE 0x5010
#endif
#ifndef PTRACE_TE_ABORT_RAND
#define PTRACE_TE_ABORT_RAND 0x5011
#endif
static const _stp_val_array _stp_arch_ptrace_request_list[] = {
V(PTRACE_SINGLEBLOCK),
V(PTRACE_OLDSETOPTIONS),
V(PTRACE_PEEKUSR_AREA),
V(PTRACE_POKEUSR_AREA),
V(PTRACE_PEEKTEXT_AREA),
V(PTRACE_PEEKDATA_AREA),
V(PTRACE_POKETEXT_AREA),
V(PTRACE_POKEDATA_AREA),
V(PTRACE_GET_LAST_BREAK),
V(PTRACE_PEEK_SYSTEM_CALL),
V(PTRACE_POKE_SYSTEM_CALL),
V(PTRACE_ENABLE_TE),
V(PTRACE_DISABLE_TE),
V(PTRACE_TE_ABORT_RAND),
{0, NULL}
};
%}
function __arch_ptrace_request_str:string(request:long)
%{ /* pure */
_stp_lookup_str(_stp_arch_ptrace_request_list,
(unsigned long)STAP_ARG_request, STAP_RETVALUE,
MAXSTRINGLEN);
%}
function _arch_ptrace_argstr(request, pid, addr, data)
{
if (request == @const("PTRACE_OLDSETOPTIONS"))
return sprintf("PTRACE_OLDSETOPTIONS, %d, %#x, %s", pid,
addr, _ptrace_options_str(data))
if (request == @const("PTRACE_PEEKUSR_AREA")
|| request == @const("PTRACE_POKEUSR_AREA")
|| request == @const("PTRACE_PEEKTEXT_AREA")
|| request == @const("PTRACE_PEEKDATA_AREA")
|| request == @const("PTRACE_POKETEXT_AREA")
|| request == @const("PTRACE_POKEDATA_AREA"))
return sprintf("%s, %d, %s, %#x",
__arch_ptrace_request_str(request), pid,
(@__compat_task
? _stp_compat_ptrace_area_u(addr)
: _stp_ptrace_area_u(addr)), data)
if (request == @const("PTRACE_GET_LAST_BREAK")
|| request == @const("PTRACE_ENABLE_TE")
|| request == @const("PTRACE_DISABLE_TE")
|| request == @const("PTRACE_TE_ABORT_RAND"))
return sprintf("%s, %d, %#x, %#x",
__arch_ptrace_request_str(request),
pid, addr, data)
// Although the following ptrace requests are defined in the
// ptrace header file, they aren't implemented in the kernel.
if (request == @const("PTRACE_PEEK_SYSTEM_CALL")
|| request == @const("PTRACE_POKE_SYSTEM_CALL"))
return sprintf("%s, %d, %#x, %#x",
__arch_ptrace_request_str(request),
pid, addr, data)
if (request == @const("PTRACE_SINGLEBLOCK"))
return sprintf("%s, %d, %#x, %s",
__arch_ptrace_request_str(request), pid,
addr, _signal_name (data))
}
function _ptrace_return_arch_prctl_addr:long(request:long, addr:long, data:long)
{
return 0
}
%( systemtap_v <= "3.0" %?
function get_32mmap_args:string(args:long)
%{ /* pure */
struct mmap_arg_struct_emu31 {
u32 addr;
u32 len;
u32 prot;
u32 flags;
u32 fd;
u32 offset;
} a;
if (_stp_copy_from_user((char *)&a, (char *)(uintptr_t)STAP_ARG_args,
sizeof(a)) == 0) {
int len;
_stp_snprintf(STAP_RETVALUE, MAXSTRINGLEN, "0x%x, %u, ",
a.addr, a.len);
_stp_lookup_or_str(_stp_mprotect_list, a.prot, STAP_RETVALUE,
MAXSTRINGLEN);
strlcat (STAP_RETVALUE, ", ", MAXSTRINGLEN);
_stp_lookup_or_str(_stp_mmap_list, a.flags, STAP_RETVALUE,
MAXSTRINGLEN);
strlcat (STAP_RETVALUE, ", ", MAXSTRINGLEN);
len = strlen(STAP_RETVALUE);
_stp_snprintf(STAP_RETVALUE + len, MAXSTRINGLEN - len,
"%d, %d", a.fd, a.offset);
} else {
strlcpy (STAP_RETVALUE, "UNKNOWN", MAXSTRINGLEN);
}
%}
%)