81 |
define xvectype |
define xvectype |
82 |
xgetptr $ |
xgetptr $ |
83 |
set $size = ((struct Lisp_Vector *) $ptr)->size |
set $size = ((struct Lisp_Vector *) $ptr)->size |
84 |
output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size |
output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag |
85 |
echo \n |
echo \n |
86 |
end |
end |
87 |
document xvectype |
document xvectype |
199 |
define xstring |
define xstring |
200 |
xgetptr $ |
xgetptr $ |
201 |
print (struct Lisp_String *) $ptr |
print (struct Lisp_String *) $ptr |
202 |
output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte) |
output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size & ~gdb_array_mark_flag : $->size_byte) |
203 |
echo \n |
echo \n |
204 |
end |
end |
205 |
document xstring |
document xstring |
210 |
define xvector |
define xvector |
211 |
xgetptr $ |
xgetptr $ |
212 |
print (struct Lisp_Vector *) $ptr |
print (struct Lisp_Vector *) $ptr |
213 |
output ($->size > 50) ? 0 : ($->contents[0])@($->size) |
output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag) |
214 |
echo \n |
echo \n |
215 |
end |
end |
216 |
document xvector |
document xvector |
289 |
define xboolvector |
define xboolvector |
290 |
xgetptr $ |
xgetptr $ |
291 |
print (struct Lisp_Bool_Vector *) $ptr |
print (struct Lisp_Bool_Vector *) $ptr |
292 |
output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8) |
output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8) |
293 |
echo \n |
echo \n |
294 |
end |
end |
295 |
document xboolvector |
document xboolvector |
377 |
set $sym = (struct Lisp_Symbol *) $ptr |
set $sym = (struct Lisp_Symbol *) $ptr |
378 |
xgetptr $sym->xname |
xgetptr $sym->xname |
379 |
set $sym_name = (struct Lisp_String *) $ptr |
set $sym_name = (struct Lisp_String *) $ptr |
380 |
output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte) |
output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size & ~gdb_array_mark_flag : $sym_name->size_byte) |
381 |
end |
end |
382 |
document xprintsym |
document xprintsym |
383 |
Print argument as a symbol. |
Print argument as a symbol. |
395 |
if $type == Lisp_Vectorlike |
if $type == Lisp_Vectorlike |
396 |
xgetptr (*$bt->function) |
xgetptr (*$bt->function) |
397 |
set $size = ((struct Lisp_Vector *) $ptr)->size |
set $size = ((struct Lisp_Vector *) $ptr)->size |
398 |
output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size |
output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag |
399 |
else |
else |
400 |
printf "Lisp type %d", $type |
printf "Lisp type %d", $type |
401 |
end |
end |