1 |
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001 |
# Copyright (C) 1992, 1993, 1994, 1995, 1996, 1997, 1998, 2000, 2001, 2003 |
2 |
# Free Software Foundation, Inc. |
# Free Software Foundation, Inc. |
3 |
# |
# |
4 |
# This file is part of GNU Emacs. |
# This file is part of GNU Emacs. |
237 |
|
|
238 |
define xchartable |
define xchartable |
239 |
print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits) |
print (struct Lisp_Char_Table *) (($ & $valmask) | gdb_data_seg_bits) |
240 |
printf "Purpose: " |
printf " %d extra slots", ($->size & 0x1ff) - 68 |
|
output (char*)&((struct Lisp_Symbol *) ((((int) $->purpose) & $valmask) | gdb_data_seg_bits))->name->data |
|
|
printf " %d extra slots", ($->size & 0x1ff) - 388 |
|
241 |
echo \n |
echo \n |
242 |
|
printf "Purpose: " |
243 |
|
xprintsym $->purpose |
244 |
end |
end |
245 |
document xchartable |
document xchartable |
246 |
Print the address of the char-table $, and its purpose. |
Print the address of the char-table $, and its purpose. |
332 |
Print argument as a symbol. |
Print argument as a symbol. |
333 |
end |
end |
334 |
|
|
335 |
|
define xcoding |
336 |
|
set $tmp = (struct Lisp_Hash_Table *) ((Vcoding_system_hash_table & $valmask) | gdb_data_seg_bits) |
337 |
|
set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits) |
338 |
|
set $name = $tmp->contents[$arg0 * 2] |
339 |
|
print $name |
340 |
|
pr |
341 |
|
print $tmp->contents[$arg0 * 2 + 1] |
342 |
|
pr |
343 |
|
end |
344 |
|
document xcoding |
345 |
|
Print the name and attributes of coding system that has ID (argument). |
346 |
|
end |
347 |
|
|
348 |
|
define xcharset |
349 |
|
set $tmp = (struct Lisp_Hash_Table *) ((Vcharset_hash_table & $valmask) | gdb_data_seg_bits) |
350 |
|
set $tmp = (struct Lisp_Vector *) (($tmp->key_and_value & $valmask) | gdb_data_seg_bits) |
351 |
|
p $tmp->contents[$arg0->hash_index * 2] |
352 |
|
pr |
353 |
|
end |
354 |
|
document xcharset |
355 |
|
Print the name of charset that has ID (argument). |
356 |
|
end |
357 |
|
|
358 |
define xbacktrace |
define xbacktrace |
359 |
set $bt = backtrace_list |
set $bt = backtrace_list |
360 |
while $bt |
while $bt |