85 |
(defvar gdb-find-file-unhook nil) |
(defvar gdb-find-file-unhook nil) |
86 |
(defvar gdb-active-process nil "GUD tooltips display variable values when t, \ |
(defvar gdb-active-process nil "GUD tooltips display variable values when t, \ |
87 |
and #define directives otherwise.") |
and #define directives otherwise.") |
88 |
|
(defvar gdb-error "Non-nil when GDB is reporting an error.") |
89 |
(defvar gdb-macro-info nil |
(defvar gdb-macro-info nil |
90 |
"Non-nil if GDB knows that the inferior includes preprocessor macro info.") |
"Non-nil if GDB knows that the inferior includes preprocessor macro info.") |
91 |
|
|
360 |
gdb-flush-pending-output nil |
gdb-flush-pending-output nil |
361 |
gdb-location-alist nil |
gdb-location-alist nil |
362 |
gdb-find-file-unhook nil |
gdb-find-file-unhook nil |
363 |
|
gdb-error nil |
364 |
gdb-macro-info nil) |
gdb-macro-info nil) |
365 |
;; |
;; |
366 |
(setq gdb-buffer-type 'gdba) |
(setq gdb-buffer-type 'gdba) |
862 |
("watchpoint" gdb-stopping) |
("watchpoint" gdb-stopping) |
863 |
("frame-begin" gdb-frame-begin) |
("frame-begin" gdb-frame-begin) |
864 |
("stopped" gdb-stopped) |
("stopped" gdb-stopped) |
865 |
|
("error-begin" gdb-error) |
866 |
|
("error" gdb-error) |
867 |
) "An assoc mapping annotation tags to functions which process them.") |
) "An assoc mapping annotation tags to functions which process them.") |
868 |
|
|
869 |
(defun gdb-resync() |
(defun gdb-resync() |
993 |
(gdb-resync) |
(gdb-resync) |
994 |
(error "Unexpected stopped annotation"))))) |
(error "Unexpected stopped annotation"))))) |
995 |
|
|
996 |
|
(defun gdb-error (ignored) |
997 |
|
(setq gdb-error (not gdb-error))) |
998 |
|
|
999 |
(defun gdb-post-prompt (ignored) |
(defun gdb-post-prompt (ignored) |
1000 |
"An annotation handler for `post-prompt'. |
"An annotation handler for `post-prompt'. |
1001 |
This begins the collection of output from the current command if that |
This begins the collection of output from the current command if that |
1090 |
output))) |
output))) |
1091 |
|
|
1092 |
(defun gdb-concat-output (so-far new) |
(defun gdb-concat-output (so-far new) |
1093 |
|
(if gdb-error |
1094 |
|
(put-text-property 0 (length new) 'face font-lock-warning-face new)) |
1095 |
(let ((sink gdb-output-sink)) |
(let ((sink gdb-output-sink)) |
1096 |
(cond |
(cond |
1097 |
((eq sink 'user) (concat so-far new)) |
((eq sink 'user) (concat so-far new)) |