diff options
| author | Andreas Schwab <schwab@linux-m68k.org> | 2012-04-24 21:05:25 +0200 |
|---|---|---|
| committer | Andreas Schwab <schwab@linux-m68k.org> | 2012-04-24 21:05:25 +0200 |
| commit | 42bf82050bdcbabaac3ee6cb44977bac22591296 (patch) | |
| tree | cbc567c746e7962a113b71dfcd7b0f1f9263e2cd /src/.gdbinit | |
| parent | e43042fe33b3cf184e31219d4aef08a5a59815f9 (diff) | |
| download | emacs-42bf82050bdcbabaac3ee6cb44977bac22591296.tar.gz | |
* .gdbinit (xpr): Handle USE_2_TAGS_FOR_INTS.
(xgetint): Add missing shift for LSB tags.
Diffstat (limited to 'src/.gdbinit')
| -rw-r--r-- | src/.gdbinit | 13 |
1 files changed, 10 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 |