espressif/binutils-gdb
1
0
Fork 0
mirror of https://github.com/espressif/binutils-gdb.git synced 2025-06-28 15:18:37 +08:00
Code Issues Packages Projects Releases Wiki Activity

Update to reflect changes in Emacs 22.0.50.

Browse Source
This commit is contained in:
Nick Roberts
2006-02-10 06:18:09 +00:00
parent ff800d76d3
commit b6637a13d5
1 changed files with 9 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
gdb/mi/gdb-mi.el
View File

@ -4,7 +4,7 @@
;; Maintainer: Nick Roberts <nickrob@gnu.org> ;; Maintainer: Nick Roberts <nickrob@gnu.org>
;; Keywords: unix, tools ;; Keywords: unix, tools
;; Copyright (C) 2004, 2005 Free Software Foundation, Inc. ;; Copyright (C) 2004, 2005, 2006 Free Software Foundation, Inc.
;; This file is part of GNU GDB. ;; This file is part of GNU GDB.
@ -43,8 +43,8 @@
;; GUD buffer you must not use run, step, next or continue etc but their MI ;; 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 ;; counterparts through gud-run, gud-step etc, e.g clicking on the appropriate
;; icon in the toolbar. ;; icon in the toolbar.
;;
;; 2) Some commands send extra prompts to the GUD buffer. ;; 2) Some commands send extra prompts to the GUD buffer.
;; 3) Doesn't list catchpoints in breakpoints buffer.
;; ;;
;; TODO: ;; TODO:
;; 1) Prefix MI commands with a token instead of queueing commands. ;; 1) Prefix MI commands with a token instead of queueing commands.
@ -216,6 +216,7 @@ detailed description of this mode.
(gdb-enqueue-input (gdb-enqueue-input
(list "-gdb-show prompt\n" 'gdb-get-prompt)) (list "-gdb-show prompt\n" 'gdb-get-prompt))
;; ;;
(setq gdb-locals-font-lock-keywords gdb-locals-font-lock-keywords-2)
(run-hooks 'gdbmi-mode-hook)) (run-hooks 'gdbmi-mode-hook))
; Force nil till fixed. ; Force nil till fixed.
@ -467,7 +468,8 @@ value=\\(\".*?\"\\),type=\"\\(.+?\\)\"}")
(defconst gdb-break-list-regexp (defconst gdb-break-list-regexp
"number=\"\\(.*?\\)\",type=\"\\(.*?\\)\",disp=\"\\(.*?\\)\",enabled=\"\\(.\\)\",\ "number=\"\\(.*?\\)\",type=\"\\(.*?\\)\",disp=\"\\(.*?\\)\",enabled=\"\\(.\\)\",\
addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",line=\"\\(.*?\\)\"") addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",fullname=\".*?\",\
line=\"\\(.*?\\)\"")
(defun gdb-break-list-handler () (defun gdb-break-list-handler ()
(setq gdb-pending-triggers (delq 'gdbmi-invalidate-breakpoints (setq gdb-pending-triggers (delq 'gdbmi-invalidate-breakpoints
@ -553,14 +555,14 @@ addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",line=\"\\(.*?\\)\"")
(end-of-line))) (end-of-line)))
(if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom))) (if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom)))
(defvar gdb-source-file-regexp "fullname=\"\\(.*?\\)\"") (defvar gdbmi-source-file-regexp "fullname=\"\\(.*?\\)\"")
(defun gdbmi-get-location (bptno line flag) (defun gdbmi-get-location (bptno line flag)
"Find the directory containing the relevant source file. "Find the directory containing the relevant source file.
Put in buffer and place breakpoint icon." Put in buffer and place breakpoint icon."
(goto-char (point-min)) (goto-char (point-min))
(catch 'file-not-found (catch 'file-not-found
(if (re-search-forward gdb-source-file-regexp nil t) (if (re-search-forward gdbmi-source-file-regexp nil t)
(delete (cons bptno "File not found") gdb-location-alist) (delete (cons bptno "File not found") gdb-location-alist)
(push (cons bptno (match-string 1)) gdb-location-alist) (push (cons bptno (match-string 1)) gdb-location-alist)
(gdb-resync) (gdb-resync)
@ -773,7 +775,7 @@ file=\".*?\",fullname=\"\\(.*?\\)\",line=\"\\(.*?\\)\"")
"Find the source file where the program starts and display it with related "Find the source file where the program starts and display it with related
buffers, if required." buffers, if required."
(goto-char (point-min)) (goto-char (point-min))
(if (re-search-forward gdb-source-file-regexp nil t) (if (re-search-forward gdbmi-source-file-regexp nil t)
(setq gdb-main-file (match-string 1))) (setq gdb-main-file (match-string 1)))
(if gdb-many-windows (if gdb-many-windows
(gdb-setup-windows) (gdb-setup-windows)
@ -785,7 +787,7 @@ buffers, if required."
(defun gdb-get-source-file-list () (defun gdb-get-source-file-list ()
"Create list of source files for current GDB session." "Create list of source files for current GDB session."
(goto-char (point-min)) (goto-char (point-min))
(while (re-search-forward gdb-source-file-regexp nil t) (while (re-search-forward gdbmi-source-file-regexp nil t)
(push (match-string 1) gdb-source-file-list))) (push (match-string 1) gdb-source-file-list)))
(defun gdbmi-get-selected-frame () (defun gdbmi-get-selected-frame ()