From d33322491eb66e9e10322ae688c5fcfbe255a2ad Mon Sep 17 00:00:00 2001
From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 24 Feb 2007 21:15:02 +0000
Subject: [PATCH] (xprintstr): Ensure GDB (> 6.6) prints symbol name as strings
 and not character arrays.

---
 src/.gdbinit  | 2 +-
 src/ChangeLog | 5 +++++
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index 008305ca25..5a940e667d 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -977,7 +977,7 @@ Print $ as a lisp object of any type.
 end
 
 define xprintstr
-  set $data = $arg0->data
+  set $data = (char *) $arg0->data
   output ($arg0->size > 1000) ? 0 : ($data[0])@($arg0->size_byte < 0 ? $arg0->size & ~gdb_array_mark_flag : $arg0->size_byte)
 end
 
diff --git a/src/ChangeLog b/src/ChangeLog
index c7f40ce810..0334028753 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,8 @@
+2007-02-24  Nick Roberts  <nickrob@snap.net.nz>
+
+	* .gdbinit (xprintstr): Ensure GDB (> 6.6) prints symbol name
+	as strings and not character arrays.
+
 2007-02-24  YAMAMOTO Mitsuharu  <mituharu@math.s.chiba-u.ac.jp>
 
 	* macterm.c [USE_TOOLKIT_SCROLL_BARS] (x_scroll_bar_handle_drag)
-- 
2.20.1