[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] /srv/bzr/emacs/trunk r109497: Fix .gdbinit to match change
From: |
Eli Zaretskii |
Subject: |
[Emacs-diffs] /srv/bzr/emacs/trunk r109497: Fix .gdbinit to match changes with INTERNAL_FIELD. |
Date: |
Tue, 07 Aug 2012 19:53:38 +0300 |
User-agent: |
Bazaar (2.5.0) |
------------------------------------------------------------
revno: 109497
committer: Eli Zaretskii <address@hidden>
branch nick: trunk
timestamp: Tue 2012-08-07 19:53:38 +0300
message:
Fix .gdbinit to match changes with INTERNAL_FIELD.
src/.gdbinit (xframe, xwindow, nextcons, xcar, xcdr, xlist): Rename
fields to match removal of FGET and WGET and disuse of
INTERNAL_FIELD in Lisp_Cons.
modified:
src/.gdbinit
src/ChangeLog
=== modified file 'src/.gdbinit'
--- a/src/.gdbinit 2012-08-07 13:37:21 +0000
+++ b/src/.gdbinit 2012-08-07 16:53:38 +0000
@@ -765,7 +765,7 @@
define xframe
xgetptr $
print (struct frame *) $ptr
- xgetptr $->name_
+ xgetptr $->name
set $ptr = (struct Lisp_String *) $ptr
xprintstr $ptr
echo \n
@@ -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"
=== modified file 'src/ChangeLog'
--- a/src/ChangeLog 2012-08-07 13:37:21 +0000
+++ b/src/ChangeLog 2012-08-07 16:53:38 +0000
@@ -1,3 +1,9 @@
+2012-08-07 Eli Zaretskii <address@hidden>
+
+ * .gdbinit (xframe, xwindow, nextcons, xcar, xcdr, xlist): Rename
+ fields to match removal of FGET and WGET and disuse of
+ INTERNAL_FIELD in Lisp_Cons.
+
2012-08-07 Dmitry Antipov <address@hidden>
Revert and cleanup Lisp_Cons, Lisp_Misc and Lisp_Symbol things.
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] /srv/bzr/emacs/trunk r109497: Fix .gdbinit to match changes with INTERNAL_FIELD.,
Eli Zaretskii <=