Mercurial > emacs
changeset 105107:c8c485186991
(gdb-var-update-handler-1): Include case of
older GDB where there is no has_more field.
| author | Nick Roberts <nickrob@snap.net.nz> |
|---|---|
| date | Sat, 19 Sep 2009 11:45:57 +0000 |
| parents | 7e2cea78170d |
| children | 84836b2f2c93 |
| files | lisp/progmodes/gdb-mi.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/gdb-mi.el Sat Sep 19 11:45:10 2009 +0000 +++ b/lisp/progmodes/gdb-mi.el Sat Sep 19 11:45:57 2009 +0000 @@ -1149,15 +1149,16 @@ (var (assoc varnum gdb-var-list)) (new-num (bindat-get-field change 'new_num_children))) (when var - (let ((scope (bindat-get-field change 'in_scope))) + (let ((scope (bindat-get-field change 'in_scope)) + (has-more (bindat-get-field change 'has_more))) (cond ((string-equal scope "false") (if gdb-delete-out-of-scope (gdb-var-delete-1 var varnum) (setcar (nthcdr 5 var) 'out-of-scope))) ((string-equal scope "true") - (setcar (nthcdr 6 var) - (bindat-get-field change 'has_more)) - (when (and (string-equal (nth 6 var) "0") + (setcar (nthcdr 6 var) has-more) + (when (and (or (not has-more) + (string-equal has-more "0")) (not new-num) (string-equal (nth 2 var) "0")) (setcar (nthcdr 4 var)