Attachment 203621 Details for Bug 289411 – SystemTap nonintrusive ptrace(2) && wait4(2) tracer.

SystemTap nonintrusive ptrace(2) && wait4(2) tracer.

ptrace.stp (text/plain), 2.89 KB, created by Jan Kratochvil on 2007-09-23 22:47:52 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Jan Kratochvil

Created: 2007-09-23 22:47:52 UTC

Size: 2.89 KB

patch

obsolete

>probe begin
>{
>	print ("START\n")
>}
>global ptrace_enter
>probe syscall.ptrace
>{
>	request_name = ""
>	if ($request == 0)
>		request_name = "PTRACE_TRACEME"
>	else if ($request == 1)
>		Xrequest_name = "PTRACE_PEEKTEXT"
>	else if ($request == 2)
>		Xrequest_name = "PTRACE_PEEKDATA"
>	else if ($request == 3)
>		Xrequest_name = "PTRACE_PEEKUSR"
>	else if ($request == 4)
>		Xrequest_name = "PTRACE_POKETEXT"
>	else if ($request == 5)
>		Xrequest_name = "PTRACE_POKEDATA"
>	else if ($request == 6)
>		Xrequest_name = "PTRACE_POKEUSR"
>	else if ($request == 7)
>		request_name = "PTRACE_CONT"
>	else if ($request == 8)
>		request_name = "PTRACE_KILL"
>	else if ($request == 9)
>		request_name = "PTRACE_SINGLESTEP"
>	else if ($request == 16)
>		request_name = "PTRACE_ATTACH"
>	else if ($request == 17)
>		request_name = "PTRACE_DETACH"
>	else if ($request == 24)
>		request_name = "PTRACE_SYSCALL"
>	else if ($request == 0x4200)
>		request_name = "PTRACE_SETOPTIONS"
>	else if ($request == 0x4201)
>		request_name = "PTRACE_GETEVENTMSG"
>	else if ($request == 0x4202)
>		request_name = "PTRACE_GETSIGINFO"
>	else if ($request == 0x4203)
>		request_name = "PTRACE_SETSIGINFO"
>	else
>		request_name = sprintf ("0x%x", $request)
>	if (request_name == "")
>		ptrace_enter = ""
>	else
>		ptrace_enter = sprintf ("%s (%d, 0x%x, 0x%x)", request_name, $pid, $addr, $data)
>}
>probe syscall.ptrace.return
>{
>	# 2 => hex
>	if (ptrace_enter != "")
>		print (ptrace_enter." = ".returnstr (2)."\n")
>}
>global wait4_enter
>
>function get_uint:long (addr:long)
>%{
>	int __user *addr = (int *) (unsigned long) THIS->addr;
>	unsigned int retval;
>
>	if (get_user (retval, addr))
>		THIS->__retvalue = -1L;
>	else
>		THIS->__retvalue = retval;
>%}
>
>global wait4_stat_addr
>probe kernel.function("sys_wait4")
>{
>	wait4_stat_addr = $stat_addr
>	wait4_enter = sprintf ("wait4 (%d, 0x%x)", $pid, $options)
>}
>probe kernel.function("sys_wait4").return
>{
>	if (wait4_enter != "")
>		{
>			if (wait4_stat_addr == 0)
>				status = "NULL"
>			else
>				{
>					status_long = get_uint (wait4_stat_addr)
>					if (status_long == -1)
>						status = sprintf ("ERR*0x%x", wait4_stat_addr)
>					else
>						status = sprintf ("0x%x", status_long)
>				}
>			printf ("%s = (status %s) %s\n", wait4_enter, status, returnstr (1))
>		}
>}
>
>global kill_enter
>probe kernel.function("sys_kill")
>{
>	kill_enter = sprintf ("kill (%d, sig %d)", $pid, $sig);
>}
>probe kernel.function("sys_kill").return
>{
>	if (kill_enter != "")
>		printf ("%s = %s\n", kill_enter, returnstr (1))
>}
>
>global tkill_enter
>probe kernel.function("sys_tkill")
>{
>	tkill_enter = sprintf ("tkill (%d, sig %d)", $pid, $sig);
>}
>probe kernel.function("sys_tkill").return
>{
>	if (tkill_enter != "")
>		printf ("%s = %s\n", tkill_enter, returnstr (1))
>}
>
>global tgkill_enter
>probe kernel.function("sys_tgkill")
>{
>	tgkill_enter = sprintf ("tgkill (tgid %d, tid %d, sig %d)", $tgid, $pid, $sig);
>}
>probe kernel.function("sys_tgkill").return
>{
>	if (tgkill_enter != "")
>		printf ("%s = %s\n", tgkill_enter, returnstr (1))
>}

Actions: View

Attachments on bug 289411: 194741 | 203581 | 203591 | 203601 | 203611 | 203621