532 |
(unless (string-equal |
(unless (string-equal |
533 |
speedbar-initial-expansion-list-name "GUD") |
speedbar-initial-expansion-list-name "GUD") |
534 |
(speedbar-change-initial-expansion-list "GUD")) |
(speedbar-change-initial-expansion-list "GUD")) |
535 |
(if (or (equal (nth 2 var) "0") |
(gdb-enqueue-input |
536 |
(and (equal (nth 2 var) "1") |
(list |
537 |
(string-match "char \\*$" (nth 3 var)))) |
(if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) |
538 |
(gdb-enqueue-input |
'gdba) |
539 |
(list |
(concat "server interpreter mi \"-var-evaluate-expression " |
540 |
(if (eq (buffer-local-value 'gud-minor-mode gud-comint-buffer) |
(nth 1 var) "\"\n") |
541 |
'gdba) |
(concat "-var-evaluate-expression " (nth 1 var) "\n")) |
542 |
(concat "server interpreter mi \"-var-evaluate-expression " |
`(lambda () (gdb-var-evaluate-expression-handler |
543 |
(nth 1 var) "\"\n") |
,(nth 1 var) nil)))) |
544 |
(concat "-var-evaluate-expression " (nth 1 var) "\n")) |
(setq gdb-var-changed t)) |
|
`(lambda () (gdb-var-evaluate-expression-handler |
|
|
,(nth 1 var) nil)))) |
|
|
(setq gdb-var-changed t))) |
|
545 |
(if (re-search-forward "Undefined command" nil t) |
(if (re-search-forward "Undefined command" nil t) |
546 |
(message-box "Watching expressions requires gdb 6.0 onwards") |
(message-box "Watching expressions requires gdb 6.0 onwards") |
547 |
(message "No symbol \"%s\" in current context." expr))))) |
(message "No symbol \"%s\" in current context." expr))))) |
590 |
(if (string-equal (cadr var1) (cadr varchild)) |
(if (string-equal (cadr var1) (cadr varchild)) |
591 |
(throw 'child-already-watched nil))) |
(throw 'child-already-watched nil))) |
592 |
(push varchild var-list) |
(push varchild var-list) |
593 |
(if (or (equal (nth 2 varchild) "0") |
(gdb-enqueue-input |
594 |
(and (equal (nth 2 varchild) "1") |
(list |
595 |
(string-match "char \\*$" (nth 3 varchild)))) |
(concat |
596 |
(gdb-enqueue-input |
"server interpreter mi \"-var-evaluate-expression " |
597 |
(list |
(nth 1 varchild) "\"\n") |
598 |
(concat |
`(lambda () (gdb-var-evaluate-expression-handler |
599 |
"server interpreter mi \"-var-evaluate-expression " |
,(nth 1 varchild) nil))))))) |
|
(nth 1 varchild) "\"\n") |
|
|
`(lambda () (gdb-var-evaluate-expression-handler |
|
|
,(nth 1 varchild) nil)))))))) |
|
600 |
(push var var-list))) |
(push var var-list))) |
601 |
(setq gdb-var-list (nreverse var-list)))))) |
(setq gdb-var-list (nreverse var-list)))))) |
602 |
|
|