From: Paul Eggert <eggert@cs.ucla.edu>
Date: Sat, 6 May 2017 21:24:12 +0000 (-0700)
Subject: Pretty-print const Lisp_Objects in .gdbinit
X-Git-Tag: emacs-26.0.90~521^2~447
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7cd7f5b4032092389a00e23af3ab435628febed3;p=emacs.git

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
---

diff --git a/src/.gdbinit b/src/.gdbinit
index 0596188e050..29689e20a95 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