Minor fixes to .gdbinit

* src/.gdbinit (xcompiled): Emit a final newline.
(python): Define "long" if not already defined.  Use casts to long,
not int.

diff --git a/src/.gdbinit b/src/.gdbinit
index a5411e66d56fd8d6cd94c2b60ec495455d435390..9fdcaf8661159213850379bb344b59f7e15c6487 100644 (file)
--- 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: