[Emacs-diffs] Changes to emacs/src/.gdbinit [lexbind]

[Miles Bader]

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