From 8654a41b44c8fe925af2b10378faa09909699240 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Fri, 23 Nov 2012 09:54:33 +0200 Subject: [PATCH] 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). --- src/.gdbinit | 3 ++- src/ChangeLog | 6 ++++++ 2 files changed, 8 insertions(+), 1 deletion(-) 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 + + * .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 -- 2.39.2