159 |
|
|
160 |
define xsymbol |
define xsymbol |
161 |
print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits) |
print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits) |
162 |
output (char*)$->name->data |
xprintsym $ |
|
echo \n |
|
163 |
end |
end |
164 |
document xsymbol |
document xsymbol |
165 |
Print the name and address of the symbol $. |
Print the name and address of the symbol $. |
324 |
|
|
325 |
define xprintsym |
define xprintsym |
326 |
set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits) |
set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits) |
327 |
output (char*)$sym->name->data |
set $sym_name = ((struct Lisp_String *)(($sym->xname & $valmask) | gdb_data_seg_bits)) |
328 |
|
output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte) |
329 |
echo \n |
echo \n |
330 |
end |
end |
331 |
document xprintsym |
document xprintsym |
334 |
|
|
335 |
define xbacktrace |
define xbacktrace |
336 |
set $bt = backtrace_list |
set $bt = backtrace_list |
337 |
while $bt |
while $bt |
338 |
set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7) |
set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7) |
339 |
if $type == Lisp_Symbol |
if $type == Lisp_Symbol |
340 |
xprintsym *$bt->function |
xprintsym *$bt->function |
353 |
end |
end |
354 |
document xbacktrace |
document xbacktrace |
355 |
Print a backtrace of Lisp function calls from backtrace_list. |
Print a backtrace of Lisp function calls from backtrace_list. |
356 |
Set a breakpoint at Fsignal and call this to see from where |
Set a breakpoint at Fsignal and call this to see from where |
357 |
an error was signaled. |
an error was signaled. |
358 |
end |
end |
359 |
|
|