1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
/*
* stap -g -I../tapset call_status.stp
*/
global transmit, ctask
probe module("sunrpc").function("rpc_call_sync").return
{
if ($return < 0 && $return != -11)
printf("rpc_call_sync: %s(%d): status %d\n", execname(), pid(), $return);
}
probe module("sunrpc").function("call_transmit_status")
{
ctask = $task;
}
probe module("sunrpc").function("call_transmit_status").return
{
terror = task_status(ctask);
if (terror && terror != -11)
printf("call_connect:%s:%s: error %d (%s)\n",
cl_server(ctask), cl_prog(ctask), terror, errno_str(terror));
}
probe module("sunrpc").function("call_connect_status")
{
ctask = $task;
}
probe module("sunrpc").function("call_connect_status").return
{
terror = task_status(ctask);
if (terror && terror != -11)
printf("call_connect_status:%s:%s: error %d (%s)\n",
cl_server(ctask), cl_prog(ctask), terror, errno_str(terror));
}
probe module("sunrpc").function("call_bind_status")
{
terror = task_status($task);
if (terror && terror != -11)
printf("call_bind_status:%s:%s: error %d (%s)\n",
cl_server($task), cl_prog($task), terror, errno_str(terror));
}
probe module("sunrpc").function("call_transmit")
{
transmit = $task;
terror = task_status($task);
if (terror && terror != -11)
printf("call_connect_status:%s:%s: error %d (%s)\n",
cl_server($task), cl_prog($task), terror, errno_str(terror));
}
probe module("sunrpc").function("call_transmit").return
{
terror = task_status(transmit);
if (terror && terror != -11)
printf("call_connect_status:%s:%s: error %d (%s)\n",
cl_server(transmit), cl_prog(transmit), terror, errno_str(terror));
}
/*
probe module("sunrpc").function("xs_tcp_finish_connecting").return
{
if ($return)
printf("xs_tcp_finish_connecting: error %d (%s)\n",
$return, errno_str($return));
}
*/
probe begin { log("starting call_status probe") }
probe end { log("ending call_status probe") }
|