[Emacs-diffs] emacs/lisp ChangeLog progmodes/gdb-mi.el

[Dmitry Dzhus]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Dmitry Dzhus <sphinx>   09/07/07 20:10:12

Modified files:
        lisp           : ChangeLog 
        lisp/progmodes : gdb-mi.el 

Log message:
        * progmodes/gdb-mi.el (gdb-input): Add trailing newline to command.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.15778&r2=1.15779
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/progmodes/gdb-mi.el?cvsroot=emacs&r1=1.10&r2=1.11

Patches:
Index: ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.15778
retrieving revision 1.15779
diff -u -b -r1.15778 -r1.15779
--- ChangeLog   7 Jul 2009 19:54:08 -0000       1.15778
+++ ChangeLog   7 Jul 2009 20:10:05 -0000       1.15779
@@ -17,6 +17,7 @@
        (gdb-stack-list-frames-handler): Rewritten without regexps.
        (gdb-breakpoints-list-handler-custom): y/n instead of on/off; do
        not highlight breakpoints without line information.
+       (gdb-input): Add trailing newline to command.
 
        * progmodes/gdb-mi.el (gdb-init-1): Set mode name for disassembly
        buffer properly.

Index: progmodes/gdb-mi.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/progmodes/gdb-mi.el,v
retrieving revision 1.10
retrieving revision 1.11
diff -u -b -r1.10 -r1.11
--- progmodes/gdb-mi.el 7 Jul 2009 19:54:12 -0000       1.10
+++ progmodes/gdb-mi.el 7 Jul 2009 20:10:10 -0000       1.11
@@ -487,23 +487,23 @@
     (gdb-input
      ;; Needs GDB 6.4 onwards
      (list (concat "-inferior-tty-set "
-                  (process-tty-name (get-process "gdb-inferior")) "\n")
+                  (process-tty-name (get-process "gdb-inferior")))
           'ignore)))
   (if (eq window-system 'w32)
-      (gdb-input (list "-gdb-set new-console off\n" 'ignore)))
-  (gdb-input (list "-gdb-set height 0\n" 'ignore))
+      (gdb-input (list "-gdb-set new-console off" 'ignore)))
+  (gdb-input (list "-gdb-set height 0" 'ignore))
   ;; find source file and compilation directory here
   (gdb-input
    ; Needs GDB 6.2 onwards.
-   (list "-file-list-exec-source-files\n" 'gdb-get-source-file-list))
+   (list "-file-list-exec-source-files" 'gdb-get-source-file-list))
   (if gdb-create-source-file-list
       (gdb-input
         ; Needs GDB 6.0 onwards.
-       (list "-file-list-exec-source-file\n" 'gdb-get-source-file)))
+       (list "-file-list-exec-source-file" 'gdb-get-source-file)))
   (gdb-input
-   (list "-data-list-register-names\n" 'gdb-get-register-names))
+   (list "-data-list-register-names" 'gdb-get-register-names))
   (gdb-input
-   (list "-gdb-show prompt\n" 'gdb-get-prompt)))
+   (list "-gdb-show prompt" 'gdb-get-prompt)))
 
 (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.")
 
@@ -553,7 +553,7 @@
     (if (search-forward "expands to: " nil t)
        (unless (looking-at "\\S-+.*(.*).*")
          (gdb-input
-          (list  (concat "print " expr "\n")
+          (list  (concat "print " expr)
                  `(lambda () (gdb-tooltip-print ,expr))))))))
 
 (defun gdb-init-buffer ()
@@ -683,7 +683,7 @@
                               (tooltip-identifier-from-point (point)))))))
              (set-text-properties 0 (length expr) nil expr)
              (gdb-input
-              (list (concat"-var-create - * "  expr "\n")
+              (list (concat"-var-create - * "  expr "")
                     `(lambda () (gdb-var-create-handler ,expr)))))))
       (message "gud-watch is a no-op in this mode."))))
 
@@ -710,7 +710,7 @@
          (speedbar-change-initial-expansion-list "GUD"))
        (gdb-input
         (list
-         (concat "-var-evaluate-expression " (car var) "\n")
+         (concat "-var-evaluate-expression " (car var))
          `(lambda () (gdb-var-evaluate-expression-handler
                       ,(car var) nil)))))
     (message-box "No symbol \"%s\" in current context." expr)))
@@ -719,7 +719,7 @@
   (when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame)
             (not (member 'gdb-speedbar-timer gdb-pending-triggers)))
     ;; Dummy command to update speedbar even when idle.
-    (gdb-input (list "-environment-pwd\n" 'gdb-speedbar-timer-fn))
+    (gdb-input (list "-environment-pwd" 'gdb-speedbar-timer-fn))
     ;; Keep gdb-pending-triggers non-nil till end.
     (push 'gdb-speedbar-timer gdb-pending-triggers)))
 
@@ -742,10 +742,10 @@
 ; Uses "-var-list-children --all-values".  Needs GDB 6.1 onwards.
 (defun gdb-var-list-children (varnum)
   (gdb-input
-   (list (concat "-var-update " varnum "\n") 'ignore))
+   (list (concat "-var-update " varnum) 'ignore))
   (gdb-input
    (list (concat "-var-list-children --all-values "
-               varnum "\n")
+               varnum)
             `(lambda () (gdb-var-list-children-handler ,varnum)))))
 
 (defconst gdb-var-list-children-regexp
@@ -779,12 +779,12 @@
   (let* ((var (nth (- (count-lines (point-min) (point)) 2) gdb-var-list))
         (varnum (car var)))
     (gdb-input
-     (list (concat "-var-set-format " varnum " " format "\n") 'ignore))
+     (list (concat "-var-set-format " varnum " " format) 'ignore))
     (gdb-var-update)))
 
 (defun gdb-var-delete-1 (varnum)
   (gdb-input
-   (list (concat "-var-delete " varnum "\n") 'ignore))
+   (list (concat "-var-delete " varnum) 'ignore))
   (setq gdb-var-list (delq var gdb-var-list))
   (dolist (varchild gdb-var-list)
     (if (string-match (concat (car var) "\\.") (car varchild))
@@ -804,7 +804,7 @@
 (defun gdb-var-delete-children (varnum)
   "Delete children of variable object at point from the speedbar."
   (gdb-input
-   (list (concat "-var-delete -c " varnum "\n") 'ignore)))
+   (list (concat "-var-delete -c " varnum) 'ignore)))
 
 (defun gdb-edit-value (text token indent)
   "Assign a value to a variable displayed in the speedbar."
@@ -812,7 +812,7 @@
         (varnum (car var)) (value))
     (setq value (read-string "New value: "))
     (gdb-input
-     (list (concat "-var-assign " varnum " " value "\n")
+     (list (concat "-var-assign " varnum " " value)
           `(lambda () (gdb-edit-value-handler ,value))))))
 
 (defconst gdb-error-regexp "\\^error,msg=\\(\".+\"\\)")
@@ -826,7 +826,7 @@
 (defun gdb-var-update ()
   (if (not (member 'gdb-var-update gdb-pending-triggers))
       (gdb-input
-       (list "-var-update --all-values *\n" 'gdb-var-update-handler)))
+       (list "-var-update --all-values *" 'gdb-var-update-handler)))
   (push 'gdb-var-update gdb-pending-triggers))
 
 (defconst gdb-var-update-regexp
@@ -1193,7 +1193,7 @@
   (setcar item (concat (number-to-string gdb-token-number) (car item)))
   (push (cons gdb-token-number (car (cdr item))) gdb-handler-alist)
   (process-send-string (get-buffer-process gud-comint-buffer)
-                      (car item)))
+                      (concat (car item) "\n")))
 
 
 (defcustom gud-gdb-command-name "gdb -i=mi"
@@ -1537,7 +1537,7 @@
                      'gdb-breakpoints-mode)
 
 (def-gdb-auto-updated-buffer gdb-breakpoints-buffer
-  gdb-invalidate-breakpoints "-break-list\n"
+  gdb-invalidate-breakpoints "-break-list"
   gdb-breakpoints-list-handler gdb-breakpoints-list-handler-custom)
 
 (defun gdb-breakpoints-list-handler-custom ()
@@ -1607,10 +1607,10 @@
                     (goto-line (string-to-number line))
                     (gdb-put-breakpoint-icon (string-equal flag "y") bptno)))
               (gdb-input
-               (list (concat "list " file ":1\n")
+               (list (concat "list " file ":1")
                      'ignore))
               (gdb-input
-               (list "-file-list-exec-source-file\n"
+               (list "-file-list-exec-source-file"
                      `(lambda () (gdb-get-location
                                   ,bptno ,line ,flag)))))))))))
 
@@ -1691,7 +1691,7 @@
                         0 'gdb-enabled (car (posn-string posn)))
                        "-break-disable "
                      "-break-enable ")
-                   bptno "\n")))))))))
+                   bptno)))))))))
 
 (defun gdb-mouse-toggle-breakpoint-fringe (event)
   "Enable/disable breakpoint in left fringe with mouse click."
@@ -1714,7 +1714,7 @@
              (if (get-text-property 0 'gdb-enabled obj)
                  "-break-disable "
                "-break-enable ")
-              (get-text-property 0 'gdb-bptno obj) "\n"))))))))
+              (get-text-property 0 'gdb-bptno obj)))))))))
 
 (defun gdb-breakpoints-buffer-name ()
   (with-current-buffer gud-comint-buffer
@@ -1808,7 +1808,7 @@
                       'gdb-threads-mode)
 
 (def-gdb-auto-updated-buffer gdb-threads-buffer
-  gdb-invalidate-threads "-thread-info\n"
+  gdb-invalidate-threads "-thread-info"
   gdb-thread-list-handler gdb-thread-list-handler-custom)
 
 
@@ -1895,7 +1895,7 @@
 
 (def-gdb-auto-updated-buffer gdb-memory-buffer
   gdb-invalidate-memory
-  (format "-data-read-memory %s %s %d %d %d\n" 
+  (format "-data-read-memory %s %s %d %d %d" 
           gdb-memory-address
           gdb-memory-format
           gdb-memory-unit
@@ -2283,7 +2283,7 @@
   (let ((file (or gdb-selected-file gdb-main-file))
         (line (or gdb-selected-line 1)))
     (if (not file) (error "Disassembly invalidated with no file selected.")
-      (format "-data-disassemble -f %s -l %d -n -1 -- 0\n" file line)))
+      (format "-data-disassemble -f %s -l %d -n -1 -- 0" file line)))
   gdb-disassembly-handler)
 
 (def-gdb-auto-update-handler
@@ -2481,7 +2481,7 @@
 
 (def-gdb-auto-updated-buffer gdb-stack-buffer
   gdb-invalidate-frames
-  "-stack-list-frames\n"
+  "-stack-list-frames"
   gdb-stack-list-frames-handler
   gdb-stack-list-frames-custom)
 
@@ -2595,7 +2595,7 @@
 
 (def-gdb-auto-update-trigger gdb-invalidate-locals
   (gdb-get-buffer 'gdb-locals-buffer)
-  "-stack-list-locals --simple-values\n"
+  "-stack-list-locals --simple-values"
   gdb-stack-list-locals-handler)
 
 (defconst gdb-stack-list-locals-regexp
@@ -2746,7 +2746,7 @@
 
 (def-gdb-auto-update-trigger gdb-invalidate-registers
   (gdb-get-buffer 'gdb-registers-buffer)
-  "-data-list-register-values x\n"
+  "-data-list-register-values x"
   gdb-data-list-register-values-handler)
 
 (defconst gdb-data-list-register-values-regexp
@@ -2840,7 +2840,7 @@
       (progn
        (gdb-input
         (list
-         "-data-list-changed-registers\n"
+         "-data-list-changed-registers"
          'gdb-get-changed-registers-handler))
        (push 'gdb-get-changed-registers gdb-pending-triggers))))
 
@@ -2880,7 +2880,7 @@
   (if (not (member 'gdb-get-selected-frame gdb-pending-triggers))
       (progn
        (gdb-input
-        (list "-stack-info-frame\n" 'gdb-frame-handler))
+        (list "-stack-info-frame" 'gdb-frame-handler))
        (push 'gdb-get-selected-frame
               gdb-pending-triggers))))