mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

(gdb-var-list-children-handler): Handle C++ classes

Browse Source 
properly for watching in speedbar.
This commit is contained in:
Nick Roberts 2004-03-17 23:53:00 +00:00
parent feaa7f5c40
commit ce1b6ae32e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lisp/gdb-ui.el
View File

@ -251,7 +251,7 @@ speedbar."
`(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 @@ speedbar."
(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)))