masscollaborationlabs/emacs
2
0
Fork 0
mirror of https://github.com/masscollaborationlabs/emacs.git synced 2025-07-08 05:09:37 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

More fixes in src/.gdbinit

Browse source 
* src/.gdbinit (pwinx): Update to match 'struct window'.
(pcursorx): Use "." instead of "->" because the argument is a
struct, not a pointer.
This commit is contained in:
Eli Zaretskii 2017-11-17 17:41:23 +02:00
parent 104f3e51fe
commit 648c128b5f
1 changed files with 8 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/.gdbinit
View file

@ -352,7 +352,7 @@ end
define pcursorx define pcursorx
set $cp = $arg0 set $cp = $arg0
printf "y=%d x=%d vpos=%d hpos=%d", $cp->y, $cp->x, $cp->vpos, $cp->hpos printf "y=%d x=%d vpos=%d hpos=%d", $cp.y, $cp.x, $cp.vpos, $cp.hpos
end end
document pcursorx document pcursorx
Pretty print a window cursor. Pretty print a window cursor.
@ -369,11 +369,11 @@ end
define pwinx define pwinx
set $w = $arg0 set $w = $arg0
if ($w->mini_p != Qnil) if ($w->mini != 0)
printf "Mini " printf "Mini "
end end
printf "Window %d ", $int printf "Window %d ", $w->sequence_number
xgetptr $w->buffer xgetptr $w->contents
set $tem = (struct buffer *) $ptr set $tem = (struct buffer *) $ptr
xgetptr $tem->name_ xgetptr $tem->name_
printf "%s", ((struct Lisp_String *) $ptr)->u.s.data printf "%s", ((struct Lisp_String *) $ptr)->u.s.data
@ -381,16 +381,14 @@ define pwinx
xgetptr $w->start xgetptr $w->start
set $tem = (struct Lisp_Marker *) $ptr set $tem = (struct Lisp_Marker *) $ptr
printf "start=%d end:", $tem->charpos printf "start=%d end:", $tem->charpos
if ($w->window_end_valid != Qnil) if ($w->window_end_valid != 0)
xgetint $w->window_end_pos printf "pos=%d", $w->window_end_pos
printf "pos=%d", $int printf " vpos=%d", $w->window_end_vpos
xgetint $w->window_end_vpos
printf " vpos=%d", $int
else else
printf "invalid" printf "invalid"
end end
printf " vscroll=%d", $w->vscroll printf " vscroll=%d", $w->vscroll
if ($w->force_start != Qnil) if ($w->force_start != 0)
printf " FORCE_START" printf " FORCE_START"
end end
if ($w->must_be_updated_p) if ($w->must_be_updated_p)