From: Nick Roberts <nickrob@snap.net.nz>
Date: Sat, 24 Feb 2007 21:15:02 +0000 (+0000)
Subject: (xprintstr): Ensure GDB (> 6.6) prints symbol name
X-Git-Tag: emacs-pretest-22.0.95~129
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d33322491eb66e9e10322ae688c5fcfbe255a2ad;p=emacs.git

(xprintstr): Ensure GDB (> 6.6) prints symbol name
as strings and not character arrays.
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 008305ca252..5a940e667dc 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 c7f40ce8100..0334028753a 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)