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 |
186 |
end |
end |
187 |
|
|
188 |
define xsymbol |
define xsymbol |
189 |
xgetptr $ |
set $sym = $ |
190 |
|
xgetptr $sym |
191 |
print (struct Lisp_Symbol *) $ptr |
print (struct Lisp_Symbol *) $ptr |
192 |
xprintsym $ |
xprintsym $sym |
193 |
echo \n |
echo \n |
194 |
end |
end |
195 |
document xsymbol |
document xsymbol |
200 |
define xstring |
define xstring |
201 |
xgetptr $ |
xgetptr $ |
202 |
print (struct Lisp_String *) $ptr |
print (struct Lisp_String *) $ptr |
203 |
output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size : $->size_byte) |
xprintstr $ |
204 |
echo \n |
echo \n |
205 |
end |
end |
206 |
document xstring |
document xstring |
211 |
define xvector |
define xvector |
212 |
xgetptr $ |
xgetptr $ |
213 |
print (struct Lisp_Vector *) $ptr |
print (struct Lisp_Vector *) $ptr |
214 |
output ($->size > 50) ? 0 : ($->contents[0])@($->size) |
output ($->size > 50) ? 0 : ($->contents[0])@($->size & ~gdb_array_mark_flag) |
215 |
echo \n |
echo \n |
216 |
end |
end |
217 |
document xvector |
document xvector |
290 |
define xboolvector |
define xboolvector |
291 |
xgetptr $ |
xgetptr $ |
292 |
print (struct Lisp_Bool_Vector *) $ptr |
print (struct Lisp_Bool_Vector *) $ptr |
293 |
output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8) |
output ($->size > 256) ? 0 : ($->data[0])@((($->size & ~gdb_array_mark_flag) + 7)/ 8) |
294 |
echo \n |
echo \n |
295 |
end |
end |
296 |
document xboolvector |
document xboolvector |
373 |
Print $ as a scrollbar pointer. |
Print $ as a scrollbar pointer. |
374 |
end |
end |
375 |
|
|
376 |
|
define xprintstr |
377 |
|
set $data = $arg0->data |
378 |
|
output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte) |
379 |
|
end |
380 |
|
|
381 |
define xprintsym |
define xprintsym |
382 |
xgetptr $arg0 |
xgetptr $arg0 |
383 |
set $sym = (struct Lisp_Symbol *) $ptr |
set $sym = (struct Lisp_Symbol *) $ptr |
384 |
xgetptr $sym->xname |
xgetptr $sym->xname |
385 |
set $sym_name = (struct Lisp_String *) $ptr |
set $sym_name = (struct Lisp_String *) $ptr |
386 |
output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte) |
xprintstr $sym_name |
387 |
end |
end |
388 |
document xprintsym |
document xprintsym |
389 |
Print argument as a symbol. |
Print argument as a symbol. |
424 |
if $type == Lisp_Vectorlike |
if $type == Lisp_Vectorlike |
425 |
xgetptr (*$bt->function) |
xgetptr (*$bt->function) |
426 |
set $size = ((struct Lisp_Vector *) $ptr)->size |
set $size = ((struct Lisp_Vector *) $ptr)->size |
427 |
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 |
428 |
else |
else |
429 |
printf "Lisp type %d", $type |
printf "Lisp type %d", $type |
430 |
end |
end |