comparison lisp/progmodes/gdb-ui.el @ 80535:106730cfdf95

(gdb-info-breakpoints-custom): Make breakpoint icons work for assembler, i.e. FILE.s, FILE.S (not disassembly). (gdb-goto-breakpoint): Likewise for visiting breakpoints. (gdb-assembler-custom): Be careful not to match other addresses.

80534:3d112d86803d

		 (if (eq flag ?y)
		     '(face font-lock-warning-face)
		   '(face font-lock-type-face)))
		(let ((bl (point))
		      (el (line-end-position)))
		  (if (re-search-forward " in \\(.*\\) at\\s-+" el t)
		      (progn
			(add-text-properties
			 (match-beginning 1) (match-end 1)
			 '(face font-lock-function-name-face))
			(looking-at "\\(\\S-+\\):\\([0-9]+\\)")
			(let ((line (match-string 2))
			      (file (match-string 1)))
			  (add-text-properties bl el
			   '(mouse-face highlight
			     help-echo "mouse-2, RET: visit breakpoint"))
			  (unless (file-exists-p file)
			    (setq file (cdr (assoc bptno gdb-location-alist))))
			  (if (and file
				   (not (string-equal file "File not found")))
			      (with-current-buffer
				  (find-file-noselect file 'nowarn)
				(gdb-init-buffer)
				;; Only want one breakpoint icon at each
				;; location.
				(save-excursion
				  (goto-line (string-to-number line))
				  (gdb-put-breakpoint-icon (eq flag ?y) bptno)))
			    (gdb-enqueue-input
			     (list
			      (concat gdb-server-prefix "list "
				      (match-string-no-properties 1) ":1\n")
			      'ignore))
			    (gdb-enqueue-input
			     (list (concat gdb-server-prefix "info source\n")
				   `(lambda () (gdb-get-location
						,bptno ,line ,flag)))))))
		    (if (re-search-forward
			 "<\\(\\(\\sw\\|[_.]\\)+\\)\\(\\+[0-9]+\\)?>"
			 el t)
			(add-text-properties
			 (match-beginning 1) (match-end 1)

  "Display the breakpoint location specified at current line."
  (interactive (list last-input-event))
  (if event (posn-set-point (event-end event)))
  (save-excursion
    (beginning-of-line 1)
    (if (looking-at "\\([0-9]+\\.?[0-9]*\\) .+ in .+ at\\s-+\\(\\S-+\\):\\([0-9]+\\)")
	(let ((bptno (match-string 1))
	      (file  (match-string 2))
	      (line  (match-string 3)))
	  (save-selected-window
	    (let* ((buffer (find-file-noselect

		(goto-line (string-to-number line))
		(set-window-point window (point))))))
      (error "No location specified."))))


;; Frames buffer.  This displays a perpetually correct bactracktrace
;; (from the command `where').
;;
;; Alas, if your stack is deep, it is costly.
;;
(defcustom gdb-max-frames 40

	  (setq flag (char-after (match-beginning 2)))
	  (setq address (match-string 3))
	  (with-current-buffer buffer
	    (save-excursion
	      (goto-char (point-min))
	      (if (search-forward address nil t)
		  (gdb-put-breakpoint-icon (eq flag ?y) bptno)))))))
    (if (not (equal gdb-pc-address "main"))
	(with-current-buffer buffer
	  (set-window-point (get-buffer-window buffer 0) pos)))))

80535:106730cfdf95

		 (if (eq flag ?y)
		     '(face font-lock-warning-face)
		   '(face font-lock-type-face)))
		(let ((bl (point))
		      (el (line-end-position)))
		  (when (re-search-forward " in \\(.*\\) at" el t)
		    (add-text-properties
		     (match-beginning 1) (match-end 1)
		     '(face font-lock-function-name-face)))
		  (if (re-search-forward ".*\\s-+\\(\\S-+\\):\\([0-9]+\\)$")
		      (let ((line (match-string 2))
			    (file (match-string 1)))
			(add-text-properties bl el
			     '(mouse-face highlight
			       help-echo "mouse-2, RET: visit breakpoint"))
			(unless (file-exists-p file)
			(setq file (cdr (assoc bptno gdb-location-alist))))
			(if (and file
				 (not (string-equal file "File not found")))
			(with-current-buffer
			    (find-file-noselect file 'nowarn)
			  (gdb-init-buffer)
			  ;; Only want one breakpoint icon at each
			  ;; location.
			  (save-excursion
			    (goto-line (string-to-number line))
			    (gdb-put-breakpoint-icon (eq flag ?y) bptno)))
			(gdb-enqueue-input
			 (list
			  (concat gdb-server-prefix "list "
				  (match-string-no-properties 1) ":1\n")
			  'ignore))
			(gdb-enqueue-input
			 (list (concat gdb-server-prefix "info source\n")
			       `(lambda () (gdb-get-location
					    ,bptno ,line ,flag)))))))
		    (if (re-search-forward
			 "<\\(\\(\\sw\\|[_.]\\)+\\)\\(\\+[0-9]+\\)?>"
			 el t)
			(add-text-properties
			 (match-beginning 1) (match-end 1)

  "Display the breakpoint location specified at current line."
  (interactive (list last-input-event))
  (if event (posn-set-point (event-end event)))
  (save-excursion
    (beginning-of-line 1)
    (if (looking-at "\\([0-9]+\\.?[0-9]*\\) .*\\s-+\\(\\S-+\\):\\([0-9]+\\)$")
	(let ((bptno (match-string 1))
	      (file  (match-string 2))
	      (line  (match-string 3)))
	  (save-selected-window
	    (let* ((buffer (find-file-noselect

		(goto-line (string-to-number line))
		(set-window-point window (point))))))
      (error "No location specified."))))


;; Frames buffer.  This displays a perpetually correct backtrace
;; (from the command `where').
;;
;; Alas, if your stack is deep, it is costly.
;;
(defcustom gdb-max-frames 40

	  (setq flag (char-after (match-beginning 2)))
	  (setq address (match-string 3))
	  (with-current-buffer buffer
	    (save-excursion
	      (goto-char (point-min))
	      (if (re-search-forward (concat "^0x0*" address) nil t)
		  (gdb-put-breakpoint-icon (eq flag ?y) bptno)))))))
    (if (not (equal gdb-pc-address "main"))
	(with-current-buffer buffer
	  (set-window-point (get-buffer-window buffer 0) pos)))))