Lines Matching defs:registers
217 (defvar gdb-changed-registers nil
1454 (gdb-invalidate-registers)
1455 (gdb-get-changed-registers)
1456 (gdb-invalidate-registers-1))
1482 '(gdb-stack-buffer gdb-locals-buffer gdb-registers-buffer gdb-threads-buffer))
2280 (defcustom gdb-all-registers nil
2281 "Non-nil means include floating-point registers."
2286 (gdb-set-buffer-rules 'gdb-registers-buffer
2287 'gdb-registers-buffer-name
2288 'gdb-registers-mode)
2290 (def-gdb-auto-updated-buffer gdb-registers-buffer
2291 gdb-invalidate-registers
2293 gdb-server-prefix "info " (if gdb-all-registers "all-") "registers\n")
2294 gdb-info-registers-handler
2295 gdb-info-registers-custom)
2297 (defun gdb-info-registers-custom ()
2298 (with-current-buffer (gdb-get-buffer 'gdb-registers-buffer)
2326 (defvar gdb-registers-mode-map
2331 (define-key map " " 'gdb-all-registers)
2335 (defun gdb-registers-mode ()
2336 "Major mode for gdb registers.
2338 \\{gdb-registers-mode-map}"
2340 (setq major-mode 'gdb-registers-mode)
2343 (use-local-map gdb-registers-mode-map)
2344 (run-mode-hooks 'gdb-registers-mode-hook)
2347 (if gdb-all-registers (setq mode-name "Registers:All"))
2348 'gdb-invalidate-registers)
2349 'gdb-invalidate-registers-1))
2351 (defun gdb-registers-buffer-name ()
2353 (concat "*registers of " (gdb-get-target-string) "*")))
2355 (defun gdb-display-registers-buffer ()
2359 (gdb-get-buffer-create 'gdb-registers-buffer) t))
2361 (defun gdb-frame-registers-buffer ()
2366 (display-buffer (gdb-get-buffer-create 'gdb-registers-buffer))))
2368 (defun gdb-all-registers ()
2369 "Toggle the display of floating-point registers (pre GDB 6.4 only)."
2372 (if gdb-all-registers
2374 (setq gdb-all-registers nil)
2375 (with-current-buffer (gdb-get-buffer-create 'gdb-registers-buffer)
2377 (setq gdb-all-registers t)
2378 (with-current-buffer (gdb-get-buffer-create 'gdb-registers-buffer)
2380 (message (format "Display of floating-point registers %sabled"
2381 (if gdb-all-registers "en" "dis")))
2382 (gdb-invalidate-registers)))
2846 (define-key menu [registers] '("Registers" . gdb-display-registers-buffer))
2864 (define-key menu [registers] '("Registers" . gdb-frame-registers-buffer))
3465 (gdb-set-buffer-rules 'gdb-registers-buffer
3466 'gdb-registers-buffer-name
3467 'gdb-registers-mode)
3469 (def-gdb-auto-update-trigger gdb-invalidate-registers-1
3470 (gdb-get-buffer 'gdb-registers-buffer)
3480 (setq gdb-pending-triggers (delq 'gdb-invalidate-registers-1
3485 (with-current-buffer (gdb-get-buffer 'gdb-registers-buffer)
3497 (if (member (match-string 1) gdb-changed-registers)
3503 (let ((buf (gdb-get-buffer 'gdb-registers-buffer)))
3516 (with-current-buffer (gdb-get-buffer 'gdb-registers-buffer)
3525 (unless (string-equal (match-string 0) "No registers.")
3534 (defun gdb-get-changed-registers ()
3535 (if (and (gdb-get-buffer 'gdb-registers-buffer)
3536 (not (member 'gdb-get-changed-registers gdb-pending-triggers)))
3541 "server interpreter mi -data-list-changed-registers\n"
3542 "-data-list-changed-registers\n")
3543 'gdb-get-changed-registers-handler))
3544 (push 'gdb-get-changed-registers gdb-pending-triggers))))
3548 (defun gdb-get-changed-registers-handler ()
3550 (delq 'gdb-get-changed-registers gdb-pending-triggers))
3551 (setq gdb-changed-registers nil)
3554 (push (match-string 1) gdb-changed-registers)))