mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2025-01-01 11:14:55 +00:00
Code Issues Releases Activity

(gdb-breakpoint-regexp): Declare earlier to

Browse Source 
avoid compiler warning.
(gdb-var-update-handler-1): Consider that the MI field `in_scope'
might have values other than "true" or "false".
This commit is contained in:
Nick Roberts 2007-01-28 09:42:23 +00:00
parent 306c24b561
commit 5754d11f61
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
lisp/progmodes/gdb-ui.el
View File

@ -1788,6 +1788,9 @@ static char *magick[] = {
"Face for disabled breakpoint icon in fringe."
:group 'gud)
(defconst gdb-breakpoint-regexp
"\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
;; Put breakpoint icons in relevant margins (even those set in the GUD buffer).
(defun gdb-info-breakpoints-custom ()
(let ((flag) (bptno))
@ -1981,9 +1984,6 @@ static char *magick[] = {
'gdb-invalidate-breakpoints
'gdbmi-invalidate-breakpoints))
(defconst gdb-breakpoint-regexp
"\\([0-9]+\\).*?\\(?:point\\|catch\\s-+\\S-+\\)\\s-+\\S-+\\s-+\\(.\\)\\s-+")
(defun gdb-toggle-breakpoint ()
"Enable/disable breakpoint at current line."
(interactive)
@ -3436,14 +3436,26 @@ in_scope=\"\\(.*?\\)\".*?}")
(let* ((varnum (match-string 1))
(var (assoc varnum gdb-var-list)))
(when var
(if (string-equal (match-string 3) "false")
(setcar (nthcdr 5 var) 'out-of-scope)
(setcar (nthcdr 5 var) 'changed)
(setcar (nthcdr 4 var)
(read (match-string 2)))))))
(setq gdb-pending-triggers
(delq 'gdb-var-update gdb-pending-triggers))
(gdb-speedbar-update))
(let ((match (match-string 3)))
(cond ((string-equal match "false")
(setcar (nthcdr 5 var) 'out-of-scope))
((string-equal match "true")
(setcar (nthcdr 5 var) 'changed)
(setcar (nthcdr 4 var)
(read (match-string 2))))
;; ((string-equal match "invalid")
;; (gdb-enqueue-input
;; (list
;; (if (eq (buffer-local-value
;; 'gud-minor-mode gud-comint-buffer) 'gdba)
;; (concat "server interpreter mi \"-var-delete "
;; varnum "\"\n")
;; (concat "-var-delete " varnum "\n"))
;; 'ignore)))
)))))
(setq gdb-pending-triggers
(delq 'gdb-var-update gdb-pending-triggers))
(gdb-speedbar-update))
;; Registers buffer.
;;