/[emacs]/emacs/lisp/progmodes/gdb-ui.el
ViewVC logotype

Diff of /emacs/lisp/progmodes/gdb-ui.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.116 by nickrob, Thu Nov 24 00:34:59 2005 UTC revision 1.117 by nickrob, Thu Nov 24 20:45:50 2005 UTC
# Line 532  With arg, use separate IO iff arg is pos Line 532  With arg, use separate IO iff arg is pos
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)))))
# Line 593  type=\"\\(.*?\\)\"") Line 590  type=\"\\(.*?\\)\"")
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    

Legend:
Removed from v.1.116  
changed lines
  Added in v.1.117

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26