diff options
| author | Paul Eggert | 2017-05-06 14:24:12 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-05-06 14:25:13 -0700 |
| commit | 7cd7f5b4032092389a00e23af3ab435628febed3 (patch) | |
| tree | 2ebfac740178bfbbadf0299e59aeb221e43cdad7 | |
| parent | 0a13c725132ade2709da217cac70e3847a387c58 (diff) | |
| download | emacs-7cd7f5b4032092389a00e23af3ab435628febed3.tar.gz emacs-7cd7f5b4032092389a00e23af3ab435628febed3.zip | |
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
| -rw-r--r-- | src/.gdbinit | 2 |
1 files changed, 1 insertions, 1 deletions
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'): | |||
| 1280 | RegexpCollectionPrettyPrinter except when printing Lisp_Object.""" | 1280 | RegexpCollectionPrettyPrinter except when printing Lisp_Object.""" |
| 1281 | def __call__ (self, val): | 1281 | def __call__ (self, val): |
| 1282 | """Look up the pretty-printer for the provided value.""" | 1282 | """Look up the pretty-printer for the provided value.""" |
| 1283 | type = val.type | 1283 | type = val.type.unqualified () |
| 1284 | typename = type.tag or type.name | 1284 | typename = type.tag or type.name |
| 1285 | basic_type = gdb.types.get_basic_type (type) | 1285 | basic_type = gdb.types.get_basic_type (type) |
| 1286 | basic_typename = basic_type.tag or basic_type.name | 1286 | basic_typename = basic_type.tag or basic_type.name |