2005-07-16 00:35:49 +02:00
|
|
|
|
;;; gdb-mi.el
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
;; Author: Nick Roberts <nickrob@gnu.org>
|
|
|
|
|
;; Maintainer: Nick Roberts <nickrob@gnu.org>
|
|
|
|
|
;; Keywords: unix, tools
|
|
|
|
|
|
2006-02-10 07:18:09 +01:00
|
|
|
|
;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
;; This file is part of GNU GDB.
|
|
|
|
|
|
|
|
|
|
;; GNU GDB is free software; you can redistribute it and/or modify
|
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
|
|
|
|
;; the Free Software Foundation; either version 2, or (at your option)
|
|
|
|
|
;; any later version.
|
|
|
|
|
|
|
|
|
|
;; This program is distributed in the hope that it will be useful,
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
;;; Commentary:
|
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
;; This mode acts as a graphical user interface to GDB and works with Emacs
|
|
|
|
|
;; 22.x and the version of GDB with which it is distributed. You can interact
|
|
|
|
|
;; with GDB through the GUD buffer in the usual way, but there are also
|
|
|
|
|
;; buffers which control the execution and describe the state of your program.
|
|
|
|
|
;; It separates the input/output of your program from that of GDB and displays
|
|
|
|
|
;; expressions and their current values in their own buffers. It also uses
|
|
|
|
|
;; features of Emacs 21 such as the fringe/display margin for breakpoints, and
|
|
|
|
|
;; the toolbar (see the GDB Graphical Interface section in the Emacs info
|
|
|
|
|
;; manual).
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
;; Start the debugger with M-x gdbmi.
|
|
|
|
|
|
|
|
|
|
;; This file uses GDB/MI as the primary interface to GDB. It is still under
|
2005-07-16 00:35:49 +02:00
|
|
|
|
;; development and is part of a process to migrate Emacs from annotations (as
|
|
|
|
|
;; used in gdb-ui.el) to GDB/MI. It runs gdb with GDB/MI (-interp=mi) and
|
|
|
|
|
;; access CLI using "-interpreter-exec console cli-command".
|
|
|
|
|
;;
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;; Known Bugs:
|
|
|
|
|
;;
|
2005-07-16 00:35:49 +02:00
|
|
|
|
;; 1) To handle program input, if required, and to avoid extra output in the
|
|
|
|
|
;; GUD buffer you must not use run, step, next or continue etc but their MI
|
|
|
|
|
;; counterparts through gud-run, gud-step etc, e.g clicking on the appropriate
|
|
|
|
|
;; icon in the toolbar.
|
|
|
|
|
;; 2) Some commands send extra prompts to the GUD buffer.
|
2006-02-10 07:18:09 +01:00
|
|
|
|
;; 3) Doesn't list catchpoints in breakpoints buffer.
|
2005-07-16 00:35:49 +02:00
|
|
|
|
;;
|
|
|
|
|
;; TODO:
|
|
|
|
|
;; 1) Prefix MI commands with a token instead of queueing commands.
|
|
|
|
|
;; 2) Use MI command -data-read-memory for memory window.
|
|
|
|
|
;; 3) Use MI command -data-disassemble for disassembly window.
|
|
|
|
|
;; 4) Allow separate buffers for Inferior IO and GDB IO.
|
|
|
|
|
;; 5) Watch windows to work with threads.
|
|
|
|
|
;;
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;;; Code:
|
|
|
|
|
|
|
|
|
|
(require 'gud)
|
|
|
|
|
(require 'gdb-ui)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
|
|
|
|
|
(defvar gdb-last-command nil)
|
|
|
|
|
(defvar gdb-prompt-name nil)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
;;;###autoload
|
|
|
|
|
(defun gdbmi (command-line)
|
|
|
|
|
"Run gdb on program FILE in buffer *gud-FILE*.
|
|
|
|
|
The directory containing FILE becomes the initial working directory
|
|
|
|
|
and source-file directory for your debugger.
|
|
|
|
|
|
|
|
|
|
If `gdb-many-windows' is nil (the default value) then gdb just
|
|
|
|
|
pops up the GUD buffer unless `gdb-show-main' is t. In this case
|
|
|
|
|
it starts with two windows: one displaying the GUD buffer and the
|
|
|
|
|
other with the source file with the main routine of the inferior.
|
|
|
|
|
|
|
|
|
|
If `gdb-many-windows' is t, regardless of the value of
|
|
|
|
|
`gdb-show-main', the layout below will appear. Keybindings are
|
|
|
|
|
given in relevant buffer.
|
|
|
|
|
|
|
|
|
|
Watch expressions appear in the speedbar/slowbar.
|
|
|
|
|
|
2005-11-18 07:37:38 +01:00
|
|
|
|
The following commands help control operation :
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
`gdb-many-windows' - Toggle the number of windows gdb uses.
|
|
|
|
|
`gdb-restore-windows' - To restore the window layout.
|
|
|
|
|
|
|
|
|
|
See Info node `(emacs)GDB Graphical Interface' for a more
|
|
|
|
|
detailed description of this mode.
|
|
|
|
|
|
|
|
|
|
|
2005-11-18 07:37:38 +01:00
|
|
|
|
+--------------------------------------------------------------+
|
|
|
|
|
| GDB Toolbar |
|
|
|
|
|
+-------------------------------+------------------------------+
|
|
|
|
|
| GUD buffer (I/O of GDB) | Locals buffer |
|
|
|
|
|
| | |
|
|
|
|
|
| | |
|
|
|
|
|
| | |
|
|
|
|
|
+-------------------------------+------------------------------+
|
|
|
|
|
| Source buffer |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
| |
|
|
|
|
|
+-------------------------------+------------------------------+
|
|
|
|
|
| Stack buffer | Breakpoints buffer |
|
|
|
|
|
| RET gdb-frames-select | SPC gdb-toggle-breakpoint |
|
|
|
|
|
| | RET gdb-goto-breakpoint |
|
|
|
|
|
| | d gdb-delete-breakpoint |
|
|
|
|
|
+-------------------------------+------------------------------+"
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;;
|
|
|
|
|
(interactive (list (gud-query-cmdline 'gdbmi)))
|
|
|
|
|
;;
|
|
|
|
|
;; Let's start with a basic gud-gdb buffer and then modify it a bit.
|
|
|
|
|
(gdb command-line)
|
|
|
|
|
;;
|
|
|
|
|
(setq gdb-debug-log nil)
|
|
|
|
|
(set (make-local-variable 'gud-minor-mode) 'gdbmi)
|
|
|
|
|
(set (make-local-variable 'gud-marker-filter) 'gud-gdbmi-marker-filter)
|
|
|
|
|
;;
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gud-def gud-step "-exec-step %p" "\C-s"
|
|
|
|
|
"Step one source line with display.")
|
|
|
|
|
(gud-def gud-stepi "-exec-step-instruction %p" "\C-i"
|
|
|
|
|
"Step one instruction with display.")
|
|
|
|
|
(gud-def gud-next "-exec-next %p" "\C-n"
|
|
|
|
|
"Step one line (skip functions).")
|
|
|
|
|
(gud-def gud-cont "-exec-continue" "\C-r"
|
|
|
|
|
"Continue with display.")
|
|
|
|
|
(gud-def gud-finish "-exec-finish" "\C-f"
|
|
|
|
|
"Finish executing current function.")
|
|
|
|
|
(gud-def gud-run "-exec-run" nil "Run the program.")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(gud-def gud-break (if (not (string-equal mode-name "Machine"))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gud-call "break %f:%l" arg)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(save-excursion
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(forward-char 2)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gud-call "break *%a" arg)))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
"\C-b" "Set breakpoint at current line or address.")
|
|
|
|
|
;;
|
|
|
|
|
(gud-def gud-remove (if (not (string-equal mode-name "Machine"))
|
|
|
|
|
(gud-call "clear %f:%l" arg)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(forward-char 2)
|
|
|
|
|
(gud-call "clear *%a" arg)))
|
|
|
|
|
"\C-d" "Remove breakpoint at current line or address.")
|
|
|
|
|
;;
|
|
|
|
|
(gud-def gud-until (if (not (string-equal mode-name "Machine"))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gud-call "-exec-until %f:%l" arg)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(save-excursion
|
|
|
|
|
(beginning-of-line)
|
|
|
|
|
(forward-char 2)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gud-call "-exec-until *%a" arg)))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
"\C-u" "Continue to current line or address.")
|
|
|
|
|
|
|
|
|
|
(define-key gud-minor-mode-map [left-margin mouse-1]
|
2005-07-16 00:35:49 +02:00
|
|
|
|
'gdb-mouse-set-clear-breakpoint)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(define-key gud-minor-mode-map [left-fringe mouse-1]
|
2005-07-16 00:35:49 +02:00
|
|
|
|
'gdb-mouse-set-clear-breakpoint)
|
2005-11-18 07:37:38 +01:00
|
|
|
|
(define-key gud-minor-mode-map [left-fringe mouse-2]
|
|
|
|
|
'gdb-mouse-until)
|
|
|
|
|
(define-key gud-minor-mode-map [left-fringe drag-mouse-1]
|
|
|
|
|
'gdb-mouse-until)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(define-key gud-minor-mode-map [left-margin mouse-3]
|
2005-11-18 07:37:38 +01:00
|
|
|
|
'gdb-mouse-toggle-breakpoint-margin)
|
|
|
|
|
(define-key gud-minor-mode-map [left-fringe mouse-3]
|
|
|
|
|
'gdb-mouse-toggle-breakpoint-fringe)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
(setq comint-input-sender 'gdbmi-send)
|
|
|
|
|
;;
|
|
|
|
|
;; (re-)initialise
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(setq gdb-frame-address (if gdb-show-main "main" nil)
|
|
|
|
|
gdb-previous-frame-address nil
|
|
|
|
|
gdb-memory-address "main"
|
|
|
|
|
gdb-previous-frame nil
|
|
|
|
|
gdb-selected-frame nil
|
|
|
|
|
gdb-frame-number nil
|
|
|
|
|
gdb-var-list nil
|
|
|
|
|
gdb-var-changed nil
|
|
|
|
|
gdb-prompting nil
|
|
|
|
|
gdb-input-queue nil
|
|
|
|
|
gdb-current-item nil
|
|
|
|
|
gdb-pending-triggers nil
|
|
|
|
|
gdb-output-sink 'user
|
|
|
|
|
gdb-server-prefix nil
|
|
|
|
|
gdb-flush-pending-output nil
|
|
|
|
|
gdb-location-alist nil
|
|
|
|
|
gdb-source-file-list nil
|
|
|
|
|
gdb-last-command nil
|
2005-10-28 05:26:19 +02:00
|
|
|
|
gdb-prompt-name nil
|
|
|
|
|
gdb-buffer-fringe-width (car (window-fringes)))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;;
|
|
|
|
|
(setq gdb-buffer-type 'gdbmi)
|
|
|
|
|
;;
|
|
|
|
|
;; FIXME: use tty command to separate io.
|
|
|
|
|
;;(gdb-clear-inferior-io)
|
|
|
|
|
;;
|
|
|
|
|
(if (eq window-system 'w32)
|
|
|
|
|
(gdb-enqueue-input (list "-gdb-set new-console off\n" 'ignore)))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gdb-enqueue-input (list "-gdb-set height 0\n" 'ignore))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;; find source file and compilation directory here
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gdb-enqueue-input
|
|
|
|
|
; Needs GDB 6.2 onwards.
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(list "-file-list-exec-source-files\n"
|
|
|
|
|
'gdb-set-gud-minor-mode-existing-buffers-1))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gdb-enqueue-input
|
|
|
|
|
; Needs GDB 6.0 onwards.
|
|
|
|
|
(list "-file-list-exec-source-file\n" 'gdb-get-source-file))
|
|
|
|
|
(gdb-enqueue-input
|
|
|
|
|
(list "-data-list-register-names\n" 'gdb-get-register-names))
|
|
|
|
|
(gdb-enqueue-input
|
|
|
|
|
(list "-gdb-show prompt\n" 'gdb-get-prompt))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;;
|
2006-02-10 07:18:09 +01:00
|
|
|
|
(setq gdb-locals-font-lock-keywords gdb-locals-font-lock-keywords-2)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(run-hooks 'gdbmi-mode-hook))
|
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(defun gdbmi-send (proc string)
|
|
|
|
|
"A comint send filter for gdb."
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(if gud-running
|
|
|
|
|
(process-send-string proc (concat string "\n"))
|
|
|
|
|
(with-current-buffer gud-comint-buffer
|
|
|
|
|
(remove-text-properties (point-min) (point-max) '(face)))
|
|
|
|
|
(setq gdb-output-sink 'user)
|
|
|
|
|
(setq gdb-prompting nil)
|
|
|
|
|
;; mimic <RET> key to repeat previous command in GDB
|
|
|
|
|
(if (string-match "\\S+" string)
|
|
|
|
|
(setq gdb-last-command string)
|
|
|
|
|
(if gdb-last-command (setq string gdb-last-command)))
|
|
|
|
|
(if gdb-enable-debug-log
|
|
|
|
|
(push (cons 'mi-send (concat string "\n")) gdb-debug-log))
|
|
|
|
|
(process-send-string
|
|
|
|
|
proc
|
|
|
|
|
(if (string-match "^-" string)
|
|
|
|
|
;; MI command
|
|
|
|
|
(concat string "\n")
|
|
|
|
|
;; CLI command
|
|
|
|
|
(concat "-interpreter-exec console \"" string "\"\n")))))
|
|
|
|
|
|
|
|
|
|
(defcustom gud-gdbmi-command-name "gdb -interp=mi"
|
2004-05-25 22:03:05 +02:00
|
|
|
|
"Default command to execute an executable under the GDB-UI debugger."
|
|
|
|
|
:type 'string
|
|
|
|
|
:group 'gud)
|
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defconst gdb-gdb-regexp "(gdb) \n")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defconst gdb-running-regexp (concat "\\^running\n" gdb-gdb-regexp))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
;; fullname added GDB 6.4+.
|
|
|
|
|
;; Probably not needed. -stack-info-frame computes filename and line.
|
|
|
|
|
(defconst gdb-stopped-regexp
|
|
|
|
|
"\\*stopped,reason=.*?,file=\".*?\"\
|
|
|
|
|
,fullname=\"\\(.*?\\)\",line=\"\\(.*?\\)\"}\n")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defconst gdb-error-regexp "\\^error,msg=\\(\".+\"\\)\n")
|
|
|
|
|
|
|
|
|
|
(defconst gdb-done-regexp "\\^done,*\n*")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defconst gdb-console-regexp "~\\(\".*?[^\\]\"\\)\n")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defconst gdb-internals-regexp "&\\(\".*?\\n\"\\)\n")
|
|
|
|
|
|
|
|
|
|
(defun gdbmi-prompt1 ()
|
|
|
|
|
"Queue any GDB commands that the user interface needs."
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(unless gdb-pending-triggers
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(when (and (boundp 'speedbar-frame) (frame-live-p speedbar-frame))
|
|
|
|
|
(setq gdb-var-changed t) ; force update
|
|
|
|
|
(dolist (var gdb-var-list)
|
|
|
|
|
(setcar (nthcdr 5 var) nil))
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(gdb-var-update-1))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gdbmi-get-selected-frame)
|
|
|
|
|
(gdbmi-invalidate-frames)
|
|
|
|
|
(gdbmi-invalidate-breakpoints)
|
|
|
|
|
(gdb-get-changed-registers)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(gdb-invalidate-registers-1)
|
|
|
|
|
(gdb-invalidate-locals-1)))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
|
|
|
|
|
(defun gdbmi-prompt2 ()
|
|
|
|
|
"Handle any output and send next GDB command."
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(let ((sink gdb-output-sink))
|
|
|
|
|
(when (eq sink 'emacs)
|
|
|
|
|
(let ((handler
|
|
|
|
|
(car (cdr gdb-current-item))))
|
|
|
|
|
(with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
|
|
|
|
|
(funcall handler)))))
|
|
|
|
|
(let ((input (gdb-dequeue-input)))
|
|
|
|
|
(if input
|
|
|
|
|
(gdb-send-item input)
|
|
|
|
|
(progn
|
|
|
|
|
(setq gud-running nil)
|
|
|
|
|
(setq gdb-prompting t)
|
|
|
|
|
(gud-display-frame)))))
|
|
|
|
|
|
|
|
|
|
(defun gud-gdbmi-marker-filter (string)
|
|
|
|
|
"Filter GDB/MI output."
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(if gdb-flush-pending-output
|
|
|
|
|
nil
|
|
|
|
|
(if gdb-enable-debug-log (push (cons 'recv (list string gdb-output-sink))
|
|
|
|
|
gdb-debug-log))
|
|
|
|
|
;; Recall the left over gud-marker-acc from last time
|
|
|
|
|
(setq gud-marker-acc (concat gud-marker-acc string))
|
|
|
|
|
;; Start accumulating output for the GUD buffer
|
|
|
|
|
(let ((output ""))
|
|
|
|
|
|
|
|
|
|
(if (string-match gdb-running-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(substring gud-marker-acc (match-end 0)))
|
|
|
|
|
gud-running t))
|
|
|
|
|
|
|
|
|
|
(if (string-match gdb-stopped-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
|
|
|
|
|
;; Extract the frame position from the marker.
|
|
|
|
|
gud-last-frame (cons (match-string 1 gud-marker-acc)
|
|
|
|
|
(string-to-number
|
|
|
|
|
(match-string 2 gud-marker-acc)))
|
|
|
|
|
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(substring gud-marker-acc (match-end 0)))))
|
|
|
|
|
|
|
|
|
|
;; Filter error messages going to GUD buffer and
|
|
|
|
|
;; display in minibuffer.
|
|
|
|
|
(if (eq gdb-output-sink 'user)
|
|
|
|
|
(while (string-match gdb-error-regexp gud-marker-acc)
|
|
|
|
|
(message (read (match-string 1 gud-marker-acc)))
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(substring gud-marker-acc (match-end 0))))))
|
|
|
|
|
|
|
|
|
|
(if (string-match gdb-done-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(substring gud-marker-acc (match-end 0)))))
|
|
|
|
|
|
|
|
|
|
(when (string-match gdb-gdb-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(substring gud-marker-acc (match-end 0))))
|
|
|
|
|
|
|
|
|
|
;; Remove the trimmings from the console stream.
|
|
|
|
|
(while (string-match gdb-console-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc (concat
|
|
|
|
|
(substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(read (match-string 1 gud-marker-acc))
|
|
|
|
|
(substring gud-marker-acc (match-end 0)))))
|
|
|
|
|
|
|
|
|
|
;; Remove the trimmings from log stream containing debugging messages
|
|
|
|
|
;; being produced by GDB's internals and use warning face.
|
|
|
|
|
(while (string-match gdb-internals-regexp gud-marker-acc)
|
|
|
|
|
(setq
|
|
|
|
|
gud-marker-acc
|
|
|
|
|
(concat (substring gud-marker-acc 0 (match-beginning 0))
|
|
|
|
|
(let ((error-message
|
|
|
|
|
(read (match-string 1 gud-marker-acc))))
|
|
|
|
|
(put-text-property
|
|
|
|
|
0 (length error-message)
|
|
|
|
|
'face font-lock-warning-face
|
|
|
|
|
error-message)
|
|
|
|
|
error-message)
|
|
|
|
|
(substring gud-marker-acc (match-end 0)))))
|
|
|
|
|
|
|
|
|
|
(setq output (gdbmi-concat-output output gud-marker-acc))
|
|
|
|
|
(setq gud-marker-acc "")
|
|
|
|
|
(gdbmi-prompt1)
|
|
|
|
|
(unless gdb-input-queue
|
|
|
|
|
(setq output (concat output gdb-prompt-name)))
|
|
|
|
|
(gdbmi-prompt2))
|
|
|
|
|
|
|
|
|
|
(when gud-running
|
|
|
|
|
(setq output (gdbmi-concat-output output gud-marker-acc))
|
|
|
|
|
(setq gud-marker-acc ""))
|
|
|
|
|
|
|
|
|
|
output)))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
(defun gdbmi-concat-output (so-far new)
|
|
|
|
|
(let ((sink gdb-output-sink))
|
|
|
|
|
(cond
|
|
|
|
|
((eq sink 'user) (concat so-far new))
|
|
|
|
|
((eq sink 'emacs)
|
|
|
|
|
(gdb-append-to-partial-output new)
|
|
|
|
|
so-far)
|
|
|
|
|
((eq sink 'inferior)
|
|
|
|
|
(gdb-append-to-inferior-io new)
|
|
|
|
|
so-far))))
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;; Breakpoint buffer : This displays the output of `-break-list'.
|
|
|
|
|
;;
|
2005-11-18 07:37:38 +01:00
|
|
|
|
(def-gdb-auto-update-trigger gdbmi-invalidate-breakpoints
|
|
|
|
|
(gdb-get-buffer 'gdb-breakpoints-buffer)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
"-break-list\n"
|
2005-11-18 07:37:38 +01:00
|
|
|
|
gdb-break-list-handler)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
(defconst gdb-break-list-regexp
|
2005-07-16 00:35:49 +02:00
|
|
|
|
"number=\"\\(.*?\\)\",type=\"\\(.*?\\)\",disp=\"\\(.*?\\)\",enabled=\"\\(.\\)\",\
|
2006-02-14 10:20:07 +01:00
|
|
|
|
addr=\"\\(.*?\\)\",\
|
|
|
|
|
\\(?:func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",fullname=\".*?\",line=\"\\(.*?\\)\",\
|
|
|
|
|
\\|\\(?:what=\"\\(.*?\\)\",\\)*\\)times=\"\\(.*?\\)\"")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
(defun gdb-break-list-handler ()
|
|
|
|
|
(setq gdb-pending-triggers (delq 'gdbmi-invalidate-breakpoints
|
|
|
|
|
gdb-pending-triggers))
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(let ((breakpoint) (breakpoints-list))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(while (re-search-forward gdb-break-list-regexp nil t)
|
|
|
|
|
(let ((breakpoint (list (match-string 1)
|
|
|
|
|
(match-string 2)
|
|
|
|
|
(match-string 3)
|
|
|
|
|
(match-string 4)
|
|
|
|
|
(match-string 5)
|
|
|
|
|
(match-string 6)
|
|
|
|
|
(match-string 7)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(match-string 8)
|
|
|
|
|
(match-string 9)
|
|
|
|
|
(match-string 10))))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(push breakpoint breakpoints-list))))
|
|
|
|
|
(let ((buf (gdb-get-buffer 'gdb-breakpoints-buffer)))
|
|
|
|
|
(and buf (with-current-buffer buf
|
|
|
|
|
(let ((p (point))
|
|
|
|
|
(buffer-read-only nil))
|
|
|
|
|
(erase-buffer)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(insert "Num Type Disp Enb Hits Addr What\n")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(dolist (breakpoint breakpoints-list)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(insert
|
|
|
|
|
(concat
|
|
|
|
|
(nth 0 breakpoint) " "
|
|
|
|
|
(nth 1 breakpoint) " "
|
|
|
|
|
(nth 2 breakpoint) " "
|
|
|
|
|
(nth 3 breakpoint) " "
|
|
|
|
|
(nth 9 breakpoint) " "
|
|
|
|
|
(nth 4 breakpoint) " "
|
|
|
|
|
(if (nth 5 breakpoint)
|
|
|
|
|
(concat "in " (nth 5 breakpoint) " at " (nth 6 breakpoint) ":" (nth 7 breakpoint) "\n")
|
|
|
|
|
(concat (nth 8 breakpoint) "\n")))))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(goto-char p))))))
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(gdb-info-breakpoints-custom))
|
2005-11-18 07:37:38 +01:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defun gdbmi-get-location (bptno line flag)
|
|
|
|
|
"Find the directory containing the relevant source file.
|
|
|
|
|
Put in buffer and place breakpoint icon."
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(catch 'file-not-found
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(if (re-search-forward gdb-source-file-regexp-1 nil t)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(delete (cons bptno "File not found") gdb-location-alist)
|
|
|
|
|
(push (cons bptno (match-string 1)) gdb-location-alist)
|
|
|
|
|
(gdb-resync)
|
|
|
|
|
(unless (assoc bptno gdb-location-alist)
|
|
|
|
|
(push (cons bptno "File not found") gdb-location-alist)
|
|
|
|
|
(message-box "Cannot find source file for breakpoint location.
|
|
|
|
|
Add directory to search path for source files using the GDB command, dir."))
|
|
|
|
|
(throw 'file-not-found nil))
|
|
|
|
|
(with-current-buffer
|
|
|
|
|
(find-file-noselect (match-string 1))
|
|
|
|
|
(save-current-buffer
|
|
|
|
|
(set (make-local-variable 'gud-minor-mode) 'gdbmi)
|
|
|
|
|
(set (make-local-variable 'tool-bar-map) gud-tool-bar-map))
|
|
|
|
|
;; only want one breakpoint icon at each location
|
|
|
|
|
(save-excursion
|
|
|
|
|
(goto-line (string-to-number line))
|
|
|
|
|
(gdb-put-breakpoint-icon (eq flag ?y) bptno)))))
|
|
|
|
|
|
2004-05-25 22:03:05 +02:00
|
|
|
|
;; Frames buffer. This displays a perpetually correct bactrack trace.
|
|
|
|
|
;;
|
2005-11-18 07:37:38 +01:00
|
|
|
|
(def-gdb-auto-update-trigger gdbmi-invalidate-frames
|
|
|
|
|
(gdb-get-buffer 'gdb-stack-buffer)
|
2004-05-25 22:03:05 +02:00
|
|
|
|
"-stack-list-frames\n"
|
2005-11-18 07:37:38 +01:00
|
|
|
|
gdb-stack-list-frames-handler)
|
|
|
|
|
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(defconst gdb-stack-list-frames-regexp
|
2005-07-16 00:35:49 +02:00
|
|
|
|
"level=\"\\(.*?\\)\",addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",\
|
2006-02-14 10:20:07 +01:00
|
|
|
|
\\(?:file=\".*?\",fullname=\"\\(.*?\\)\",line=\"\\(.*?\\)\"\\|\
|
|
|
|
|
from=\"\\(.*?\\)\"\\)")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
|
|
|
|
(defun gdb-stack-list-frames-handler ()
|
|
|
|
|
(setq gdb-pending-triggers (delq 'gdbmi-invalidate-frames
|
|
|
|
|
gdb-pending-triggers))
|
|
|
|
|
(let ((frame nil)
|
|
|
|
|
(call-stack nil))
|
|
|
|
|
(with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(while (re-search-forward gdb-stack-list-frames-regexp nil t)
|
|
|
|
|
(let ((frame (list (match-string 1)
|
|
|
|
|
(match-string 2)
|
|
|
|
|
(match-string 3)
|
|
|
|
|
(match-string 4)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(match-string 5)
|
|
|
|
|
(match-string 6))))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(push frame call-stack))))
|
|
|
|
|
(let ((buf (gdb-get-buffer 'gdb-stack-buffer)))
|
|
|
|
|
(and buf (with-current-buffer buf
|
|
|
|
|
(let ((p (point))
|
|
|
|
|
(buffer-read-only nil))
|
|
|
|
|
(erase-buffer)
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(insert "Level\tAddr\tFunc\tFile:Line\n")
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(dolist (frame (nreverse call-stack))
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(insert
|
|
|
|
|
(concat
|
|
|
|
|
(nth 0 frame) "\t"
|
|
|
|
|
(nth 1 frame) "\t"
|
|
|
|
|
(nth 2 frame) "\t"
|
|
|
|
|
(if (nth 3 frame)
|
|
|
|
|
(concat "at "(nth 3 frame) ":" (nth 4 frame) "\n")
|
|
|
|
|
(concat "from " (nth 5 frame) "\n")))))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(goto-char p))))))
|
|
|
|
|
(gdb-stack-list-frames-custom))
|
|
|
|
|
|
|
|
|
|
(defun gdb-stack-list-frames-custom ()
|
|
|
|
|
(with-current-buffer (gdb-get-buffer 'gdb-stack-buffer)
|
|
|
|
|
(save-excursion
|
|
|
|
|
(let ((buffer-read-only nil))
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(forward-line 1)
|
|
|
|
|
(while (< (point) (point-max))
|
|
|
|
|
(add-text-properties (point-at-bol) (point-at-eol)
|
|
|
|
|
'(mouse-face highlight
|
|
|
|
|
help-echo "mouse-2, RET: Select frame"))
|
|
|
|
|
(beginning-of-line)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(when (and (looking-at "^[0-9]+\\s-+\\(\\S-+\\)")
|
|
|
|
|
(equal (match-string 1) gdb-selected-frame))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(put-text-property (point-at-bol) (point-at-eol)
|
|
|
|
|
'face '(:inverse-video t)))
|
|
|
|
|
(forward-line 1))))))
|
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
|
2006-02-14 10:20:07 +01:00
|
|
|
|
;; gdb-ui.el uses "info source" to find out if macro information is present.
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defun gdb-get-source-file ()
|
|
|
|
|
"Find the source file where the program starts and display it with related
|
|
|
|
|
buffers, if required."
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(goto-char (point-min))
|
2006-02-14 10:20:07 +01:00
|
|
|
|
(if (re-search-forward gdb-source-file-regexp-1 nil t)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(setq gdb-main-file (match-string 1)))
|
|
|
|
|
(if gdb-many-windows
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(gdb-setup-windows)
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(gdb-get-create-buffer 'gdb-breakpoints-buffer)
|
|
|
|
|
(if gdb-show-main
|
|
|
|
|
(let ((pop-up-windows t))
|
|
|
|
|
(display-buffer (gud-find-file gdb-main-file))))))
|
2004-05-25 22:03:05 +02:00
|
|
|
|
|
2005-07-16 00:35:49 +02:00
|
|
|
|
(defun gdbmi-get-selected-frame ()
|
|
|
|
|
(if (not (member 'gdbmi-get-selected-frame gdb-pending-triggers))
|
|
|
|
|
(progn
|
|
|
|
|
(gdb-enqueue-input
|
|
|
|
|
(list "-stack-info-frame\n" 'gdbmi-frame-handler))
|
|
|
|
|
(push 'gdbmi-get-selected-frame
|
|
|
|
|
gdb-pending-triggers))))
|
|
|
|
|
|
|
|
|
|
(defun gdbmi-frame-handler ()
|
|
|
|
|
(setq gdb-pending-triggers
|
|
|
|
|
(delq 'gdbmi-get-selected-frame gdb-pending-triggers))
|
|
|
|
|
(with-current-buffer (gdb-get-create-buffer 'gdb-partial-output-buffer)
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(when (re-search-forward gdb-stack-list-frames-regexp nil t)
|
|
|
|
|
(setq gdb-frame-number (match-string 1))
|
|
|
|
|
(setq gdb-frame-address (match-string 2))
|
|
|
|
|
(setq gdb-selected-frame (match-string 3))
|
|
|
|
|
(setq gud-last-frame
|
|
|
|
|
(cons (match-string 4) (string-to-number (match-string 5))))
|
|
|
|
|
(gud-display-frame)
|
|
|
|
|
(if (gdb-get-buffer 'gdb-locals-buffer)
|
|
|
|
|
(with-current-buffer (gdb-get-buffer 'gdb-locals-buffer)
|
|
|
|
|
(setq mode-name (concat "Locals:" gdb-selected-frame))))
|
|
|
|
|
(if (gdb-get-buffer 'gdb-assembler-buffer)
|
|
|
|
|
(with-current-buffer (gdb-get-buffer 'gdb-assembler-buffer)
|
|
|
|
|
(setq mode-name (concat "Machine:" gdb-selected-frame)))))))
|
|
|
|
|
|
|
|
|
|
(defvar gdb-prompt-name-regexp "value=\"\\(.*?\\)\"")
|
|
|
|
|
|
|
|
|
|
(defun gdb-get-prompt ()
|
|
|
|
|
"Find prompt for GDB session."
|
|
|
|
|
(goto-char (point-min))
|
|
|
|
|
(setq gdb-prompt-name nil)
|
|
|
|
|
(re-search-forward gdb-prompt-name-regexp nil t)
|
|
|
|
|
(setq gdb-prompt-name (match-string 1)))
|
|
|
|
|
|
2004-05-25 22:03:05 +02:00
|
|
|
|
(provide 'gdb-mi)
|
|
|
|
|
;;; gdbmi.el ends here
|