# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1253360757 0
# Node ID c8c4851869912453809cb97fc9eb053b6518c2da
# Parent  7e2cea78170ddaf38c09461de920a00a64811f46
(gdb-var-update-handler-1): Include case of
older GDB where there is no has_more field.

diff -r 7e2cea78170d -r c8c485186991 lisp/progmodes/gdb-mi.el
--- 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)