summaryrefslogtreecommitdiff
path: root/gdbinit
diff options
context:
space:
mode:
Diffstat (limited to 'gdbinit')
-rw-r--r--gdbinit10
1 files changed, 10 insertions, 0 deletions
diff --git a/gdbinit b/gdbinit
index ad7881f2a..cd3add5fb 100644
--- a/gdbinit
+++ b/gdbinit
@@ -1,7 +1,13 @@
+# -*- GDB-Script -*-
+
define newline
call (void)scm_newline (scm_current_error_port ())
end
+define pp
+ call (void)scm_call_1 (scm_variable_ref (scm_c_module_lookup (scm_c_resolve_module ("ice-9 pretty-print"), "pretty-print")), $arg0)
+end
+
define gdisplay
call (void)scm_display ($arg0, scm_current_error_port ())
newline
@@ -194,3 +200,7 @@ define vmstack
nextframe
end
end
+
+define inst
+ p scm_instruction_table[$arg0]
+end