# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1269593769 -46800
# Node ID 33d43eba45d430a0851aed4d8ace0b3502548b81
# Parent  d3e4095893c10fb6b463c106778b0cbee3c5ce7c
(gdb-apple-test): New function.
(gdb-init-1): Use it.

diff -r d3e4095893c1 -r 33d43eba45d4 lisp/ChangeLog
--- a/lisp/ChangeLog	Thu Mar 25 20:04:48 2010 -0400
+++ b/lisp/ChangeLog	Fri Mar 26 21:56:09 2010 +1300
@@ -1,3 +1,8 @@
+2010-03-26  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.
diff -r d3e4095893c1 -r 33d43eba45d4 lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Thu Mar 25 20:04:48 2010 -0400
+++ b/lisp/progmodes/gdb-ui.el	Fri Mar 26 21:56:09 2010 +1300
@@ -705,6 +705,9 @@
 
   (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 @@
   (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)