From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 18012 invoked by alias); 10 Feb 2006 04:02:43 -0000 Received: (qmail 18004 invoked by uid 22791); 10 Feb 2006 04:02:42 -0000 X-Spam-Check-By: sourceware.org Received: from viper.snap.net.nz (HELO viper.snap.net.nz) (202.37.101.8) by sourceware.org (qpsmtpd/0.31) with ESMTP; Fri, 10 Feb 2006 04:02:41 +0000 Received: from kahikatea.snap.net.nz (p202-124-115-210.snap.net.nz [202.124.115.210]) by viper.snap.net.nz (Postfix) with ESMTP id 4E90E74022D for ; Fri, 10 Feb 2006 17:02:34 +1300 (NZDT) Received: by kahikatea.snap.net.nz (Postfix, from userid 500) id 580338890; Fri, 10 Feb 2006 17:01:41 +1300 (NZDT) From: Nick Roberts MIME-Version: 1.0 Content-Type: text/plain; charset=us-ascii Content-Transfer-Encoding: 7bit Message-ID: <17388.4131.96092.609264@kahikatea.snap.net.nz> Date: Fri, 10 Feb 2006 04:02:00 -0000 To: gdb-patches@sourceware.org Subject: [PATCH] gdb-mi.el Mailing-List: contact gdb-patches-help@sourceware.org; run by ezmlm Precedence: bulk List-Subscribe: List-Archive: List-Post: List-Help: , Sender: gdb-patches-owner@sourceware.org X-SW-Source: 2006-02/txt/msg00235.txt.bz2 Emacs 22 hasn't been released yet and so is still changing. OK to commit? Nick 2005-10-27 Nick Roberts * mi/gdb-mi.el: Update to reflect changes in Emacs 22.0.50 *** gdb-mi.el 10 Feb 2006 16:57:10 +1300 1.4 --- gdb-mi.el 09 Feb 2006 23:50:50 +1300 *************** *** 43,50 **** ;; 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. ;; ;; TODO: ;; 1) Prefix MI commands with a token instead of queueing commands. --- 43,50 ---- ;; 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. + ;; 3) Doesn't list catchpoints in breakpoints buffer. ;; ;; TODO: ;; 1) Prefix MI commands with a token instead of queueing commands. *************** *** 216,221 **** --- 216,222 ---- (gdb-enqueue-input (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)) ; Force nil till fixed. *************** *** 467,473 **** (defconst gdb-break-list-regexp "number=\"\\(.*?\\)\",type=\"\\(.*?\\)\",disp=\"\\(.*?\\)\",enabled=\"\\(.\\)\",\ ! addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",line=\"\\(.*?\\)\"") (defun gdb-break-list-handler () (setq gdb-pending-triggers (delq 'gdbmi-invalidate-breakpoints --- 468,475 ---- (defconst gdb-break-list-regexp "number=\"\\(.*?\\)\",type=\"\\(.*?\\)\",disp=\"\\(.*?\\)\",enabled=\"\\(.\\)\",\ ! addr=\"\\(.*?\\)\",func=\"\\(.*?\\)\",file=\"\\(.*?\\)\",fullname=\".*?\",\ ! line=\"\\(.*?\\)\"") (defun gdb-break-list-handler () (setq gdb-pending-triggers (delq 'gdbmi-invalidate-breakpoints *************** *** 553,566 **** (end-of-line))) (if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom))) ! (defvar gdb-source-file-regexp "fullname=\"\\(.*?\\)\"") (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 ! (if (re-search-forward gdb-source-file-regexp nil t) (delete (cons bptno "File not found") gdb-location-alist) (push (cons bptno (match-string 1)) gdb-location-alist) (gdb-resync) --- 555,568 ---- (end-of-line))) (if (gdb-get-buffer 'gdb-assembler-buffer) (gdb-assembler-custom))) ! (defvar gdbmi-source-file-regexp "fullname=\"\\(.*?\\)\"") (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 ! (if (re-search-forward gdbmi-source-file-regexp nil t) (delete (cons bptno "File not found") gdb-location-alist) (push (cons bptno (match-string 1)) gdb-location-alist) (gdb-resync) *************** *** 773,779 **** "Find the source file where the program starts and display it with related buffers, if required." (goto-char (point-min)) ! (if (re-search-forward gdb-source-file-regexp nil t) (setq gdb-main-file (match-string 1))) (if gdb-many-windows (gdb-setup-windows) --- 775,781 ---- "Find the source file where the program starts and display it with related buffers, if required." (goto-char (point-min)) ! (if (re-search-forward gdbmi-source-file-regexp nil t) (setq gdb-main-file (match-string 1))) (if gdb-many-windows (gdb-setup-windows) *************** *** 785,791 **** (defun gdb-get-source-file-list () "Create list of source files for current GDB session." (goto-char (point-min)) ! (while (re-search-forward gdb-source-file-regexp nil t) (push (match-string 1) gdb-source-file-list))) (defun gdbmi-get-selected-frame () --- 787,793 ---- (defun gdb-get-source-file-list () "Create list of source files for current GDB session." (goto-char (point-min)) ! (while (re-search-forward gdbmi-source-file-regexp nil t) (push (match-string 1) gdb-source-file-list))) (defun gdbmi-get-selected-frame ()