From: Tom Tromey <tom@tromey.com>
To: emacs-devel@gnu.org
Cc: Tom Tromey <tom@tromey.com>
Subject: [PATCH] Minor fixes to .gdbinit
Date: Sat, 10 Feb 2018 09:51:54 -0700 [thread overview]
Message-ID: <20180210165154.22393-1-tom@tromey.com> (raw)
I noticed a couple of small problems in .gdbinit while debugging Emacs
recently.
First, "xcompiled" doesn't emit a trailing newline.
Second, in some cases, when gdb uses Python 2, casting a pointer to a
Python 'int' will fail. The solution is to cast to 'long' instead --
but because Python 3 does not have 'long', this requires a small
compatibility shim.
This patch fixes both of these problems. Let me know what you think.
* src/.gdbinit (xcompiled): Emit a final newline.
(python): Define "long" if not already defined. Use casts to long,
not int.
---
src/.gdbinit | 13 ++++++++++---
1 file changed, 10 insertions(+), 3 deletions(-)
diff --git a/src/.gdbinit b/src/.gdbinit
index a5411e66d5..9fdcaf8661 100644
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -819,6 +819,7 @@ define xcompiled
xgetptr $
print (struct Lisp_Vector *) $ptr
output ($->contents[0])@($->header.size & 0xff)
+ echo \n
end
document xcompiled
Print $ as a compiled function pointer.
@@ -1270,6 +1271,12 @@ end
python
+# Python 3 compatibility.
+try:
+ long
+except:
+ long = int
+
# Omit pretty-printing in older (pre-7.3) GDBs that lack it.
if hasattr(gdb, 'printing'):
@@ -1306,13 +1313,13 @@ if hasattr(gdb, 'printing'):
# symbol table, guess reasonable defaults.
sym = gdb.lookup_symbol ("EMACS_INT_WIDTH")[0]
if sym:
- EMACS_INT_WIDTH = int (sym.value ())
+ EMACS_INT_WIDTH = long (sym.value ())
else:
sym = gdb.lookup_symbol ("EMACS_INT")[0]
EMACS_INT_WIDTH = 8 * sym.type.sizeof
sym = gdb.lookup_symbol ("USE_LSB_TAG")[0]
if sym:
- USE_LSB_TAG = int (sym.value ())
+ USE_LSB_TAG = long (sym.value ())
else:
USE_LSB_TAG = 1
@@ -1334,7 +1341,7 @@ if hasattr(gdb, 'printing'):
# integer. Also, val.cast (gdb.lookup.type ("EMACS_UINT"))
# would have problems with GDB 7.12.1; see
# <http://patchwork.sourceware.org/patch/11557/>.
- ival = int (val)
+ ival = long (val)
# For nil, yield "XIL(0)", which is easier to read than "XIL(0x0)".
if not ival:
--
2.13.6
next reply other threads:[~2018-02-10 16:51 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2018-02-10 16:51 Tom Tromey [this message]
2018-02-12 1:35 ` [PATCH] Minor fixes to .gdbinit Paul Eggert
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20180210165154.22393-1-tom@tromey.com \
--to=tom@tromey.com \
--cc=emacs-devel@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this external index
https://git.savannah.gnu.org/cgit/emacs.git
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.