X-Git-Url: http://git.hcoop.net/bpt/guile.git/blobdiff_plain/5f236208d0d864546e59afa0f5a11c9b3ba14b10..9b1eea183904df0b4222e68ba75fdc0eede38a64:/gdbinit

diff --git a/gdbinit b/gdbinit
index b66e3e249..fdc9c759b 100644
--- a/gdbinit
+++ b/gdbinit
@@ -1,5 +1,8 @@
 # -*- GDB-Script -*-
 
+handle SIGPWR noprint nostop
+handle SIGXCPU noprint nostop
+
 define newline
   call (void)scm_newline (scm_current_error_port ())
 end
@@ -195,3 +198,7 @@ end
 define inst
   p scm_instruction_table[$arg0]
 end
+
+define gbt
+  call scm_display_backtrace (scm_make_stack(0x404,0x304), scm_current_error_port (), 0x704, 0x704, 0x704)
+end