[Emacs-diffs] /srv/bzr/emacs/trunk r108023: * .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS.

[Andreas Schwab]

------------------------------------------------------------
revno: 108023
committer: Andreas Schwab <address@hidden>
branch nick: emacs
timestamp: Tue 2012-04-24 21:05:25 +0200
message:
  * .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS.
  (xgetint): Add missing shift for LSB tags.
modified:
  src/.gdbinit
  src/ChangeLog

=== modified file 'src/.gdbinit'
--- a/src/.gdbinit      2012-02-21 00:07:53 +0000
+++ b/src/.gdbinit      2012-04-24 19:05:25 +0000
@@ -54,7 +54,7 @@
 
 define xgetint
   set $bugfix = $arg0
-  set $int = gdb_use_union ? $bugfix.s.val : (gdb_use_lsb ? $bugfix : $bugfix 
<< gdb_gctypebits) >> gdb_gctypebits
+  set $int = gdb_use_union ? $bugfix.s.val : (gdb_use_lsb ? $bugfix >> 
(gdb_gctypebits - 1) : $bugfix << gdb_gctypebits) >> gdb_gctypebits
 end
 
 define xgettype
@@ -1003,8 +1003,15 @@
 
 define xpr
   xtype
-  if $type == Lisp_Int
-    xint
+  if gdb_use_union
+    if $type == Lisp_Int
+      xint
+    end
+  end
+  if !gdb_use_union
+    if $type == Lisp_Int0 || $type == Lisp_Int1
+      xint
+    end
   end
   if $type == Lisp_Symbol
     xsymbol

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-04-24 08:56:31 +0000
+++ b/src/ChangeLog     2012-04-24 19:05:25 +0000
@@ -1,3 +1,8 @@
+2012-04-24  Andreas Schwab  <address@hidden>
+
+       * .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS.
+       (xgetint): Add missing shift for LSB tags.
+
 2012-04-24  Martin Rudalics  <address@hidden>
 
        * keyboard.c (read_char): Don't wipe echo area for select window