From: Eli Zaretskii Date: Fri, 23 Nov 2012 07:54:33 +0000 (+0200) Subject: Fix pgx in .gdbinit when CHECK_LISP_OBJECT_TYPE is defined. X-Git-Url: http://git.hcoop.net/bpt/emacs.git/commitdiff_plain/8654a41b44c8fe925af2b10378faa09909699240 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). --- diff --git a/src/.gdbinit b/src/.gdbinit index 952d7392a4..98ae247b8c 100644 --- a/src/.gdbinit +++ b/src/.gdbinit @@ -495,7 +495,8 @@ define pgx 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 diff --git a/src/ChangeLog b/src/ChangeLog index f760adf313..7460e2c570 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2012-11-23 Eli Zaretskii + + * .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 * indent.c (Fvertical_motion): If the starting position is covered