diff options
| author | Noah Friedman | 2017-05-08 16:24:56 -0700 |
|---|---|---|
| committer | Noah Friedman | 2017-05-08 16:24:56 -0700 |
| commit | c0d42853cd9b2da6d2d82f670260b62958ff6d21 (patch) | |
| tree | 723654220151f7c112860317648a9e5135657598 | |
| parent | 784602b10506c50075aa9463891a47380ebea55f (diff) | |
| download | emacs-c0d42853cd9b2da6d2d82f670260b62958ff6d21.tar.gz emacs-c0d42853cd9b2da6d2d82f670260b62958ff6d21.zip | |
(ybuffer-list): $alist must be ptr-unmasked at the end of the loop,
because $ptr is modified by ygetptr and we use $ptr immediately at the
beginning.
| -rw-r--r-- | etc/emacs-buffer.gdb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/etc/emacs-buffer.gdb b/etc/emacs-buffer.gdb index db58eeb8e94..053d7bd69c3 100644 --- a/etc/emacs-buffer.gdb +++ b/etc/emacs-buffer.gdb | |||
| @@ -105,8 +105,6 @@ define ybuffer-list | |||
| 105 | while $alist != $qnil | 105 | while $alist != $qnil |
| 106 | set $this = ((struct Lisp_Cons *) $ptr)->car | 106 | set $this = ((struct Lisp_Cons *) $ptr)->car |
| 107 | set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr | 107 | set $alist = ((struct Lisp_Cons *) $ptr)->u.cdr |
| 108 | ygetptr $alist | ||
| 109 | set $alist = $ptr | ||
| 110 | 108 | ||
| 111 | # Vbuffer_alist elts are pairs of the form (name . buffer) | 109 | # Vbuffer_alist elts are pairs of the form (name . buffer) |
| 112 | ygetptr $this | 110 | ygetptr $this |
| @@ -136,6 +134,8 @@ define ybuffer-list | |||
| 136 | end | 134 | end |
| 137 | 135 | ||
| 138 | set $i++ | 136 | set $i++ |
| 137 | ygetptr $alist | ||
| 138 | set $alist = $ptr | ||
| 139 | end | 139 | end |
| 140 | end | 140 | end |
| 141 | document ybuffer-list | 141 | document ybuffer-list |