branch: externals/dape
commit bbed2e367d5aef58518b14eefafe76993489a61e
Author: Daniel Pettersson <dan...@dpettersson.net>
Commit: Daniel Pettersson <dan...@dpettersson.net>
Add select stack frame to future disassemble history
---
dape.el | 11 ++++++++---
1 file changed, 8 insertions(+), 3 deletions(-)
diff --git a/dape.el b/dape.el
index 75f938d257..6aefdecb48 100644
--- a/dape.el
+++ b/dape.el
@@ -2906,9 +2906,14 @@ of memory read."
"View disassemble of instructions at ADDRESS."
(interactive
(list (string-trim
- (read-string "Address: " nil nil
- (when-let* ((number (thing-at-point 'number)))
- (format "0x%08x" number))))))
+ (read-string
+ "Address: " nil nil
+ `(,@(when-let* ((number (thing-at-point 'number)))
+ (list (format "0x%08x" number)))
+ ,@(when-let* ((conn (dape--live-connection 'stopped t))
+ (address (plist-get (dape--current-stack-frame conn)
+ :instructionPointerReference)))
+ (list address)))))))
(if-let* ((conn (dape--live-connection 'stopped))
((not (dape--capable-p conn :supportsDisassembleRequest))))
(user-error "Adapter does not support disassemble")
