added sunrpc/call_status.stp

Signed-off-by: Steve Dickson <steved@redhat.com>

1 files changed, 32 insertions, 0 deletions

diff --git a/sunrpc/call_status.stp b/sunrpc/call_status.stp
new file mode 100644
index 0000000..56976cd
--- /dev/null
+++ b/sunrpc/call_status.stp
@@ -0,0 +1,32 @@
+/*
+ * stap -g -I../tapset call_status.stp
+ */
+probe module("sunrpc").function("call_connect_status")
+{
+	terror = task_status($task);
+	if (terror)
+		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_bind_status")
+{
+	terror = task_status($task);
+	if (terror)
+		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_connect_status")
+{
+	terror = task_status($task);
+	if (terror)
+		printf("call_connect_status:%s:%s: error %d (%s)\n", 
+			cl_server($task), cl_prog($task), 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") }