mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(gdb-set-gud-minor-mode-1)

Browse Source 
(gdb-info-breakpoints-custom, gdb-delete-breakpoint)
(gdb-goto-breakpoint, gdb-source-info, gdb-get-location)
(gdb-assembler-custom): Improve regexps.
(def-gdb-auto-update-handler): Use window point to ensure it
is preserved.
This commit is contained in:
Nick Roberts 2005-05-31 20:55:48 +00:00
parent 7653a3dc42
commit 4cbf66013b
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
lisp/progmodes/gdb-ui.el
View File

@ -277,7 +277,7 @@ Also display the main routine in the disassembly buffer if present."
(defun gdb-set-gud-minor-mode-1 (buffer) (defun gdb-set-gud-minor-mode-1 (buffer)
(goto-char (point-min)) (goto-char (point-min))
(when (and (search-forward "Located in " nil t) (when (and (search-forward "Located in " nil t)
(looking-at "\\S-*") (looking-at "\\S-+")
(string-equal (buffer-file-name buffer) (string-equal (buffer-file-name buffer)
(match-string 0))) (match-string 0)))
(with-current-buffer buffer (with-current-buffer buffer
@ -1161,12 +1161,12 @@ happens to be appropriate."
(let ((buf (gdb-get-buffer ',buf-key))) (let ((buf (gdb-get-buffer ',buf-key)))
(and buf (and buf
(with-current-buffer buf (with-current-buffer buf
(let ((p (point)) (let ((p (window-point (get-buffer-window buf 0)))
(buffer-read-only nil)) (buffer-read-only nil))
(erase-buffer) (erase-buffer)
(insert-buffer-substring (gdb-get-create-buffer (insert-buffer-substring (gdb-get-create-buffer
'gdb-partial-output-buffer)) 'gdb-partial-output-buffer))
(goto-char p))))) (set-window-point (get-buffer-window buf 0) p)))))
;; put customisation here ;; put customisation here
(,custom-defun))) (,custom-defun)))
@ -1304,7 +1304,7 @@ static char *magick[] = {
(goto-char (point-min)) (goto-char (point-min))
(while (< (point) (- (point-max) 1)) (while (< (point) (- (point-max) 1))
(forward-line 1) (forward-line 1)
(if (looking-at "[^\t].*breakpoint") (if (looking-at "[^\t].*?breakpoint")
(progn (progn
(looking-at "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)") (looking-at "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)")
(setq bptno (match-string 1)) (setq bptno (match-string 1))
@ -1463,9 +1463,9 @@ static char *magick[] = {
(interactive) (interactive)
(beginning-of-line 1) (beginning-of-line 1)
(if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
(looking-at "\\([0-9]+\\).*point\\s-*\\S-*\\s-*\\(.\\)") (looking-at "\\([0-9]+\\).*?point\\s-+\\S-+\\s-+\\(.\\)")
(looking-at (looking-at
"\\([0-9]+\\)\\s-*\\S-*\\s-*\\S-*\\s-*.\\s-*\\S-*\\s-*\\S-*:[0-9]+")) "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\s-+\\S-+\\s-+\\S-+:[0-9]+"))
(gdb-enqueue-input (gdb-enqueue-input
(list (list
(concat gdb-server-prefix "delete " (match-string 1) "\n") 'ignore)) (concat gdb-server-prefix "delete " (match-string 1) "\n") 'ignore))
@ -1478,10 +1478,10 @@ static char *magick[] = {
(save-excursion (save-excursion
(beginning-of-line 1) (beginning-of-line 1)
(if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba))
(looking-at "\\([0-9]+\\) .* in .* at\\s-+\\(\\S-*\\):\\([0-9]+\\)") (looking-at "\\([0-9]+\\) .+ in .+ at\\s-+\\(\\S-+\\):\\([0-9]+\\)")
(looking-at (looking-at
"\\([0-9]+\\)\\s-*\\S-*\\s-*\\S-*\\s-*.\\s-*\\S-*\\s-*\ "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+.\\s-+\\S-+\\s-+\
\\(\\S-*\\):\\([0-9]+\\)")) \\(\\S-+\\):\\([0-9]+\\)"))
(let ((bptno (match-string 1)) (let ((bptno (match-string 1))
(file (match-string 2)) (file (match-string 2))
(line (match-string 3))) (line (match-string 3)))
@ -2301,7 +2301,7 @@ Kills the gdb buffers and resets the source buffers."
buffers." buffers."
(goto-char (point-min)) (goto-char (point-min))
(if (and (search-forward "Located in " nil t) (if (and (search-forward "Located in " nil t)
(looking-at "\\S-*")) (looking-at "\\S-+"))
(setq gdb-main-file (match-string 0))) (setq gdb-main-file (match-string 0)))
(goto-char (point-min)) (goto-char (point-min))
(if (search-forward "Includes preprocessor macro info." nil t) (if (search-forward "Includes preprocessor macro info." nil t)
@ -2319,7 +2319,7 @@ Put in buffer and place breakpoint icon."
(goto-char (point-min)) (goto-char (point-min))
(catch 'file-not-found (catch 'file-not-found
(if (search-forward "Located in " nil t) (if (search-forward "Located in " nil t)
(when (looking-at "\\S-*") (when (looking-at "\\S-+")
(delete (cons bptno "File not found") gdb-location-alist) (delete (cons bptno "File not found") gdb-location-alist)
(push (cons bptno (match-string 0)) gdb-location-alist)) (push (cons bptno (match-string 0)) gdb-location-alist))
(gdb-resync) (gdb-resync)
@ -2493,7 +2493,7 @@ BUFFER nil or omitted means use the current buffer."
(goto-char (point-min)) (goto-char (point-min))
(while (< (point) (- (point-max) 1)) (while (< (point) (- (point-max) 1))
(forward-line 1) (forward-line 1)
(if (looking-at "[^\t].*breakpoint") (if (looking-at "[^\t].*?breakpoint")
(progn (progn
(looking-at (looking-at
"\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)\\s-+0x0*\\(\\S-+\\)") "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)\\s-+0x0*\\(\\S-+\\)")