Commit d443acd9 authored by Nick Roberts's avatar Nick Roberts
Browse files

(gdb-var-update-handler-1): Include case of

older GDB where there is no has_more field.
parent 9b94c32e
......@@ -1149,15 +1149,16 @@ With arg, enter name of variable to be watched in the minibuffer."
(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)
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment