[Emacs-diffs] master 7cd7f5b 2/2: Pretty-print const Lisp_Objects in .gdbinit

[Paul Eggert]

branch: master
commit 7cd7f5b4032092389a00e23af3ab435628febed3
Author: Paul Eggert <address@hidden>
Commit: Paul Eggert <address@hidden>

    Pretty-print const Lisp_Objects in .gdbinit
    
    * src/.gdbinit (Emacs_Pretty_Printers.__call__):
    Compare unqualified type to Lisp_Object, to do the right thing
    when the expression has type ‘Lisp_Object const’.
    Problem reported by Eli Zaretskii in:
    http://lists.gnu.org/archive/html/emacs-devel/2017-05/msg00138.html
---
 src/.gdbinit | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/.gdbinit b/src/.gdbinit
index 0596188..29689e2 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1280,7 +1280,7 @@ if hasattr(gdb, 'printing'):
        RegexpCollectionPrettyPrinter except when printing Lisp_Object."""
     def __call__ (self, val):
       """Look up the pretty-printer for the provided value."""
-      type = val.type
+      type = val.type.unqualified ()
       typename = type.tag or type.name
       basic_type = gdb.types.get_basic_type (type)
       basic_typename = basic_type.tag or basic_type.name