Eric Lee / smarc-fsl-linux-kernel

Blame view

Documentation/kdump/gdbmacros.txt 5.9 KB
edit raw normal view history
b089f4a68   Vivek Goyal   [PATCH] kdump: Do... 
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
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
 
  #
  # This file contains a few gdb macros (user defined commands) to extract
  # useful information from kernel crashdump (kdump) like stack traces of
  # all the processes or a particular process and trapinfo.
  #
  # These macros can be used by copying this file in .gdbinit (put in home
  # directory or current directory) or by invoking gdb command with
  # --command=<command-file-name> option
  #
  # Credits:
  # Alexander Nyberg <alexn@telia.com>
  # V Srivatsa <vatsa@in.ibm.com>
  # Maneesh Soni <maneesh@in.ibm.com>
  #
  
  define bttnobp
  	set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
  	set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
  	set $init_t=&init_task
  	set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
  	while ($next_t != $init_t)
  		set $next_t=(struct task_struct *)$next_t
  		printf "
  pid %d; comm %s:
  ", $next_t.pid, $next_t.comm
  		printf "===================
  "
  		set var $stackp = $next_t.thread.esp
  		set var $stack_top = ($stackp & ~4095) + 4096
  
  		while ($stackp < $stack_top)
  			if (*($stackp) > _stext && *($stackp) < _sinittext)
  				info symbol *($stackp)
  			end
  			set $stackp += 4
  		end
  		set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
  		while ($next_th != $next_t)
  			set $next_th=(struct task_struct *)$next_th
  			printf "
  pid %d; comm %s:
  ", $next_t.pid, $next_t.comm
  			printf "===================
  "
  			set var $stackp = $next_t.thread.esp
  			set var $stack_top = ($stackp & ~4095) + 4096
  
  			while ($stackp < $stack_top)
  				if (*($stackp) > _stext && *($stackp) < _sinittext)
  					info symbol *($stackp)
  				end
  				set $stackp += 4
  			end
  			set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
  		end
  		set $next_t=(char *)($next_t->tasks.next) - $tasks_off
  	end
  end
  document bttnobp
  	dump all thread stack traces on a kernel compiled with !CONFIG_FRAME_POINTER
  end
  
  define btt
  	set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
  	set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
  	set $init_t=&init_task
  	set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
  	while ($next_t != $init_t)
  		set $next_t=(struct task_struct *)$next_t
  		printf "
  pid %d; comm %s:
  ", $next_t.pid, $next_t.comm
  		printf "===================
  "
  		set var $stackp = $next_t.thread.esp
  		set var $stack_top = ($stackp & ~4095) + 4096
  		set var $stack_bot = ($stackp & ~4095)
  
  		set $stackp = *($stackp)
  		while (($stackp < $stack_top) && ($stackp > $stack_bot))
  			set var $addr = *($stackp + 4)
  			info symbol $addr
  			set $stackp = *($stackp)
  		end
  
  		set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
  		while ($next_th != $next_t)
  			set $next_th=(struct task_struct *)$next_th
  			printf "
  pid %d; comm %s:
  ", $next_t.pid, $next_t.comm
  			printf "===================
  "
  			set var $stackp = $next_t.thread.esp
  			set var $stack_top = ($stackp & ~4095) + 4096
  			set var $stack_bot = ($stackp & ~4095)
  
  			set $stackp = *($stackp)
  			while (($stackp < $stack_top) && ($stackp > $stack_bot))
  				set var $addr = *($stackp + 4)
  				info symbol $addr
  				set $stackp = *($stackp)
  			end
  			set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
  		end
  		set $next_t=(char *)($next_t->tasks.next) - $tasks_off
  	end
  end
  document btt
  	dump all thread stack traces on a kernel compiled with CONFIG_FRAME_POINTER
  end
  
  define btpid
  	set var $pid = $arg0
  	set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
  	set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
  	set $init_t=&init_task
  	set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
  	set var $pid_task = 0
  
  	while ($next_t != $init_t)
  		set $next_t=(struct task_struct *)$next_t
  
  		if ($next_t.pid == $pid)
  			set $pid_task = $next_t
  		end
  
  		set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
  		while ($next_th != $next_t)
  			set $next_th=(struct task_struct *)$next_th
  			if ($next_th.pid == $pid)
  				set $pid_task = $next_th
  			end
  			set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
  		end
  		set $next_t=(char *)($next_t->tasks.next) - $tasks_off
  	end
  
  	printf "
  pid %d; comm %s:
  ", $pid_task.pid, $pid_task.comm
  	printf "===================
  "
  	set var $stackp = $pid_task.thread.esp
  	set var $stack_top = ($stackp & ~4095) + 4096
  	set var $stack_bot = ($stackp & ~4095)
  
  	set $stackp = *($stackp)
  	while (($stackp < $stack_top) && ($stackp > $stack_bot))
  		set var $addr = *($stackp + 4)
  		info symbol $addr
  		set $stackp = *($stackp)
  	end
  end
  document btpid
  	backtrace of pid
  end
  
  
  define trapinfo
  	set var $pid = $arg0
  	set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
  	set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
  	set $init_t=&init_task
  	set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
  	set var $pid_task = 0
  
  	while ($next_t != $init_t)
  		set $next_t=(struct task_struct *)$next_t
  
  		if ($next_t.pid == $pid)
  			set $pid_task = $next_t
  		end
  
  		set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
  		while ($next_th != $next_t)
  			set $next_th=(struct task_struct *)$next_th
  			if ($next_th.pid == $pid)
  				set $pid_task = $next_th
  			end
  			set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
  		end
  		set $next_t=(char *)($next_t->tasks.next) - $tasks_off
  	end
  
  	printf "Trapno %ld, cr2 0x%lx, error_code %ld
  ", $pid_task.thread.trap_no, \
  				$pid_task.thread.cr2, $pid_task.thread.error_code
  
  end
  document trapinfo
  	Run info threads and lookup pid of thread #1
  	'trapinfo <pid>' will tell you by which trap & possibly
f18190bd3   Lee Revell   fix paniced->pani... 
194
 
  	address the kernel panicked.
b089f4a68   Vivek Goyal   [PATCH] kdump: Do... 
195
 
  end
8428cfe89   Akinobu Mita   [PATCH] kdump: ad... 
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
 
  
  
  define dmesg
  	set $i = 0
  	set $end_idx = (log_end - 1) & (log_buf_len - 1)
  
  	while ($i < logged_chars)
  		set $idx = (log_end - 1 - logged_chars + $i) & (log_buf_len - 1)
  
  		if ($idx + 100 <= $end_idx) || \
  		   ($end_idx <= $idx && $idx + 100 < log_buf_len)
  			printf "%.100s", &log_buf[$idx]
  			set $i = $i + 100
  		else
  			printf "%c", log_buf[$idx]
  			set $i = $i + 1
  		end
  	end
  end
  document dmesg
  	print the kernel ring buffer
  end