(xprintstr): Ensure GDB (> 6.6) prints symbol name

as strings and not character arrays.

diff --git a/src/.gdbinit b/src/.gdbinit
index 008305c..5a940e6 100644 (file)
--- 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 c7f40ce..0334028 100644 (file)
--- 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)