[Emacs-diffs] /srv/bzr/emacs/trunk r109374: Fix .gdbinit for latest INTERNAL_FIELD uses.

[Eli Zaretskii]

------------------------------------------------------------
revno: 109374
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Wed 2012-08-01 19:28:58 +0300
message:
  Fix .gdbinit for latest INTERNAL_FIELD uses.
  
   src/.gdbinit (xcar, xcdr, xlist, xwindow, nextcons, xprintsym):
   Adapt to latest changes in field names of the corresponding Lisp
   objects.
modified:
  src/.gdbinit
  src/ChangeLog

=== modified file 'src/.gdbinit'
--- a/src/.gdbinit      2012-07-31 17:34:51 +0000
+++ b/src/.gdbinit      2012-08-01 16:28:58 +0000
@@ -789,13 +789,13 @@
   xgetptr $
   print (struct window *) $ptr
   set $window = (struct window *) $ptr
-  xgetint $window->total_cols
+  xgetint $window->total_cols_
   set $width=$int
-  xgetint $window->total_lines
+  xgetint $window->total_lines_
   set $height=$int
-  xgetint $window->left_col
+  xgetint $window->left_col_
   set $left=$int
-  xgetint $window->top_line
+  xgetint $window->top_line_
   set $top=$int
   printf "%dx%d+%d+%d\n", $width, $height, $left, $top
 end
@@ -892,7 +892,7 @@
 end
 
 define nextcons
-  p $.u.cdr
+  p $.u.cdr_
   xcons
 end
 document nextcons
@@ -903,7 +903,7 @@
 define xcar
   xgetptr $
   xgettype $
-  print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car : 0)
+  print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->car_ : 0)
 end
 document xcar
 Assume that $ is an Emacs Lisp pair and print its car.
@@ -912,7 +912,7 @@
 define xcdr
   xgetptr $
   xgettype $
-  print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->u.cdr : 0)
+  print/x ($type == Lisp_Cons ? ((struct Lisp_Cons *) $ptr)->u.cdr_ : 0)
 end
 document xcdr
 Assume that $ is an Emacs Lisp pair and print its cdr.
@@ -925,9 +925,9 @@
   set $nil = $ptr
   set $i = 0
   while $cons != $nil && $i < 10
-    p/x $cons->car
+    p/x $cons->car_
     xpr
-    xgetptr $cons->u.cdr
+    xgetptr $cons->u.cdr_
     set $cons = (struct Lisp_Cons *) $ptr
     set $i = $i + 1
     printf "---\n"
@@ -1047,7 +1047,7 @@
 define xprintsym
   xgetptr $arg0
   set $sym = (struct Lisp_Symbol *) $ptr
-  xgetptr $sym->xname
+  xgetptr $sym->xname_
   set $sym_name = (struct Lisp_String *) $ptr
   xprintstr $sym_name
 end

=== modified file 'src/ChangeLog'
--- a/src/ChangeLog     2012-08-01 15:39:21 +0000
+++ b/src/ChangeLog     2012-08-01 16:28:58 +0000
@@ -1,5 +1,9 @@
 2012-08-01  Eli Zaretskii  <address@hidden>
 
+       * .gdbinit (xcar, xcdr, xlist, xwindow, nextcons, xprintsym):
+       Adapt to latest changes in field names of the corresponding Lisp
+       objects
+
        * xdisp.c (try_window_id): Use WVAR in IF_DEBUG code.
 
 2012-08-01  Glenn Morris  <address@hidden>