Index: emacs/lisp/progmodes/gdb-ui.el
diff -c emacs/lisp/progmodes/gdb-ui.el:1.63 emacs/lisp/progmodes/gdb-ui.el:1.64
*** emacs/lisp/progmodes/gdb-ui.el:1.63 Tue May 3 06:48:47 2005
--- emacs/lisp/progmodes/gdb-ui.el Wed May 4 20:44:02 2005
***************
*** 196,202 ****
:group 'gud
:version "22.1")
! (defcustom gdb-cpp-define-alist-program "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
--- 196,204 ----
:group 'gud
:version "22.1")
! (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,213 ****
--- 207,222 ----
: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,221 ****
(call-process shell-file-name
(if (file-exists-p file) file nil)
(list t nil) nil "-c"
! gdb-cpp-define-alist-program))))
(define-list (split-string output "\n" t))
(name))
(setq gdb-define-alist nil)
--- 224,231 ----
(call-process shell-file-name
(if (file-exists-p file) file nil)
(list t nil) nil "-c"
! (concat gdb-cpp-define-alist-program " "
! gdb-cpp-define-alist-flags)))))
(define-list (split-string output "\n" t))
(name))
(setq gdb-define-alist nil)
_______________________________________________
Emacs-diffs mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/emacs-diffs
