diff options
| author | Paul Eggert | 2017-05-06 15:29:16 -0700 |
|---|---|---|
| committer | Paul Eggert | 2017-05-06 15:33:16 -0700 |
| commit | f31689c803a13836ef3528d6e2b4c98c767c42c7 (patch) | |
| tree | 83ae3d2fb1a5b6d014dfda3fb781558e552f8680 /src | |
| parent | 7cd7f5b4032092389a00e23af3ab435628febed3 (diff) | |
| download | emacs-f31689c803a13836ef3528d6e2b4c98c767c42c7.tar.gz emacs-f31689c803a13836ef3528d6e2b4c98c767c42c7.zip | |
Port .gdbinit to GDB 7.11.1 + Python 2.7.12
* src/.gdbinit (Lisp_Object_Printer.to_string):
Explicitly convert integer val to 'int', so that
older GDBs do not complain about the conversion.
* src/lisp.h (Lisp_Object) [CHECK_LISP_OBJECT_TYPE]:
Give the struct a tag, so that older GDB pretty-printers have a
tag to hang their hat on.
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 2 | ||||
| -rw-r--r-- | src/lisp.h | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 29689e20a95..80aa95ba405 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -1311,7 +1311,7 @@ if hasattr(gdb, 'printing'): | |||
| 1311 | # pretty-printing could be fancier. | 1311 | # pretty-printing could be fancier. |
| 1312 | if not val: | 1312 | if not val: |
| 1313 | return "XIL(0)" # Easier to read than "XIL(0x0)". | 1313 | return "XIL(0)" # Easier to read than "XIL(0x0)". |
| 1314 | return "XIL(0x%x)" % val | 1314 | return "XIL(0x%x)" % int(val) |
| 1315 | 1315 | ||
| 1316 | def build_pretty_printer (): | 1316 | def build_pretty_printer (): |
| 1317 | pp = Emacs_Pretty_Printers ("Emacs") | 1317 | pp = Emacs_Pretty_Printers ("Emacs") |
diff --git a/src/lisp.h b/src/lisp.h index 5d4c64a2e50..de3a548cb6c 100644 --- a/src/lisp.h +++ b/src/lisp.h | |||
| @@ -546,7 +546,7 @@ enum Lisp_Fwd_Type | |||
| 546 | 546 | ||
| 547 | #ifdef CHECK_LISP_OBJECT_TYPE | 547 | #ifdef CHECK_LISP_OBJECT_TYPE |
| 548 | 548 | ||
| 549 | typedef struct { EMACS_INT i; } Lisp_Object; | 549 | typedef struct Lisp_Object { EMACS_INT i; } Lisp_Object; |
| 550 | 550 | ||
| 551 | #define LISP_INITIALLY(i) {i} | 551 | #define LISP_INITIALLY(i) {i} |
| 552 | 552 | ||