diff options
| author | Eli Zaretskii | 2017-11-17 17:41:23 +0200 |
|---|---|---|
| committer | Eli Zaretskii | 2017-11-17 17:41:23 +0200 |
| commit | 648c128b5f5eb8988aabcc2073b706d2561acd15 (patch) | |
| tree | 1771fb90ca2192a0778504ad05c5417a0f716084 /src | |
| parent | 104f3e51fe6d22cf0ee280509df1b133cb8e1f89 (diff) | |
| download | emacs-648c128b5f5eb8988aabcc2073b706d2561acd15.tar.gz emacs-648c128b5f5eb8988aabcc2073b706d2561acd15.zip | |
More fixes in src/.gdbinit
* src/.gdbinit (pwinx): Update to match 'struct window'.
(pcursorx): Use "." instead of "->" because the argument is a
struct, not a pointer.
Diffstat (limited to 'src')
| -rw-r--r-- | src/.gdbinit | 18 |
1 files changed, 8 insertions, 10 deletions
diff --git a/src/.gdbinit b/src/.gdbinit index 48bb5dfadb8..e22d03ea476 100644 --- a/src/.gdbinit +++ b/src/.gdbinit | |||
| @@ -352,7 +352,7 @@ end | |||
| 352 | 352 | ||
| 353 | define pcursorx | 353 | define pcursorx |
| 354 | set $cp = $arg0 | 354 | set $cp = $arg0 |
| 355 | printf "y=%d x=%d vpos=%d hpos=%d", $cp->y, $cp->x, $cp->vpos, $cp->hpos | 355 | printf "y=%d x=%d vpos=%d hpos=%d", $cp.y, $cp.x, $cp.vpos, $cp.hpos |
| 356 | end | 356 | end |
| 357 | document pcursorx | 357 | document pcursorx |
| 358 | Pretty print a window cursor. | 358 | Pretty print a window cursor. |
| @@ -369,11 +369,11 @@ end | |||
| 369 | 369 | ||
| 370 | define pwinx | 370 | define pwinx |
| 371 | set $w = $arg0 | 371 | set $w = $arg0 |
| 372 | if ($w->mini_p != Qnil) | 372 | if ($w->mini != 0) |
| 373 | printf "Mini " | 373 | printf "Mini " |
| 374 | end | 374 | end |
| 375 | printf "Window %d ", $int | 375 | printf "Window %d ", $w->sequence_number |
| 376 | xgetptr $w->buffer | 376 | xgetptr $w->contents |
| 377 | set $tem = (struct buffer *) $ptr | 377 | set $tem = (struct buffer *) $ptr |
| 378 | xgetptr $tem->name_ | 378 | xgetptr $tem->name_ |
| 379 | printf "%s", ((struct Lisp_String *) $ptr)->u.s.data | 379 | printf "%s", ((struct Lisp_String *) $ptr)->u.s.data |
| @@ -381,16 +381,14 @@ define pwinx | |||
| 381 | xgetptr $w->start | 381 | xgetptr $w->start |
| 382 | set $tem = (struct Lisp_Marker *) $ptr | 382 | set $tem = (struct Lisp_Marker *) $ptr |
| 383 | printf "start=%d end:", $tem->charpos | 383 | printf "start=%d end:", $tem->charpos |
| 384 | if ($w->window_end_valid != Qnil) | 384 | if ($w->window_end_valid != 0) |
| 385 | xgetint $w->window_end_pos | 385 | printf "pos=%d", $w->window_end_pos |
| 386 | printf "pos=%d", $int | 386 | printf " vpos=%d", $w->window_end_vpos |
| 387 | xgetint $w->window_end_vpos | ||
| 388 | printf " vpos=%d", $int | ||
| 389 | else | 387 | else |
| 390 | printf "invalid" | 388 | printf "invalid" |
| 391 | end | 389 | end |
| 392 | printf " vscroll=%d", $w->vscroll | 390 | printf " vscroll=%d", $w->vscroll |
| 393 | if ($w->force_start != Qnil) | 391 | if ($w->force_start != 0) |
| 394 | printf " FORCE_START" | 392 | printf " FORCE_START" |
| 395 | end | 393 | end |
| 396 | if ($w->must_be_updated_p) | 394 | if ($w->must_be_updated_p) |