Mercurial > emacs
comparison lisp/progmodes/gdb-ui.el @ 107196:19bad34b0d81
Accommodate change of disassemble output in GDB 7.1.
author | Nick Roberts <nickrob@snap.net.nz> |
---|---|
date | Fri, 19 Feb 2010 17:55:31 +1300 |
parents | 5df8e547a422 |
children | 33d43eba45d4 |
comparison
equal
deleted
inserted
replaced
107195:3c104aea26eb | 107196:19bad34b0d81 |
---|---|
3571 ;; window-start but keep the overlay arrow/current line visible. | 3571 ;; window-start but keep the overlay arrow/current line visible. |
3572 (defun gdb-assembler-handler () | 3572 (defun gdb-assembler-handler () |
3573 (setq gdb-pending-triggers | 3573 (setq gdb-pending-triggers |
3574 (delq 'gdb-invalidate-assembler | 3574 (delq 'gdb-invalidate-assembler |
3575 gdb-pending-triggers)) | 3575 gdb-pending-triggers)) |
3576 (let ((buf (gdb-get-buffer 'gdb-assembler-buffer))) | 3576 (let ((buf (gdb-get-buffer 'gdb-partial-output-buffer))) |
3577 (and buf | 3577 (with-current-buffer buf |
3578 (with-current-buffer buf | 3578 (goto-char (point-min)) |
3579 (let* ((window (get-buffer-window buf 0)) | 3579 ;; The disassemble command in GDB 7.1 onwards displays an overlay arrow. |
3580 (p (window-point window)) | 3580 (while (re-search-forward "\\(^ 0x\\|=> 0x\\)" nil t) |
3581 (buffer-read-only nil)) | 3581 (replace-match "0x" nil nil)))) |
3582 (erase-buffer) | 3582 (let ((buf (gdb-get-buffer 'gdb-assembler-buffer))) |
3583 (insert-buffer-substring (gdb-get-buffer-create | 3583 (and buf |
3584 (with-current-buffer buf | |
3585 (let* ((window (get-buffer-window buf 0)) | |
3586 (p (window-point window)) | |
3587 (buffer-read-only nil)) | |
3588 (erase-buffer) | |
3589 (insert-buffer-substring (gdb-get-buffer-create | |
3584 'gdb-partial-output-buffer)) | 3590 'gdb-partial-output-buffer)) |
3585 (set-window-point window p))))) | 3591 (set-window-point window p))))) |
3586 ;; put customisation here | 3592 ;; put customisation here |
3587 (gdb-assembler-custom)) | 3593 (gdb-assembler-custom)) |
3588 | 3594 |
3589 (defun gdb-assembler-custom () | 3595 (defun gdb-assembler-custom () |
3590 (let ((buffer (gdb-get-buffer 'gdb-assembler-buffer)) | 3596 (let ((buffer (gdb-get-buffer 'gdb-assembler-buffer)) |
3591 (pos 1) (address) (flag) (bptno)) | 3597 (pos 1) (address) (flag) (bptno)) |
3592 (with-current-buffer buffer | 3598 (with-current-buffer buffer |