emacs-diffs
[Top][All Lists]
Advanced

[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


reply via email to

[Prev in Thread] Current Thread [Next in Thread]