[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109240: Adjust GDB to reflect pvec_t
From: |
Paul Eggert |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109240: Adjust GDB to reflect pvec_type changes. |
Date: |
Fri, 27 Jul 2012 13:50:02 -0700 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109240
fixes bug: http://debbugs.gnu.org/12036
committer: Paul Eggert <address@hidden>
branch nick: trunk
timestamp: Fri 2012-07-27 13:50:02 -0700
message:
Adjust GDB to reflect pvec_type changes.
* .gdbinit (xvectype, xpr, xbacktrace): Adjust to reflect the
2012-07-04 changes to pseudovector representation. Problem
reported by Eli Zaretskii in <http://bugs.gnu.org/12036#30>.
modified:
src/.gdbinit
src/ChangeLog
=== modified file 'src/.gdbinit'
--- a/src/.gdbinit 2012-07-27 06:18:36 +0000
+++ b/src/.gdbinit 2012-07-27 20:50:02 +0000
@@ -653,7 +653,11 @@
define xvectype
xgetptr $
set $size = ((struct Lisp_Vector *) $ptr)->header.size
- output ($size & PSEUDOVECTOR_FLAG) ? (enum pvec_type) ($size &
PVEC_TYPE_MASK) : $size & ~ARRAY_MARK_FLAG
+ if ($size & PSEUDOVECTOR_FLAG)
+ output (enum pvec_type) (($size & PVEC_TYPE_MASK) >>
PSEUDOVECTOR_SIZE_BITS)
+ else
+ output $size & ~ARRAY_MARK_FLAG
+ end
echo \n
end
document xvectype
@@ -992,7 +996,7 @@
if $type == Lisp_Vectorlike
set $size = ((struct Lisp_Vector *) $ptr)->header.size
if ($size & PSEUDOVECTOR_FLAG)
- set $vec = (enum pvec_type) ($size & PVEC_TYPE_MASK)
+ set $vec = (enum pvec_type) (($size & PVEC_TYPE_MASK) >>
PSEUDOVECTOR_SIZE_BITS)
if $vec == PVEC_NORMAL_VECTOR
xvector
end
@@ -1127,7 +1131,11 @@
if $type == Lisp_Vectorlike
xgetptr (*$bt->function)
set $size = ((struct Lisp_Vector *) $ptr)->header.size
- output ($size & PSEUDOVECTOR_FLAG) ? (enum pvec_type) ($size &
PVEC_TYPE_MASK) : $size & ~ARRAY_MARK_FLAG
+ if ($size & PSEUDOVECTOR_FLAG)
+ output (enum pvec_type) (($size & PVEC_TYPE_MASK) >>
PSEUDOVECTOR_SIZE_BITS)
+ else
+ output $size & ~ARRAY_MARK_FLAG
+ end
else
printf "Lisp type %d", $type
end
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2012-07-27 11:10:21 +0000
+++ b/src/ChangeLog 2012-07-27 20:50:02 +0000
@@ -1,3 +1,10 @@
+2012-07-27 Paul Eggert <address@hidden>
+
+ Adjust GDB to reflect pvec_type changes (Bug#12036).
+ * .gdbinit (xvectype, xpr, xbacktrace): Adjust to reflect the
+ 2012-07-04 changes to pseudovector representation. Problem
+ reported by Eli Zaretskii in <http://bugs.gnu.org/12036#30>.
+
2012-07-27 Michael Albinus <address@hidden>
* dbusbind.c (XD_DBUS_VALIDATE_BUS_ADDRESS): Canonicalize session
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109240: Adjust GDB to reflect pvec_type changes.,
Paul Eggert <=