mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-28 07:45:00 +00:00
Code Issues Releases Activity

(gdb-apple-test): New function.

Browse Source 
(gdb-init-1): Use it.
This commit is contained in:
Nick Roberts 2010-03-26 21:58:41 +13:00
parent ef7b27ef14
commit eca16aa79a
2 changed files with 21 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/ChangeLog
View File

@ -1,3 +1,9 @@
2010-03-26 YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
Nick Roberts <nickrob@snap.net.nz>
* progmodes/gdb-ui.el (gdb-apple-test): New function.
(gdb-init-1): Use it.
2010-02-10 Dan Nicolaescu <dann@ics.uci.edu>
* vc.el (vc-root-diff): Doc fix.

15
lisp/progmodes/gdb-ui.el
View File

@ -705,6 +705,9 @@ otherwise do not."
(if gdb-use-separate-io-buffer (gdb-clear-inferior-io))
(if (eq system-type 'darwin)
(gdb-enqueue-input (list "server show version\n" 'gdb-apple-test)))
;; Hack to see test for GDB 6.4+ (-stack-info-frame was implemented in 6.4)
(gdb-enqueue-input (list "server interpreter mi -stack-info-frame\n"
'gdb-get-version)))
@ -736,6 +739,18 @@ otherwise do not."
(gdb-enqueue-input (list "server list MAIN__\n" 'ignore))
(gdb-enqueue-input (list "server info source\n" 'gdb-source-info)))
;; Workaround for some Apple versions of GDB that add ^M at EOL
;; after the command "server interpreter mi -stack-info-frame".
(defun gdb-apple-test ()
(goto-char (point-min))
(if (re-search-forward "(Apple version " nil t)
(let* ((process (get-buffer-process gud-comint-buffer))
(coding-systems (process-coding-system process)))
(set-process-coding-system process
(coding-system-change-eol-conversion
(car coding-systems) 'dos)
(cdr coding-systems)))))
(defun gdb-get-version ()
(goto-char (point-min))
(if (re-search-forward "Undefined\\( mi\\)* command:" nil t)