/[emacs]/emacs/src/.gdbinit
ViewVC logotype

Diff of /emacs/src/.gdbinit

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.51 by rms, Tue Jan 22 20:53:55 2002 UTC revision 1.51.4.1 by miles, Fri Apr 4 06:20:52 2003 UTC
# Line 159  end Line 159  end
159    
160  define xsymbol  define xsymbol
161  print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)  print (struct Lisp_Symbol *) ((((int) $) & $valmask) | gdb_data_seg_bits)
162  output (char*)$->name->data  xprintsym $
 echo \n  
163  end  end
164  document xsymbol  document xsymbol
165  Print the name and address of the symbol $.  Print the name and address of the symbol $.
# Line 325  end Line 324  end
324    
325  define xprintsym  define xprintsym
326    set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)    set $sym = (struct Lisp_Symbol *) ((((int) $arg0) & $valmask) | gdb_data_seg_bits)
327    output (char*)$sym->name->data    set $sym_name = ((struct Lisp_String *)(($sym->xname & $valmask) | gdb_data_seg_bits))
328      output ($sym_name->data[0])@($sym_name->size_byte < 0 ? $sym_name->size : $sym_name->size_byte)
329    echo \n    echo \n
330  end  end
331  document xprintsym  document xprintsym
# Line 334  end Line 334  end
334    
335  define xbacktrace  define xbacktrace
336    set $bt = backtrace_list    set $bt = backtrace_list
337    while $bt    while $bt
338      set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7)      set $type = (enum Lisp_Type) ((*$bt->function >> gdb_valbits) & 0x7)
339      if $type == Lisp_Symbol      if $type == Lisp_Symbol
340        xprintsym *$bt->function        xprintsym *$bt->function
# Line 353  define xbacktrace Line 353  define xbacktrace
353  end  end
354  document xbacktrace  document xbacktrace
355    Print a backtrace of Lisp function calls from backtrace_list.    Print a backtrace of Lisp function calls from backtrace_list.
356    Set a breakpoint at Fsignal and call this to see from where    Set a breakpoint at Fsignal and call this to see from where
357    an error was signaled.    an error was signaled.
358  end  end
359    

Legend:
Removed from v.1.51  
changed lines
  Added in v.1.51.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26