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

[Miles Bader]

Index: emacs/src/.gdbinit
diff -c emacs/src/.gdbinit:1.51.4.4 emacs/src/.gdbinit:1.51.4.5
*** emacs/src/.gdbinit:1.51.4.4 Tue Jul  6 09:14:32 2004
--- emacs/src/.gdbinit  Tue Jul  6 09:23:50 2004
***************
*** 186,194 ****
  end
  
  define xsymbol
!   xgetptr $
    print (struct Lisp_Symbol *) $ptr
!   xprintsym $
    echo \n
  end
  document xsymbol
--- 186,195 ----
  end
  
  define xsymbol
!   set $sym = $
!   xgetptr $sym
    print (struct Lisp_Symbol *) $ptr
!   xprintsym $sym
    echo \n
  end
  document xsymbol
***************
*** 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
--- 200,206 ----
  define xstring
    xgetptr $
    print (struct Lisp_String *) $ptr
!   xprintstr $
    echo \n
  end
  document xstring
***************
*** 372,383 ****
  Print $ as a scrollbar pointer.
  end
  
  define xprintsym
    xgetptr $arg0
    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.
--- 373,389 ----
  Print $ as a scrollbar pointer.
  end
  
+ define xprintstr
+   set $data = $arg0->data
+   output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? 
$arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
+ end
+ 
  define xprintsym
    xgetptr $arg0
    set $sym = (struct Lisp_Symbol *) $ptr
    xgetptr $sym->xname
    set $sym_name = (struct Lisp_String *) $ptr
!   xprintstr $sym_name
  end
  document xprintsym
    Print argument as a symbol.