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

older GDB where there is no has_more field.

1 files changed, 5 insertions, 4 deletions

diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el
index 5c8dc7f304a..831c6fdb0f8 100644
--- a/lisp/progmodes/gdb-mi.el
+++ b/lisp/progmodes/gdb-mi.el
@@ -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)