[Emacs-diffs] /srv/bzr/emacs/emacs-24 r110938: Fix pgx in .gdbinit when CHECK_LISP_OBJECT_TYPE is defined.

[Eli Zaretskii]

------------------------------------------------------------
revno: 110938
committer: Eli Zaretskii <address@hidden>
branch nick: emacs-24
timestamp: Fri 2012-11-23 09:54:33 +0200
message:
  Fix pgx in .gdbinit when CHECK_LISP_OBJECT_TYPE is defined.
  
   src/.gdbinit (pgx): If the glyph's object is a string, display the
   pointer to string data, rather than the value of the string object
   itself (which barfs under CHECK_LISP_OBJECT_TYPE).
modified:
  src/.gdbinit
  src/ChangeLog

=== modified file 'src/.gdbinit'
--- a/src/.gdbinit      2012-09-30 20:06:20 +0000
+++ b/src/.gdbinit      2012-11-23 07:54:33 +0000
@@ -495,7 +495,8 @@
   end
   xgettype ($g.object)
   if ($type == Lisp_String)
-    printf " str=%x[%d]", $g.object, $g.charpos
+    xgetptr $g.object
+    printf " str=0x%x[%d]", ((struct Lisp_String *)$ptr)->data, $g.charpos
   else
     printf " pos=%d", $g.charpos
   end

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-11-21 19:28:14 +0000
+++ b/src/ChangeLog     2012-11-23 07:54:33 +0000
@@ -1,3 +1,9 @@
+2012-11-23  Eli Zaretskii  <address@hidden>
+
+       * .gdbinit (pgx): If the glyph's object is a string, display the
+       pointer to string data, rather than the value of the string object
+       itself (which barfs under CHECK_LISP_OBJECT_TYPE).
+
 2012-11-21  Eli Zaretskii  <address@hidden>
 
        * indent.c (Fvertical_motion): If the starting position is covered