Port .gdbinit to unsigned-pointer platforms

* src/.gdbinit (Lisp_Object_Printer.to_string):
Don’t assume that GDB treats C pointers as signed integers.
Problem found with GDB Fedora 8.1-15.fc28.

diff --git a/src/.gdbinit b/src/.gdbinit
index eb4d57a5fbbd15ed2242c96dc56c300a006411b6..7a0cf02ea13a88a317c698e2df7a934d747160c5 100644 (file)
--- a/src/.gdbinit
+++ b/src/.gdbinit
@@ -1355,7 +1355,7 @@ if hasattr(gdb, 'printing'):
       if itype == Lisp_Int0 or itype == Lisp_Int1:
         if USE_LSB_TAG:
           ival = ival >> (GCTYPEBITS - 1)
-        elif (ival >> VALBITS) & 1:
+        if (ival >> VALBITS) & 1:
           ival = ival | (-1 << VALBITS)
         else:
           ival = ival & ((1 << VALBITS) - 1)