# HG changeset patch
# User Nick Roberts <nickrob@snap.net.nz>
# Date 1115239442 0
# Node ID 115b0152e8bbe8a7220afdb27713b078871292ff
# Parent  24ece2a918363a1522e3a1694c8ac066a4026ba2
(gdb-cpp-define-alist-flags): New variable.
(gdb-create-define-alist): Use. it.
(gdb-cpp-define-alist-program): Update for MS-DOS?

diff -r 24ece2a91836 -r 115b0152e8bb lisp/progmodes/gdb-ui.el
--- a/lisp/progmodes/gdb-ui.el	Wed May 04 20:43:22 2005 +0000
+++ b/lisp/progmodes/gdb-ui.el	Wed May 04 20:44:02 2005 +0000
@@ -196,7 +196,9 @@
   :group 'gud
   :version "22.1")
 
-(defcustom gdb-cpp-define-alist-program "gcc -E -dM -"
+(defcustom gdb-cpp-define-alist-program 
+  (cond ((eq system-type 'ms-dos) "gcc -E -dM -o - -")
+	(t "gcc -E -dM -"))
   "The program name for generating an alist of #define directives.
 This list is used to display the #define directive associated
 with an identifier as a tooltip. It works in a debug session with
@@ -205,9 +207,16 @@
   :group 'gud
   :version "22.1")
 
+(defcustom gdb-cpp-define-alist-flags ""
+  "*Preprocessor flags used by `gdb-create-define-alist'."
+  :type 'string
+  :group 'gud
+  :version "22.1")
+
 (defvar gdb-define-alist nil "Alist of #define directives for GUD tooltips.")
 
 (defun gdb-create-define-alist ()
+  "Create an alist of #define directives for GUD tooltips."
   (let* ((file (buffer-file-name))
 	 (output
 	  (with-output-to-string
@@ -215,7 +224,8 @@
 	      (call-process shell-file-name
 			    (if (file-exists-p file) file nil)
 			    (list t nil) nil "-c"
-			    gdb-cpp-define-alist-program))))
+			    (concat gdb-cpp-define-alist-program " "
+				    gdb-cpp-define-alist-flags)))))
 	(define-list (split-string output "\n" t))
 	(name))
     (setq gdb-define-alist nil)