comparison lisp/progmodes/gdb-mi.el @ 104697:89cb3b38143d

Nuke trailing whitespace.

104696:03d26796e3bb

(require 'gud)
(require 'json)
(require 'bindat)
(require 'speedbar)
(eval-when-compile 
  (require 'cl))

(defvar tool-bar-map)
(defvar speedbar-initial-expansion-list-name)
(defvar speedbar-frame)

(defmacro gdb-wait-for-pending (&rest body)
  "Wait until `gdb-pending-triggers' is empty and evaluate FORM.

This function checks `gdb-pending-triggers' value every
`gdb-wait-for-pending' seconds."
  (run-with-timer 
   0.5 nil
   `(lambda ()
      (if (not gdb-pending-triggers)
          (progn ,@body)
        (gdb-wait-for-pending ,@body)))))

(defun gdb-emit-signal (publisher &optional signal)
  "Call cdr for each subscriber of PUBLISHER with SIGNAL as argument."
  (dolist (subscriber (gdb-get-subscribers publisher))
    (funcall (cdr subscriber) signal)))

(defvar gdb-buf-publisher '() 
  "Used to invalidate GDB buffers by emitting a signal in
`gdb-update'.

Must be a list of pairs with cars being buffers and cdr's being
valid signal handlers.")

(defgroup gdb-buffers nil
  "GDB buffers"
  :group 'gdb
  :version "23.2")
  
(defcustom gdb-debug-log-max 128
  "Maximum size of `gdb-debug-log'.  If nil, size is unlimited."
  :group 'gdb
  :type '(choice (integer :tag "Number of elements")
		 (const   :tag "Unlimited" nil))

    (lambda ()
      (gdb-input (list "-target-detach" 'ignore))))
   nil t)

  (run-hooks 'gdb-mode-hook))
            
(defun gdb-init-1 ()
  ;; (re-)initialise
  (setq gdb-selected-frame nil
	gdb-frame-number nil
        gdb-thread-number nil

	      (buffer-string))))
       ;; remove newline for gud-tooltip-echo-area
       (substring string 0 (- (length string) 1))))
   (or gud-tooltip-echo-area tooltip-use-echo-area
       (not (display-graphic-p)))))
 
;; If expr is a macro for a function don't print because of possible dangerous
;; side-effects. Also printing a function within a tooltip generates an
;; unexpected starting annotation (phase error).
(defun gdb-tooltip-print-1 (expr)
  (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)

  (kill-all-local-variables)
  (setq buffer-read-only t)
  (buffer-disable-undo)
  ;; Delete buffer from gdb-buf-publisher when it's killed
  ;; (if it has an associated update trigger)
  (add-hook 
   'kill-buffer-hook
   (function
    (lambda ()
      (let ((trigger (gdb-rules-update-trigger
                      (gdb-current-buffer-rules))))
        (when trigger
          (gdb-delete-subscriber 
           gdb-buf-publisher
           ;; This should match gdb-add-subscriber done in
           ;; gdb-get-buffer-create
           (cons (current-buffer)
                 (gdb-bind-function-to-buffer trigger (current-buffer))))))))

(defun gdb-current-context-buffer-name (name)
  "Add thread information and asterisks to string NAME.

If `gdb-thread-number' is nil, just wrap NAME in asterisks."
  (concat "*" name
          (if (local-variable-p 'gdb-thread-number) 
              (format " (bound to thread %s)" gdb-thread-number)
            "")
          "*"))

(defun gdb-current-context-mode-name (mode)

    (gdb-init-1)
    (setq gdb-first-prompt nil))
  ;; We may need to update gdb-threads-list so we can use
  (gdb-get-buffer-create 'gdb-threads-buffer)
  ;; gdb-break-list is maintained in breakpoints handler
  (gdb-get-buffer-create 'gdb-breakpoints-buffer)  
  
  (gdb-emit-signal gdb-buf-publisher 'update)

  (gdb-get-main-selected-frame)

  (gdb-get-changed-registers)

                (member reason gdb-switch-reasons))
            (progn
              (gdb-setq-thread-number thread-id)
              (message (concat "Switched to thread " thread-id)))
          (message (format "Thread %s stopped" thread-id)))))
    
  ;; Print "(gdb)" to GUD console
  (when gdb-first-done-or-error
    (setq gdb-filter-output (concat gdb-filter-output gdb-prompt-name)))

  ;; In non-stop, we update information as soon as another thread gets

(defun gdb-line-posns (line)
  "Return a pair of LINE beginning and end positions."
  (let ((offset (1+ (- line (line-number-at-pos)))))
    (cons
     (line-beginning-position offset)
     (line-end-position offset))))    

(defmacro gdb-mark-line (line variable)
  "Set VARIABLE marker to point at beginning of LINE.

If current window has no fringes, inverse colors on LINE.

(defun gdb-pad-string (string padding)
  (format (concat "%" (number-to-string padding) "s") string))

;; gdb-table struct is a way to programmatically construct simple
;; tables. It help to reliably align columns of data in GDB buffers
;; and provides 
(defstruct 
  gdb-table
  (column-sizes nil)
  (rows nil)
  (row-properties nil)
  (right-align nil))

(def-gdb-trigger-and-handler
  gdb-invalidate-breakpoints "-break-list"
  gdb-breakpoints-list-handler gdb-breakpoints-list-handler-custom
  '(start update))

(gdb-set-buffer-rules 
 'gdb-breakpoints-buffer
 'gdb-breakpoints-buffer-name 
 'gdb-breakpoints-mode
 'gdb-invalidate-breakpoints)

(defun gdb-breakpoints-list-handler-custom ()
  (let ((breakpoints-list (gdb-get-field 
                           (gdb-json-partial-output "bkpt" "script")
                           'BreakpointTable 'body))
        (table (make-gdb-table)))
    (setq gdb-breakpoints-list nil)
    (gdb-table-add-row table '("Num" "Type" "Disp" "Enb" "Hits" "Addr" "What"))
    (dolist (breakpoint breakpoints-list)
      (add-to-list 'gdb-breakpoints-list 
                   (cons (gdb-get-field breakpoint 'number)
                         breakpoint))
      (let ((at (gdb-get-field breakpoint 'at))
            (pending (gdb-get-field breakpoint 'pending))
            (func (gdb-get-field breakpoint 'func)))

    (define-key map " " 'gdb-toggle-breakpoint)
    (define-key map "D" 'gdb-delete-breakpoint)
    ;; Don't bind "q" to kill-this-buffer as we need it for breakpoint icons.
    (define-key map "q" 'gdb-delete-frame-or-window)
    (define-key map "\r" 'gdb-goto-breakpoint)
    (define-key map "\t" '(lambda () 
                            (interactive) 
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create 'gdb-threads-buffer) t)))
    (define-key map [mouse-2] 'gdb-goto-breakpoint)
    (define-key map [follow-link] 'mouse-face)
    map))

    (define-key map (vector 'header-line 'down-mouse-1) 'ignore)
    map))

(defmacro gdb-propertize-header (name buffer help-echo mouse-face face)
  `(propertize ,name
	       'help-echo ,help-echo 
	       'mouse-face ',mouse-face
	       'face ',face
	       'local-map
	       (gdb-make-header-line-mouse-map
		'mouse-1
		(lambda (event) (interactive "e")
		  (save-selected-window
		    (select-window (posn-window (event-start event)))
                    (gdb-set-window-buffer 
                     (gdb-get-buffer-create ',buffer) t) )))))


;; uses "-thread-info". Needs GDB 7.0 onwards.
;;; Threads view

  gdb-invalidate-threads (gdb-current-context-command "-thread-info" gud-running)
  gdb-thread-list-handler gdb-thread-list-handler-custom
  '(start update update-threads))

(gdb-set-buffer-rules
 'gdb-threads-buffer 
 'gdb-threads-buffer-name
 'gdb-threads-mode
 'gdb-invalidate-threads)

(defvar gdb-threads-font-lock-keywords

    (define-key map "d" 'gdb-display-disassembly-for-thread)
    (define-key map "D" 'gdb-frame-disassembly-for-thread)
    (define-key map "i" 'gdb-interrupt-thread)
    (define-key map "c" 'gdb-continue-thread)
    (define-key map "s" 'gdb-step-thread)
    (define-key map "\t" '(lambda () 
                            (interactive) 
                            (gdb-set-window-buffer 
                             (gdb-get-buffer-create 'gdb-breakpoints-buffer) t)))
    (define-key map [mouse-2] 'gdb-select-thread)
    (define-key map [follow-link] 'mouse-face)
    map))

                   " ("
                   (let ((args (gdb-get-field thread 'frame 'args)))
                     (mapconcat
                      (lambda (arg)
                        (apply 'format `("%s=%s" ,@(gdb-get-many-fields arg 'name 'value))))
                      args ",")) 
                   ")")
                "")
              (if gdb-thread-buffer-locations
                  (gdb-frame-location (gdb-get-field thread 'frame)) "")
              (if gdb-thread-buffer-addresses

  :group 'gud
  :version "23.2")

(def-gdb-trigger-and-handler
  gdb-invalidate-memory
  (format "-data-read-memory %s %s %d %d %d" 
          gdb-memory-address
          gdb-memory-format
          gdb-memory-unit
          gdb-memory-rows
          gdb-memory-columns)

  (interactive)
  (let* ((special-display-regexps (append special-display-regexps '(".*")))
	 (special-display-frame-alist
	  `((left-fringe . 0)
            (right-fringe . 0)
            (width . 83) 
            ,@gdb-frame-parameters)))
    (display-buffer (gdb-get-buffer-create 'gdb-memory-buffer))))


;;; Disassembly view

      (when marked-line
        (let ((window (get-buffer-window (current-buffer) 0)))
          (set-window-point window (gdb-mark-line marked-line gdb-disassembly-position))))
      (setq mode-name
            (gdb-current-context-mode-name
            (concat "Disassembly: " 
                    (gdb-get-field (gdb-current-buffer-frame) 'func))))))

(defun gdb-disassembly-place-breakpoints ()
  (gdb-remove-breakpoint-icons (point-min) (point-max))
  (dolist (breakpoint gdb-breakpoints-list)

  (beginning-of-line)
  (let ((breakpoint (get-text-property (point) 'gdb-breakpoint)))
    (if breakpoint
        (gud-basic-call (concat "-break-delete " (gdb-get-field breakpoint 'number)))
      (error "Not recognized as break/watchpoint line")))))
  
(defun gdb-goto-breakpoint (&optional event)
  "Go to the location of breakpoint at current line of
breakpoints buffer."
  (interactive (list last-input-event))
  (if event (posn-set-point (event-end event)))

            (list
             (gdb-get-field frame 'level)
             "in"
             (concat
              (gdb-get-field frame 'func)
              (if gdb-stack-buffer-locations 
                  (gdb-frame-location frame) "")
              (if gdb-stack-buffer-addresses 
                  (concat " at " (gdb-get-field frame 'addr)) "")))
            `(mouse-face highlight
              help-echo "mouse-2, RET: Select frame"
              gdb-frame ,frame)))
         (insert (gdb-table-string table " ")))

          (add-text-properties 0 (length value)
                               `(mouse-face highlight
			        help-echo "mouse-2: edit value"
			        local-map ,gdb-edit-locals-map-1)
                               value))
        (gdb-table-add-row 
         table 
         (list
          (propertize type 'font-lock-face font-lock-type-face)
          (propertize name 'font-lock-face font-lock-variable-name-face)
          value)
         `(gdb-local-variable ,local))))

(defvar gdb-locals-mode-map
  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "q" 'kill-this-buffer)
    (define-key map "\t" '(lambda () 
                            (interactive) 
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create
                              'gdb-registers-buffer
                              gdb-thread-number) t)))
     map))

    (let ((register-values (gdb-get-field (gdb-json-partial-output) 'register-values))
          (table (make-gdb-table)))
      (dolist (register register-values)
        (let* ((register-number (gdb-get-field register 'number))
               (value (gdb-get-field register 'value))
               (register-name (nth (string-to-number register-number) 
                                   gdb-register-names)))
          (gdb-table-add-row
           table
           (list
            (propertize register-name 'font-lock-face font-lock-variable-name-face)

  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "\r" 'gdb-edit-register-value)
    (define-key map [mouse-2] 'gdb-edit-register-value)
    (define-key map "q" 'kill-this-buffer)
    (define-key map "\t" '(lambda () 
                            (interactive) 
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create
                              'gdb-locals-buffer
                              gdb-thread-number) t)))
    map))

                      (if (string-equal gdb-frame-number "0")
                          nil
                        '((overlay-arrow . hollow-right-triangle))))
                (setq gud-overlay-arrow-position (make-marker))
                (set-marker gud-overlay-arrow-position position))))))))
  
(defvar gdb-prompt-name-regexp "value=\"\\(.*?\\)\"")

(defun gdb-get-prompt ()
  "Find prompt for GDB session."
  (goto-char (point-min))

                   (get-window-with-predicate
                    #'(lambda (w)
                        (eq buf-type
                            (gdb-buffer-type (window-buffer w)))))))
              (if dedicated-window
                  (set-window-buffer 
                   (split-window dedicated-window nil split-horizontal) buf)
                (gdb-display-buffer buf t))))))
    (error "Null buffer")))

;;; Shared keymap initialization:

104697:89cb3b38143d

(require 'gud)
(require 'json)
(require 'bindat)
(require 'speedbar)
(eval-when-compile
  (require 'cl))

(defvar tool-bar-map)
(defvar speedbar-initial-expansion-list-name)
(defvar speedbar-frame)

(defmacro gdb-wait-for-pending (&rest body)
  "Wait until `gdb-pending-triggers' is empty and evaluate FORM.

This function checks `gdb-pending-triggers' value every
`gdb-wait-for-pending' seconds."
  (run-with-timer
   0.5 nil
   `(lambda ()
      (if (not gdb-pending-triggers)
          (progn ,@body)
        (gdb-wait-for-pending ,@body)))))

(defun gdb-emit-signal (publisher &optional signal)
  "Call cdr for each subscriber of PUBLISHER with SIGNAL as argument."
  (dolist (subscriber (gdb-get-subscribers publisher))
    (funcall (cdr subscriber) signal)))

(defvar gdb-buf-publisher '()
  "Used to invalidate GDB buffers by emitting a signal in
`gdb-update'.

Must be a list of pairs with cars being buffers and cdr's being
valid signal handlers.")

(defgroup gdb-buffers nil
  "GDB buffers"
  :group 'gdb
  :version "23.2")

(defcustom gdb-debug-log-max 128
  "Maximum size of `gdb-debug-log'.  If nil, size is unlimited."
  :group 'gdb
  :type '(choice (integer :tag "Number of elements")
		 (const   :tag "Unlimited" nil))

    (lambda ()
      (gdb-input (list "-target-detach" 'ignore))))
   nil t)

  (run-hooks 'gdb-mode-hook))

(defun gdb-init-1 ()
  ;; (re-)initialise
  (setq gdb-selected-frame nil
	gdb-frame-number nil
        gdb-thread-number nil

	      (buffer-string))))
       ;; remove newline for gud-tooltip-echo-area
       (substring string 0 (- (length string) 1))))
   (or gud-tooltip-echo-area tooltip-use-echo-area
       (not (display-graphic-p)))))

;; If expr is a macro for a function don't print because of possible dangerous
;; side-effects. Also printing a function within a tooltip generates an
;; unexpected starting annotation (phase error).
(defun gdb-tooltip-print-1 (expr)
  (with-current-buffer (gdb-get-buffer 'gdb-partial-output-buffer)

  (kill-all-local-variables)
  (setq buffer-read-only t)
  (buffer-disable-undo)
  ;; Delete buffer from gdb-buf-publisher when it's killed
  ;; (if it has an associated update trigger)
  (add-hook
   'kill-buffer-hook
   (function
    (lambda ()
      (let ((trigger (gdb-rules-update-trigger
                      (gdb-current-buffer-rules))))
        (when trigger
          (gdb-delete-subscriber
           gdb-buf-publisher
           ;; This should match gdb-add-subscriber done in
           ;; gdb-get-buffer-create
           (cons (current-buffer)
                 (gdb-bind-function-to-buffer trigger (current-buffer))))))))

(defun gdb-current-context-buffer-name (name)
  "Add thread information and asterisks to string NAME.

If `gdb-thread-number' is nil, just wrap NAME in asterisks."
  (concat "*" name
          (if (local-variable-p 'gdb-thread-number)
              (format " (bound to thread %s)" gdb-thread-number)
            "")
          "*"))

(defun gdb-current-context-mode-name (mode)

    (gdb-init-1)
    (setq gdb-first-prompt nil))
  ;; We may need to update gdb-threads-list so we can use
  (gdb-get-buffer-create 'gdb-threads-buffer)
  ;; gdb-break-list is maintained in breakpoints handler
  (gdb-get-buffer-create 'gdb-breakpoints-buffer)

  (gdb-emit-signal gdb-buf-publisher 'update)

  (gdb-get-main-selected-frame)

  (gdb-get-changed-registers)

                (member reason gdb-switch-reasons))
            (progn
              (gdb-setq-thread-number thread-id)
              (message (concat "Switched to thread " thread-id)))
          (message (format "Thread %s stopped" thread-id)))))

  ;; Print "(gdb)" to GUD console
  (when gdb-first-done-or-error
    (setq gdb-filter-output (concat gdb-filter-output gdb-prompt-name)))

  ;; In non-stop, we update information as soon as another thread gets

(defun gdb-line-posns (line)
  "Return a pair of LINE beginning and end positions."
  (let ((offset (1+ (- line (line-number-at-pos)))))
    (cons
     (line-beginning-position offset)
     (line-end-position offset))))

(defmacro gdb-mark-line (line variable)
  "Set VARIABLE marker to point at beginning of LINE.

If current window has no fringes, inverse colors on LINE.

(defun gdb-pad-string (string padding)
  (format (concat "%" (number-to-string padding) "s") string))

;; gdb-table struct is a way to programmatically construct simple
;; tables. It help to reliably align columns of data in GDB buffers
;; and provides
(defstruct
  gdb-table
  (column-sizes nil)
  (rows nil)
  (row-properties nil)
  (right-align nil))

(def-gdb-trigger-and-handler
  gdb-invalidate-breakpoints "-break-list"
  gdb-breakpoints-list-handler gdb-breakpoints-list-handler-custom
  '(start update))

(gdb-set-buffer-rules
 'gdb-breakpoints-buffer
 'gdb-breakpoints-buffer-name
 'gdb-breakpoints-mode
 'gdb-invalidate-breakpoints)

(defun gdb-breakpoints-list-handler-custom ()
  (let ((breakpoints-list (gdb-get-field
                           (gdb-json-partial-output "bkpt" "script")
                           'BreakpointTable 'body))
        (table (make-gdb-table)))
    (setq gdb-breakpoints-list nil)
    (gdb-table-add-row table '("Num" "Type" "Disp" "Enb" "Hits" "Addr" "What"))
    (dolist (breakpoint breakpoints-list)
      (add-to-list 'gdb-breakpoints-list
                   (cons (gdb-get-field breakpoint 'number)
                         breakpoint))
      (let ((at (gdb-get-field breakpoint 'at))
            (pending (gdb-get-field breakpoint 'pending))
            (func (gdb-get-field breakpoint 'func)))

    (define-key map " " 'gdb-toggle-breakpoint)
    (define-key map "D" 'gdb-delete-breakpoint)
    ;; Don't bind "q" to kill-this-buffer as we need it for breakpoint icons.
    (define-key map "q" 'gdb-delete-frame-or-window)
    (define-key map "\r" 'gdb-goto-breakpoint)
    (define-key map "\t" '(lambda ()
                            (interactive)
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create 'gdb-threads-buffer) t)))
    (define-key map [mouse-2] 'gdb-goto-breakpoint)
    (define-key map [follow-link] 'mouse-face)
    map))

    (define-key map (vector 'header-line 'down-mouse-1) 'ignore)
    map))

(defmacro gdb-propertize-header (name buffer help-echo mouse-face face)
  `(propertize ,name
	       'help-echo ,help-echo
	       'mouse-face ',mouse-face
	       'face ',face
	       'local-map
	       (gdb-make-header-line-mouse-map
		'mouse-1
		(lambda (event) (interactive "e")
		  (save-selected-window
		    (select-window (posn-window (event-start event)))
                    (gdb-set-window-buffer
                     (gdb-get-buffer-create ',buffer) t) )))))


;; uses "-thread-info". Needs GDB 7.0 onwards.
;;; Threads view

  gdb-invalidate-threads (gdb-current-context-command "-thread-info" gud-running)
  gdb-thread-list-handler gdb-thread-list-handler-custom
  '(start update update-threads))

(gdb-set-buffer-rules
 'gdb-threads-buffer
 'gdb-threads-buffer-name
 'gdb-threads-mode
 'gdb-invalidate-threads)

(defvar gdb-threads-font-lock-keywords

    (define-key map "d" 'gdb-display-disassembly-for-thread)
    (define-key map "D" 'gdb-frame-disassembly-for-thread)
    (define-key map "i" 'gdb-interrupt-thread)
    (define-key map "c" 'gdb-continue-thread)
    (define-key map "s" 'gdb-step-thread)
    (define-key map "\t" '(lambda ()
                            (interactive)
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create 'gdb-breakpoints-buffer) t)))
    (define-key map [mouse-2] 'gdb-select-thread)
    (define-key map [follow-link] 'mouse-face)
    map))

                   " ("
                   (let ((args (gdb-get-field thread 'frame 'args)))
                     (mapconcat
                      (lambda (arg)
                        (apply 'format `("%s=%s" ,@(gdb-get-many-fields arg 'name 'value))))
                      args ","))
                   ")")
                "")
              (if gdb-thread-buffer-locations
                  (gdb-frame-location (gdb-get-field thread 'frame)) "")
              (if gdb-thread-buffer-addresses

  :group 'gud
  :version "23.2")

(def-gdb-trigger-and-handler
  gdb-invalidate-memory
  (format "-data-read-memory %s %s %d %d %d"
          gdb-memory-address
          gdb-memory-format
          gdb-memory-unit
          gdb-memory-rows
          gdb-memory-columns)

  (interactive)
  (let* ((special-display-regexps (append special-display-regexps '(".*")))
	 (special-display-frame-alist
	  `((left-fringe . 0)
            (right-fringe . 0)
            (width . 83)
            ,@gdb-frame-parameters)))
    (display-buffer (gdb-get-buffer-create 'gdb-memory-buffer))))


;;; Disassembly view

      (when marked-line
        (let ((window (get-buffer-window (current-buffer) 0)))
          (set-window-point window (gdb-mark-line marked-line gdb-disassembly-position))))
      (setq mode-name
            (gdb-current-context-mode-name
            (concat "Disassembly: "
                    (gdb-get-field (gdb-current-buffer-frame) 'func))))))

(defun gdb-disassembly-place-breakpoints ()
  (gdb-remove-breakpoint-icons (point-min) (point-max))
  (dolist (breakpoint gdb-breakpoints-list)

  (beginning-of-line)
  (let ((breakpoint (get-text-property (point) 'gdb-breakpoint)))
    (if breakpoint
        (gud-basic-call (concat "-break-delete " (gdb-get-field breakpoint 'number)))
      (error "Not recognized as break/watchpoint line")))))

(defun gdb-goto-breakpoint (&optional event)
  "Go to the location of breakpoint at current line of
breakpoints buffer."
  (interactive (list last-input-event))
  (if event (posn-set-point (event-end event)))

            (list
             (gdb-get-field frame 'level)
             "in"
             (concat
              (gdb-get-field frame 'func)
              (if gdb-stack-buffer-locations
                  (gdb-frame-location frame) "")
              (if gdb-stack-buffer-addresses
                  (concat " at " (gdb-get-field frame 'addr)) "")))
            `(mouse-face highlight
              help-echo "mouse-2, RET: Select frame"
              gdb-frame ,frame)))
         (insert (gdb-table-string table " ")))

          (add-text-properties 0 (length value)
                               `(mouse-face highlight
			        help-echo "mouse-2: edit value"
			        local-map ,gdb-edit-locals-map-1)
                               value))
        (gdb-table-add-row
         table
         (list
          (propertize type 'font-lock-face font-lock-type-face)
          (propertize name 'font-lock-face font-lock-variable-name-face)
          value)
         `(gdb-local-variable ,local))))

(defvar gdb-locals-mode-map
  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "q" 'kill-this-buffer)
    (define-key map "\t" '(lambda ()
                            (interactive)
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create
                              'gdb-registers-buffer
                              gdb-thread-number) t)))
     map))

    (let ((register-values (gdb-get-field (gdb-json-partial-output) 'register-values))
          (table (make-gdb-table)))
      (dolist (register register-values)
        (let* ((register-number (gdb-get-field register 'number))
               (value (gdb-get-field register 'value))
               (register-name (nth (string-to-number register-number)
                                   gdb-register-names)))
          (gdb-table-add-row
           table
           (list
            (propertize register-name 'font-lock-face font-lock-variable-name-face)

  (let ((map (make-sparse-keymap)))
    (suppress-keymap map)
    (define-key map "\r" 'gdb-edit-register-value)
    (define-key map [mouse-2] 'gdb-edit-register-value)
    (define-key map "q" 'kill-this-buffer)
    (define-key map "\t" '(lambda ()
                            (interactive)
                            (gdb-set-window-buffer
                             (gdb-get-buffer-create
                              'gdb-locals-buffer
                              gdb-thread-number) t)))
    map))

                      (if (string-equal gdb-frame-number "0")
                          nil
                        '((overlay-arrow . hollow-right-triangle))))
                (setq gud-overlay-arrow-position (make-marker))
                (set-marker gud-overlay-arrow-position position))))))))

(defvar gdb-prompt-name-regexp "value=\"\\(.*?\\)\"")

(defun gdb-get-prompt ()
  "Find prompt for GDB session."
  (goto-char (point-min))

                   (get-window-with-predicate
                    #'(lambda (w)
                        (eq buf-type
                            (gdb-buffer-type (window-buffer w)))))))
              (if dedicated-window
                  (set-window-buffer
                   (split-window dedicated-window nil split-horizontal) buf)
                (gdb-display-buffer buf t))))))
    (error "Null buffer")))

;;; Shared keymap initialization: