[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/src/.gdbinit [lexbind]
From: |
Miles Bader |
Subject: |
[Emacs-diffs] Changes to emacs/src/.gdbinit [lexbind] |
Date: |
Tue, 06 Jul 2004 07:15:31 -0400 |
Index: emacs/src/.gdbinit
diff -c emacs/src/.gdbinit:1.51.4.3 emacs/src/.gdbinit:1.51.4.4
*** emacs/src/.gdbinit:1.51.4.3 Sat Apr 10 06:14:55 2004
--- emacs/src/.gdbinit Tue Jul 6 09:14:32 2004
***************
*** 81,87 ****
define xvectype
xgetptr $
set $size = ((struct Lisp_Vector *) $ptr)->size
! output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) :
$size
echo \n
end
document xvectype
--- 81,87 ----
define xvectype
xgetptr $
set $size = ((struct Lisp_Vector *) $ptr)->size
! output ($size & PVEC_FLAG) ? (enum pvec_type) ($size & PVEC_TYPE_MASK) :
$size & ~gdb_array_mark_flag
echo \n
end
document xvectype
***************
*** 199,205 ****
define xstring
xgetptr $
print (struct Lisp_String *) $ptr
! output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size :
$->size_byte)
echo \n
end
document xstring
--- 199,205 ----
define xstring
xgetptr $
print (struct Lisp_String *) $ptr
! output ($->size > 1000) ? 0 : ($->data[0])@($->size_byte < 0 ? $->size &
~gdb_array_mark_flag : $->size_byte)
echo \n
end
document xstring
***************
*** 210,216 ****
define xvector
xgetptr $
print (struct Lisp_Vector *) $ptr
! output ($->size > 50) ? 0 : ($->contents[0])@($->size)
echo \n
end
document xvector
--- 210,216 ----
define xvector
xgetptr $
print (struct Lisp_Vector *) $ptr
! output ($->size > 50) ? 0 : ($->contents[0])@($->size &
~gdb_array_mark_flag)
echo \n
end
document xvector
***************
*** 289,295 ****
define xboolvector
xgetptr $
print (struct Lisp_Bool_Vector *) $ptr
! output ($->size > 256) ? 0 : ($->data[0])@(($->size + 7)/ 8)
echo \n
end
document xboolvector
--- 289,295 ----
define xboolvector
xgetptr $
print (struct Lisp_Bool_Vector *) $ptr
! output ($->size > 256) ? 0 : ($->data[0])@((($->size &
~gdb_array_mark_flag) + 7)/ 8)
echo \n
end
document xboolvector
***************
*** 377,383 ****
set $sym = (struct Lisp_Symbol *) $ptr
xgetptr $sym->xname
set $sym_name = (struct Lisp_String *) $ptr
! output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size :
$sym_name->size_byte)
end
document xprintsym
Print argument as a symbol.
--- 377,383 ----
set $sym = (struct Lisp_Symbol *) $ptr
xgetptr $sym->xname
set $sym_name = (struct Lisp_String *) $ptr
! output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size &
~gdb_array_mark_flag : $sym_name->size_byte)
end
document xprintsym
Print argument as a symbol.
***************
*** 395,401 ****
if $type == Lisp_Vectorlike
xgetptr (*$bt->function)
set $size = ((struct Lisp_Vector *) $ptr)->size
! output ($size & PVEC_FLAG) ? (enum pvec_type) ($size &
PVEC_TYPE_MASK) : $size
else
printf "Lisp type %d", $type
end
--- 395,401 ----
if $type == Lisp_Vectorlike
xgetptr (*$bt->function)
set $size = ((struct Lisp_Vector *) $ptr)->size
! output ($size & PVEC_FLAG) ? (enum pvec_type) ($size &
PVEC_TYPE_MASK) : $size & ~gdb_array_mark_flag
else
printf "Lisp type %d", $type
end