diff options
| -rw-r--r-- | lisp/progmodes/gdb-ui.el | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/lisp/progmodes/gdb-ui.el b/lisp/progmodes/gdb-ui.el index 54778b7b89c..c906e101339 100644 --- a/lisp/progmodes/gdb-ui.el +++ b/lisp/progmodes/gdb-ui.el | |||
| @@ -1446,9 +1446,9 @@ static char *magick[] = { | |||
| 1446 | (save-excursion | 1446 | (save-excursion |
| 1447 | (beginning-of-line 1) | 1447 | (beginning-of-line 1) |
| 1448 | (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) | 1448 | (if (if (with-current-buffer gud-comint-buffer (eq gud-minor-mode 'gdba)) |
| 1449 | (looking-at "\\([0-9]+\\).*point\\s-*\\S-*\\s-*\\(.\\)") | 1449 | (looking-at "\\([0-9]+\\).*?point\\s-+\\S-+\\s-+\\(.\\)\\s-+") |
| 1450 | (looking-at | 1450 | (looking-at |
| 1451 | "\\([0-9]+\\)\\s-*\\S-*\\s-*\\S-*\\s-*\\(.\\)\\s-*\\S-*\\s-*\\S-*:[0-9]+")) | 1451 | "\\([0-9]+\\)\\s-+\\S-+\\s-+\\S-+\\s-+\\(.\\)\\s-+\\S-+\\s-+\\S-+:[0-9]+")) |
| 1452 | (gdb-enqueue-input | 1452 | (gdb-enqueue-input |
| 1453 | (list | 1453 | (list |
| 1454 | (concat gdb-server-prefix | 1454 | (concat gdb-server-prefix |
| @@ -2554,12 +2554,14 @@ BUFFER nil or omitted means use the current buffer." | |||
| 2554 | (defun gdb-display-assembler-buffer () | 2554 | (defun gdb-display-assembler-buffer () |
| 2555 | "Display disassembly view." | 2555 | "Display disassembly view." |
| 2556 | (interactive) | 2556 | (interactive) |
| 2557 | (setq gdb-previous-frame nil) | ||
| 2557 | (gdb-display-buffer | 2558 | (gdb-display-buffer |
| 2558 | (gdb-get-create-buffer 'gdb-assembler-buffer))) | 2559 | (gdb-get-create-buffer 'gdb-assembler-buffer))) |
| 2559 | 2560 | ||
| 2560 | (defun gdb-frame-assembler-buffer () | 2561 | (defun gdb-frame-assembler-buffer () |
| 2561 | "Display disassembly view in a new frame." | 2562 | "Display disassembly view in a new frame." |
| 2562 | (interactive) | 2563 | (interactive) |
| 2564 | (setq gdb-previous-frame nil) | ||
| 2563 | (let ((special-display-regexps (append special-display-regexps '(".*"))) | 2565 | (let ((special-display-regexps (append special-display-regexps '(".*"))) |
| 2564 | (special-display-frame-alist gdb-frame-parameters)) | 2566 | (special-display-frame-alist gdb-frame-parameters)) |
| 2565 | (display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer)))) | 2567 | (display-buffer (gdb-get-create-buffer 'gdb-assembler-buffer)))) |