OpenCores
URL https://opencores.org/ocsvn/or1k_soc_on_altera_embedded_dev_kit/or1k_soc_on_altera_embedded_dev_kit/trunk

Subversion Repositories or1k_soc_on_altera_embedded_dev_kit

[/] [or1k_soc_on_altera_embedded_dev_kit/] [trunk/] [linux-2.6/] [linux-2.6.24/] [Documentation/] [kdump/] [gdbmacros.txt] - Blame information for rev 17

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 3 xianfeng 
#
2 
# This file contains a few gdb macros (user defined commands) to extract
3 
# useful information from kernel crashdump (kdump) like stack traces of
4 
# all the processes or a particular process and trapinfo.
5 
#
6 
# These macros can be used by copying this file in .gdbinit (put in home
7 
# directory or current directory) or by invoking gdb command with
8 
# --command= option
9 
#
10 
# Credits:
11 
# Alexander Nyberg
12 
# V Srivatsa
13 
# Maneesh Soni
14 
#
15 
 
16 
define bttnobp
17 
        set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
18 
        set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
19 
        set $init_t=&init_task
20 
        set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
21 
        while ($next_t != $init_t)
22 
                set $next_t=(struct task_struct *)$next_t
23 
                printf "\npid %d; comm %s:\n", $next_t.pid, $next_t.comm
24 
                printf "===================\n"
25 
                set var $stackp = $next_t.thread.esp
26 
                set var $stack_top = ($stackp & ~4095) + 4096
27 
 
28 
                while ($stackp < $stack_top)
29 
                        if (*($stackp) > _stext && *($stackp) < _sinittext)
30 
                                info symbol *($stackp)
31 
                        end
32 
                        set $stackp += 4
33 
                end
34 
                set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
35 
                while ($next_th != $next_t)
36 
                        set $next_th=(struct task_struct *)$next_th
37 
                        printf "\npid %d; comm %s:\n", $next_t.pid, $next_t.comm
38 
                        printf "===================\n"
39 
                        set var $stackp = $next_t.thread.esp
40 
                        set var $stack_top = ($stackp & ~4095) + 4096
41 
 
42 
                        while ($stackp < $stack_top)
43 
                                if (*($stackp) > _stext && *($stackp) < _sinittext)
44 
                                        info symbol *($stackp)
45 
                                end
46 
                                set $stackp += 4
47 
                        end
48 
                        set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
49 
                end
50 
                set $next_t=(char *)($next_t->tasks.next) - $tasks_off
51 
        end
52 
end
53 
document bttnobp
54 
        dump all thread stack traces on a kernel compiled with !CONFIG_FRAME_POINTER
55 
end
56 
 
57 
define btt
58 
        set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
59 
        set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
60 
        set $init_t=&init_task
61 
        set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
62 
        while ($next_t != $init_t)
63 
                set $next_t=(struct task_struct *)$next_t
64 
                printf "\npid %d; comm %s:\n", $next_t.pid, $next_t.comm
65 
                printf "===================\n"
66 
                set var $stackp = $next_t.thread.esp
67 
                set var $stack_top = ($stackp & ~4095) + 4096
68 
                set var $stack_bot = ($stackp & ~4095)
69 
 
70 
                set $stackp = *($stackp)
71 
                while (($stackp < $stack_top) && ($stackp > $stack_bot))
72 
                        set var $addr = *($stackp + 4)
73 
                        info symbol $addr
74 
                        set $stackp = *($stackp)
75 
                end
76 
 
77 
                set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
78 
                while ($next_th != $next_t)
79 
                        set $next_th=(struct task_struct *)$next_th
80 
                        printf "\npid %d; comm %s:\n", $next_t.pid, $next_t.comm
81 
                        printf "===================\n"
82 
                        set var $stackp = $next_t.thread.esp
83 
                        set var $stack_top = ($stackp & ~4095) + 4096
84 
                        set var $stack_bot = ($stackp & ~4095)
85 
 
86 
                        set $stackp = *($stackp)
87 
                        while (($stackp < $stack_top) && ($stackp > $stack_bot))
88 
                                set var $addr = *($stackp + 4)
89 
                                info symbol $addr
90 
                                set $stackp = *($stackp)
91 
                        end
92 
                        set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
93 
                end
94 
                set $next_t=(char *)($next_t->tasks.next) - $tasks_off
95 
        end
96 
end
97 
document btt
98 
        dump all thread stack traces on a kernel compiled with CONFIG_FRAME_POINTER
99 
end
100 
 
101 
define btpid
102 
        set var $pid = $arg0
103 
        set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
104 
        set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
105 
        set $init_t=&init_task
106 
        set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
107 
        set var $pid_task = 0
108 
 
109 
        while ($next_t != $init_t)
110 
                set $next_t=(struct task_struct *)$next_t
111 
 
112 
                if ($next_t.pid == $pid)
113 
                        set $pid_task = $next_t
114 
                end
115 
 
116 
                set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
117 
                while ($next_th != $next_t)
118 
                        set $next_th=(struct task_struct *)$next_th
119 
                        if ($next_th.pid == $pid)
120 
                                set $pid_task = $next_th
121 
                        end
122 
                        set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
123 
                end
124 
                set $next_t=(char *)($next_t->tasks.next) - $tasks_off
125 
        end
126 
 
127 
        printf "\npid %d; comm %s:\n", $pid_task.pid, $pid_task.comm
128 
        printf "===================\n"
129 
        set var $stackp = $pid_task.thread.esp
130 
        set var $stack_top = ($stackp & ~4095) + 4096
131 
        set var $stack_bot = ($stackp & ~4095)
132 
 
133 
        set $stackp = *($stackp)
134 
        while (($stackp < $stack_top) && ($stackp > $stack_bot))
135 
                set var $addr = *($stackp + 4)
136 
                info symbol $addr
137 
                set $stackp = *($stackp)
138 
        end
139 
end
140 
document btpid
141 
        backtrace of pid
142 
end
143 
 
144 
 
145 
define trapinfo
146 
        set var $pid = $arg0
147 
        set $tasks_off=((size_t)&((struct task_struct *)0)->tasks)
148 
        set $pid_off=((size_t)&((struct task_struct *)0)->pids[1].pid_list.next)
149 
        set $init_t=&init_task
150 
        set $next_t=(((char *)($init_t->tasks).next) - $tasks_off)
151 
        set var $pid_task = 0
152 
 
153 
        while ($next_t != $init_t)
154 
                set $next_t=(struct task_struct *)$next_t
155 
 
156 
                if ($next_t.pid == $pid)
157 
                        set $pid_task = $next_t
158 
                end
159 
 
160 
                set $next_th=(((char *)$next_t->pids[1].pid_list.next) - $pid_off)
161 
                while ($next_th != $next_t)
162 
                        set $next_th=(struct task_struct *)$next_th
163 
                        if ($next_th.pid == $pid)
164 
                                set $pid_task = $next_th
165 
                        end
166 
                        set $next_th=(((char *)$next_th->pids[1].pid_list.next) - $pid_off)
167 
                end
168 
                set $next_t=(char *)($next_t->tasks.next) - $tasks_off
169 
        end
170 
 
171 
        printf "Trapno %ld, cr2 0x%lx, error_code %ld\n", $pid_task.thread.trap_no, \
172 
                                $pid_task.thread.cr2, $pid_task.thread.error_code
173 
 
174 
end
175 
document trapinfo
176 
        Run info threads and lookup pid of thread #1
177 
        'trapinfo ' will tell you by which trap & possibly
178 
        address the kernel panicked.
179 
end
180 
 
181 
 
182 
define dmesg
183 
        set $i = 0
184 
        set $end_idx = (log_end - 1) & (log_buf_len - 1)
185 
 
186 
        while ($i < logged_chars)
187 
                set $idx = (log_end - 1 - logged_chars + $i) & (log_buf_len - 1)
188 
 
189 
                if ($idx + 100 <= $end_idx) || \
190 
                   ($end_idx <= $idx && $idx + 100 < log_buf_len)
191 
                        printf "%.100s", &log_buf[$idx]
192 
                        set $i = $i + 100
193 
                else
194 
                        printf "%c", log_buf[$idx]
195 
                        set $i = $i + 1
196 
                end
197 
        end
198 
end
199 
document dmesg
200 
        print the kernel ring buffer
201 
end

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.