From 054ebfe4cd150cb6d74b26e3e87ea7a32c2b62fc Mon Sep 17 00:00:00 2001 From: Gustaf Waldemarson Date: Thu, 21 Feb 2019 13:52:21 +0100 Subject: [PATCH 2/2] gdb-mi.el: Use `-stack-list-variables`. use `-stack-list-variables` instead of the deprecated `-stack-list-locals`. Additionally, this allow function arguments to be displayed in the locals buffer. --- lisp/progmodes/gdb-mi.el | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/lisp/progmodes/gdb-mi.el b/lisp/progmodes/gdb-mi.el index 6fb09d1..683bfdb 100644 --- a/lisp/progmodes/gdb-mi.el +++ b/lisp/progmodes/gdb-mi.el @@ -4108,7 +4108,7 @@ gdb-select-frame ;; uses "-stack-list-locals --simple-values". Needs GDB 6.1 onwards. (def-gdb-trigger-and-handler gdb-invalidate-locals - (concat (gdb-current-context-command "-stack-list-locals") + (concat (gdb-current-context-command "-stack-list-variables") " --simple-values") gdb-locals-handler gdb-locals-handler-custom '(start update)) @@ -4123,7 +4123,7 @@ gdb-select-frame ;; Retrieve the values of all variables before invalidating locals. (def-gdb-trigger-and-handler gdb-locals-values - (concat (gdb-current-context-command "-stack-list-locals") + (concat (gdb-current-context-command "-stack-list-variables") " --all-values") gdb-locals-values-handler gdb-locals-values-handler-custom '(start update)) @@ -4157,7 +4157,7 @@ gdb-locals-values-table (defun gdb-locals-values-handler-custom () "Store the values of local variables in `gdb-locals-value-map'." - (let ((locals-list (bindat-get-field (gdb-json-partial-output) 'locals))) + (let ((locals-list (bindat-get-field (gdb-json-partial-output) 'variables))) (dolist (local locals-list) (let ((name (bindat-get-field local 'name)) (value (bindat-get-field local 'value))) @@ -4207,7 +4207,7 @@ gdb-edit-locals-value ;; Complex data types are looked up in `gdb-locals-values-table'. (defun gdb-locals-handler-custom () "Handler to rebuild the local variables table buffer." - (let ((locals-list (bindat-get-field (gdb-json-partial-output) 'locals)) + (let ((locals-list (bindat-get-field (gdb-json-partial-output) 'variables)) (table (make-gdb-table))) (dolist (local locals-list) (let ((name (bindat-get-field local 'name)) -- 2.7.4