358 |
(gud-call "clear *%a" arg))) |
(gud-call "clear *%a" arg))) |
359 |
"\C-d" "Remove breakpoint at current line or address.") |
"\C-d" "Remove breakpoint at current line or address.") |
360 |
;; |
;; |
361 |
(gud-def gud-until (if (not (string-match "Machine" mode-name)) |
(gud-def gud-until (if (not (string-match "Machine" mode-name)) |
362 |
(gud-call "until %f:%l" arg) |
(gud-call "until %f:%l" arg) |
363 |
(save-excursion |
(save-excursion |
364 |
(beginning-of-line) |
(beginning-of-line) |
365 |
(forward-char 2) |
(forward-char 2) |
366 |
(gud-call "until *%a" arg))) |
(gud-call "until *%a" arg))) |
367 |
"\C-u" "Continue to current line or address.") |
"\C-u" "Continue to current line or address.") |
368 |
|
;; |
369 |
|
(gud-def gud-go (gud-call (if gdb-active-process "continue" "run") arg) |
370 |
|
nil "Start or continue execution.") |
371 |
|
|
372 |
(define-key gud-minor-mode-map [left-margin mouse-1] |
(define-key gud-minor-mode-map [left-margin mouse-1] |
373 |
'gdb-mouse-set-clear-breakpoint) |
'gdb-mouse-set-clear-breakpoint) |
1379 |
:weight bold)) |
:weight bold)) |
1380 |
"Face for enabled breakpoint icon in fringe." |
"Face for enabled breakpoint icon in fringe." |
1381 |
:group 'gud) |
:group 'gud) |
|
;; Compatibility alias for old name. |
|
|
(put 'breakpoint-enabled-bitmap-face 'face-alias 'breakpoint-enabled) |
|
1382 |
|
|
1383 |
(defface breakpoint-disabled |
(defface breakpoint-disabled |
1384 |
;; We use different values of grey for different background types, |
;; We use different values of grey for different background types, |
2359 |
(define-key menu [breakpoints] |
(define-key menu [breakpoints] |
2360 |
'("Breakpoints" . gdb-frame-breakpoints-buffer))) |
'("Breakpoints" . gdb-frame-breakpoints-buffer))) |
2361 |
|
|
2362 |
(let ((menu (make-sparse-keymap "GDB-UI"))) |
(let ((menu (make-sparse-keymap "GDB-UI/MI"))) |
2363 |
(define-key gud-menu-map [ui] |
(define-key gud-menu-map [ui] |
2364 |
`(menu-item "GDB-UI" ,menu :visible (eq gud-minor-mode 'gdba))) |
`(menu-item (if (eq gud-minor-mode 'gdba) "GDB-UI" "GDB-MI") |
2365 |
|
,menu :visible (memq gud-minor-mode '(gdbmi gdba)))) |
2366 |
(define-key menu [gdb-use-inferior-io] |
(define-key menu [gdb-use-inferior-io] |
2367 |
'(menu-item "Separate inferior IO" gdb-use-inferior-io-buffer |
'(menu-item "Separate inferior IO" gdb-use-inferior-io-buffer |
2368 |
|
:visible (eq gud-minor-mode 'gdba) |
2369 |
:help "Toggle separate IO for inferior." |
:help "Toggle separate IO for inferior." |
2370 |
:button (:toggle . gdb-use-inferior-io-buffer))) |
:button (:toggle . gdb-use-inferior-io-buffer))) |
2371 |
(define-key menu [gdb-many-windows] |
(define-key menu [gdb-many-windows] |
2705 |
(if (re-search-forward address nil t) |
(if (re-search-forward address nil t) |
2706 |
(gdb-put-breakpoint-icon (eq flag ?y) bptno)))))))) |
(gdb-put-breakpoint-icon (eq flag ?y) bptno)))))))) |
2707 |
(if (not (equal gdb-frame-address "main")) |
(if (not (equal gdb-frame-address "main")) |
2708 |
(set-window-point (get-buffer-window buffer 0) pos)))) |
(with-current-buffer buffer |
2709 |
|
(set-window-point (get-buffer-window buffer 0) pos))))) |
2710 |
|
|
2711 |
(defvar gdb-assembler-mode-map |
(defvar gdb-assembler-mode-map |
2712 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |