Mercurial > emacs

changeset 54412:1803acf55b4c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(gdb-var-list-children-handler): Handle C++ classes properly for watching in speedbar.
author Nick Roberts <nickrob@snap.net.nz>
date Wed, 17 Mar 2004 23:53:00 +0000
parents 3898648aa99b
children 9d42c2c9095d
files lisp/gdb-ui.el
diffstat 1 files changed, 4 insertions(+), 4 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/gdb-ui.el	Wed Mar 17 23:52:11 2004 +0000
+++ b/lisp/gdb-ui.el	Wed Mar 17 23:53:00 2004 +0000
@@ -251,7 +251,7 @@
 	     `(lambda () (gdb-var-list-children-handler ,varnum)))))
 
 (defconst gdb-var-list-children-regexp
-"name=\"\\(.*?\\)\",exp=\"\\(.*?\\)\",numchild=\"\\(.*?\\)\",type=\"\\(.*?\\)\"")
+"name=\"\\(.*?\\)\",exp=\"\\(.*?\\)\",numchild=\"\\(.*?\\)\"")
 
 (defun gdb-var-list-children-handler (varnum)
   (with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
@@ -266,9 +266,9 @@
 		 (let ((varchild (list (match-string 2)
 				       (match-string 1)
 				       (match-string 3)
-				       (match-string 5)
-				       (match-string 4)
-				       nil)))
+				       nil nil nil)))
+		   (if (looking-at ",type=\"\\(.*?\\)\"")
+		       (setcar (nthcdr 3 varchild) (match-string 1)))
 		   (dolist (var1 gdb-var-list)
 		     (if (string-equal (cadr var1) (cadr varchild))
 			 (throw 'child-already-watched nil)))