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 | bd820218e767b9dec469ebb632e48a5b77d247bf (patch) | |
| tree | a41349718750a85e0dc452165c27db0a3557bca0 /src | |
| parent | e09219d919c02dd154602927ae673a793857464f (diff) | |
| download | emacs-bd820218e767b9dec469ebb632e48a5b77d247bf.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).
Diffstat (limited to 'src')
| -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 c51f58a9ded..06c3b0aafee 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 |