Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
d443acd9
Commit
d443acd9
authored
Sep 19, 2009
by
Nick Roberts
Browse files
(gdb-var-update-handler-1): Include case of
older GDB where there is no has_more field.
parent
9b94c32e
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
5 additions
and
4 deletions
+5
-4
lisp/progmodes/gdb-mi.el
lisp/progmodes/gdb-mi.el
+5
-4
No files found.
lisp/progmodes/gdb-mi.el
View file @
d443acd9
...
...
@@ -1149,15 +1149,16 @@ With arg, enter name of variable to be watched in the minibuffer."
(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)
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment