From 42bf82050bdcbabaac3ee6cb44977bac22591296 Mon Sep 17 00:00:00 2001 From: Andreas Schwab Date: Tue, 24 Apr 2012 21:05:25 +0200 Subject: [PATCH] * .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS. (xgetint): Add missing shift for LSB tags. --- src/.gdbinit | 13 ++++++++++--- src/ChangeLog | 5 +++++ 2 files changed, 15 insertions(+), 3 deletions(-) diff --git a/src/.gdbinit b/src/.gdbinit index 7cd828733b1..13eca902d88 100644 --- a/src/.gdbinit +++ b/src/.gdbinit @@ -54,7 +54,7 @@ end 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 @@ end 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 diff --git a/src/ChangeLog b/src/ChangeLog index 3fccf8cc439..06d65c7bf33 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,8 @@ +2012-04-24 Andreas Schwab + + * .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS. + (xgetint): Add missing shift for LSB tags. + 2012-04-24 Martin Rudalics * keyboard.c (read_char): Don't wipe echo area for select window -- 2.39.2