comparison src/.gdbinit @ 83400:03934708f1e9

Merged from [e-mail]--gnu-2005 (patch 152-156, 642-654) Patches applied: * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-642 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-643 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-644 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-645 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-646 Merge from gnus--rel--5.10 * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-647 lisp/gnus/ChangeLog: Remove duplicate entry * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-648 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-649 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-650 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-651 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-652 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-653 Update from CVS * [e-mail]--gnu-2005/emacs--cvs-trunk--0--patch-654 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-152 Update from CVS: lisp/mml.el (mml-preview): Doc fix. * [e-mail]--gnu-2005/gnus--rel--5.10--patch-153 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-154 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-155 Update from CVS * [e-mail]--gnu-2005/gnus--rel--5.10--patch-156 Update from CVS git-archimport-id: [e-mail]--2004/emacs--multi-tty--0--patch-440

83399:2988c5a31dc1

# This has one unfortunate effect: you can't type C-c
# at the GDB to stop Emacs, when using X.
# However, C-z works just as well in that case.
handle 2 noprint pass

# Don't pass SIGALRM to Emacs.  This makes problems when
# debugging.
handle SIGALRM ignore

# $valmask and $tagmask are mask values set up by the xreload macro below.

end

# Print out s-expressions
define pp
  set $tmp = $arg0
  set debug_print ($tmp)
end
document pp
Print the argument as an emacs s-expression
Works only when an inferior emacs is executing.
end

# Print out current buffer point and boundaries
define ppt
  set $b = current_buffer

  end
  if ($it->header_line_p)
    printf " HL"
  end
  if ($it->n_overlay_strings > 0)
    printf " nov=%d"
  end
  if ($it->sp != 0)
    printf " sp=%d", $it->sp
  end
  if ($it->what == IT_CHARACTER)

  Print a backtrace of Lisp function calls from backtrace_list.
  Set a breakpoint at Fsignal and call this to see from where
  an error was signaled.
end

define xreload
  set $tagmask = (((long)1 << gdb_gctypebits) - 1)
  set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
end
document xreload

83400:03934708f1e9

# This has one unfortunate effect: you can't type C-c
# at the GDB to stop Emacs, when using X.
# However, C-z works just as well in that case.
handle 2 noprint pass

# Make it work like SIGINT normally does.
handle SIGTSTP nopass

# Don't pass SIGALRM to Emacs.  This makes problems when
# debugging.
handle SIGALRM ignore

# $valmask and $tagmask are mask values set up by the xreload macro below.

end

# Print out s-expressions
define pp
  set $tmp = $arg0
  set safe_debug_print ($tmp)
end
document pp
Print the argument as an emacs s-expression
Works only when an inferior emacs is executing.
end

# Print out s-expressions from tool bar
define pp1
  set $tmp = $arg0
  echo $arg0
  printf " = "
  set safe_debug_print ($tmp)
end
document pp1
Print the argument as an emacs s-expression
Works only when an inferior emacs is executing.
For use on tool bar when debugging in Emacs
where the variable name would not otherwise
be recorded in the GUD buffer.
end

# Print value of lisp variable
define pv
  set $tmp = "$arg0"
  set safe_debug_print ( find_symbol_value (intern ($tmp)))
end
document pv
Print the value of the lisp variable given as argument.
Works only when an inferior emacs is executing.
end

# Print value of lisp variable
define pv1
  set $tmp = "$arg0"
  echo $arg0
  printf " = "
  set safe_debug_print (find_symbol_value (intern ($tmp)))
end
document pv1
Print the value of the lisp variable given as argument.
Works only when an inferior emacs is executing.
For use on tool bar when debugging in Emacs
where the variable name would not otherwise
be recorded in the GUD buffer.
end

# Print out current buffer point and boundaries
define ppt
  set $b = current_buffer

  end
  if ($it->header_line_p)
    printf " HL"
  end
  if ($it->n_overlay_strings > 0)
    printf " nov=%d", $it->n_overlay_strings
  end
  if ($it->sp != 0)
    printf " sp=%d", $it->sp
  end
  if ($it->what == IT_CHARACTER)

  Print a backtrace of Lisp function calls from backtrace_list.
  Set a breakpoint at Fsignal and call this to see from where
  an error was signaled.
end

# Show Lisp backtrace after normal backtrace.
define hookpost-backtrace
  set $bt = backtrace_list
  if $bt
    echo \n
    echo Lisp Backtrace:\n
    xbacktrace
  end
end

define xreload
  set $tagmask = (((long)1 << gdb_gctypebits) - 1)
  set $valmask = gdb_use_lsb ? ~($tagmask) : ((long)1 << gdb_valbits) - 1
end
document xreload