1200 |
(defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command |
(defmacro def-gdb-auto-update-trigger (name demand-predicate gdb-command |
1201 |
output-handler) |
output-handler) |
1202 |
`(defun ,name (&optional ignored) |
`(defun ,name (&optional ignored) |
1203 |
(if (and (,demand-predicate) |
(if (and ,demand-predicate |
1204 |
(not (member ',name |
(not (member ',name |
1205 |
gdb-pending-triggers))) |
gdb-pending-triggers))) |
1206 |
(progn |
(progn |
1232 |
`(progn |
`(progn |
1233 |
(def-gdb-auto-update-trigger ,trigger-name |
(def-gdb-auto-update-trigger ,trigger-name |
1234 |
;; The demand predicate: |
;; The demand predicate: |
1235 |
(lambda () (gdb-get-buffer ',buffer-key)) |
(gdb-get-buffer ',buffer-key) |
1236 |
,gdb-command |
,gdb-command |
1237 |
,output-handler-name) |
,output-handler-name) |
1238 |
(def-gdb-auto-update-handler ,output-handler-name |
(def-gdb-auto-update-handler ,output-handler-name |
2153 |
'gdb-locals-buffer-name |
'gdb-locals-buffer-name |
2154 |
'gdb-locals-mode) |
'gdb-locals-mode) |
2155 |
|
|
2156 |
(def-gdb-auto-updated-buffer gdb-locals-buffer |
(def-gdb-auto-update-trigger gdb-invalidate-locals |
2157 |
gdb-invalidate-locals |
(gdb-get-buffer 'gdb-locals-buffer) |
2158 |
"server info locals\n" |
"server info locals\n" |
2159 |
gdb-info-locals-handler |
gdb-info-locals-handler) |
|
gdb-info-locals-custom) |
|
2160 |
|
|
2161 |
;; Abbreviate for arrays and structures. |
;; Abbreviate for arrays and structures. |
2162 |
;; These can be expanded using gud-display. |
;; These can be expanded using gud-display. |
2186 |
(set-window-point window p))))) |
(set-window-point window p))))) |
2187 |
(run-hooks 'gdb-info-locals-hook)) |
(run-hooks 'gdb-info-locals-hook)) |
2188 |
|
|
|
(defun gdb-info-locals-custom () |
|
|
nil) |
|
|
|
|
2189 |
(defvar gdb-locals-mode-map |
(defvar gdb-locals-mode-map |
2190 |
(let ((map (make-sparse-keymap))) |
(let ((map (make-sparse-keymap))) |
2191 |
(suppress-keymap map) |
(suppress-keymap map) |
2610 |
'gdb-assembler-buffer-name |
'gdb-assembler-buffer-name |
2611 |
'gdb-assembler-mode) |
'gdb-assembler-mode) |
2612 |
|
|
2613 |
(def-gdb-auto-updated-buffer gdb-assembler-buffer |
(def-gdb-auto-update-handler gdb-assembler-handler |
2614 |
gdb-invalidate-assembler |
gdb-invalidate-assembler |
2615 |
(concat gdb-server-prefix "disassemble " |
gdb-assembler-buffer |
|
(if (member gdb-frame-address '(nil "main")) nil "0x") |
|
|
gdb-frame-address "\n") |
|
|
gdb-assembler-handler |
|
2616 |
gdb-assembler-custom) |
gdb-assembler-custom) |
2617 |
|
|
2618 |
(defun gdb-assembler-custom () |
(defun gdb-assembler-custom () |