diff options
| author | Eli Zaretskii <eliz@gnu.org> | 2012-11-23 09:54:33 +0200 |
|---|---|---|
| committer | Eli Zaretskii <eliz@gnu.org> | 2012-11-23 09:54:33 +0200 |
| commit | 8654a41b44c8fe925af2b10378faa09909699240 (patch) | |
| tree | 7a1a3783e4669bbdda969da35562fcadf1aa2ede | |
| parent | cc4c01bd96b929e5b19bcb77eebd40e12930ef06 (diff) | |
| download | emacs-8654a41b44c8fe925af2b10378faa09909699240.tar.gz | |
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).
| -rw-r--r-- | src/.gdbinit | 3 | ||||
| -rw-r--r-- | src/ChangeLog | 6 |
2 files changed, 8 insertions, 1 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 952d7392a4c..98ae247b8c5 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 f760adf313f..7460e2c5704 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2012-11-23 Eli Zaretskii <eliz@gnu.org> + + * .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 <eliz@gnu.org> * indent.c (Fvertical_motion): If the starting position is covered |