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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
|
// context tapset
// Copyright (C) 2005 Red Hat Inc.
//
// This file is part of systemtap, and is free software. You can
// redistribute it and/or modify it under the terms of the GNU General
// Public License (GPL); either version 2, or (at your option) any
// later version.
function print_regs () %{
if (CONTEXT->regs) {
_stp_print_regs (CONTEXT->regs);
}
%}
function print_backtrace () %{
if (CONTEXT->regs) {
_stp_stack_print(CONTEXT->regs);
}
%}
function backtrace:string () %{
if (CONTEXT->regs) {
/* XXX: this won't be necessary when runtime and translator */
/* agree on what a string is. */
String str = _stp_string_init (0);
_stp_stack_sprint (str, CONTEXT->regs, 0);
strlcpy (THIS->__retvalue, _stp_string_ptr(str), MAXSTRINGLEN);
} else
strlcpy (THIS->__retvalue, "", MAXSTRINGLEN);
%}
function execname:string () %{
if (unlikely(in_interrupt()))
strlcpy (THIS->__retvalue, "<unknown>", MAXSTRINGLEN);
else
strlcpy (THIS->__retvalue, current->comm, MAXSTRINGLEN);
%}
function pid:long () %{
if (unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->tgid;
%}
function tid:long () %{
if (unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->pid;
%}
function ppid:long () %{
if (unlikely(in_interrupt() || !current->parent))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->parent->tgid;
%}
function pexecname:string () %{
if(unlikely(in_interrupt() || !current->parent || !current->parent->comm))
strlcpy (THIS->__retvalue, "<unknown>", MAXSTRINGLEN);
else
strlcpy (THIS->__retvalue, current->parent->comm, MAXSTRINGLEN);
%}
function gid:long () %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->gid;
%}
function egid:long () %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->egid;
%}
function uid:long () %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->uid;
%}
function euid:long () %{
if(unlikely(in_interrupt()))
THIS->__retvalue = 0;
else
THIS->__retvalue = current->euid;
%}
function print_stack(stk:string) %{
char *ptr = THIS->stk;
char *tok = strsep(&ptr, " ");
while (tok && *tok) {
_stp_print_cstr(" ");
_stp_symbol_print (simple_strtol(tok, NULL, 16));
_stp_print_cstr("\n");
tok = strsep(&ptr, " ");
}
%}
function pp:string () %{
strlcpy (THIS->__retvalue, CONTEXT->probe_point, MAXSTRINGLEN);
%}
function target:long () %{
THIS->__retvalue = _stp_target;
%}
|
