[Emacs-diffs] emacs/lisp/progmodes gdb-ui.el [EMACS_23_1_RC]

[Nick Roberts]

CVSROOT:        /sources/emacs
Module name:    emacs
Branch:         EMACS_23_1_RC
Changes by:     Nick Roberts <nickrob>  09/09/19 11:43:15

Modified files:
        lisp/progmodes : gdb-ui.el 

Log message:
        (gdb-var-update-handler-1): Include case of
        older GDB where there is no has_more field.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-ui.el?cvsroot=emacs&only_with_tag=EMACS_23_1_RC&r1=1.256.2.9&r2=1.256.2.10

Patches:
Index: gdb-ui.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/Attic/gdb-ui.el,v
retrieving revision 1.256.2.9
retrieving revision 1.256.2.10
diff -u -b -r1.256.2.9 -r1.256.2.10
--- gdb-ui.el   18 Sep 2009 00:51:43 -0000      1.256.2.9
+++ gdb-ui.el   19 Sep 2009 11:43:15 -0000      1.256.2.10
@@ -3861,15 +3861,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)