(while var-list
(let* (char (depth 0) (start 0) (var (car var-list))
(expr (car var)) (varnum (nth 1 var))
- (type (nth 3 var)) (status (nth 5 var)))
+ (type (nth 3 var)) (value (nth 4 var))
+ (status (nth 5 var)))
(put-text-property
0 (length expr) 'face font-lock-variable-name-face expr)
(put-text-property
(string-match "char \\*$" type)))
(speedbar-make-tag-line
'bracket ?? nil nil
- (concat expr "\t" (nth 4 var))
+ (concat expr "\t" value)
(if (or parent (eq status 'out-of-scope))
nil 'gdb-edit-value)
nil
(speedbar-make-tag-line
'bracket char
'gdb-speedbar-expand-node varnum
- (concat expr "\t"
- type "\t"
- (nth 4 var))
- (if (or parent status 'out-of-scope)
+ (concat expr "\t" type "\t" value)
+ (if (or parent status)
nil 'gdb-edit-value)
nil
- (if (and (or parent status) gdb-show-changed-values)
- 'shadow t)
+ (if (and (or parent (eq status 'out-of-scope))
+ gdb-show-changed-values) 'shadow t)
depth)
(speedbar-make-tag-line
'bracket char