From ea1afc9ff8fa1c123d260c248d6a788e3af63476 Mon Sep 17 00:00:00 2001
From: Kevin Tew <tewk@racket-lang.org>
Date: Wed, 7 Oct 2009 21:58:45 +0000
Subject: [PATCH] Added scheme_raw_pair debug support

svn: r16277
---
 src/mzscheme/mk-gdbinit.ss | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/src/mzscheme/mk-gdbinit.ss b/src/mzscheme/mk-gdbinit.ss
index 13ce495ec9..4838a112d7 100644
--- a/src/mzscheme/mk-gdbinit.ss
+++ b/src/mzscheme/mk-gdbinit.ss
@@ -238,6 +238,18 @@ define psoq
       printf "cdr=\n"
       psox $CDR $arg1+1
     end
+    if ( $OT == <<scheme_raw_pair_type>> )
+      printf "scheme_pair\n"
+      set $SSO = ((Scheme_Simple_Object*) ($O))
+      set $CAR = $SSO->u.pair_val.car
+      set $CDR = $SSO->u.pair_val.cdr
+      indent $arg1
+      printf "car=\n"
+      psox $CAR $arg1+1
+      indent $arg1
+      printf "cdr=\n"
+      psox $CDR $arg1+1
+    end
     if ( $OT == <<scheme_vector_type>> )
       set $vector = ((struct Scheme_Vector *) $O)
       set $size = $vector->size
@@ -298,7 +310,7 @@ define psoq
       set $name = ($stx->srcloc->src)
       set $name = (char *)((Scheme_Simple_Object *)$name)->u.byte_str_val.string_val
       indent $arg1
-      printf "%s:%i:%i\n", $name, $srcloc->line, $srcloc->col
+      printf " %s:%i:%i\n", $name, $srcloc->line, $srcloc->col
     end
     if ( $OT == <<scheme_compilation_top_type>>)
       printf "scheme_compilation_top_type\n"