mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-30 06:50:31 +02:00
Code Activity

cleanups to debugger

Browse source 
* module/system/vm/debug.scm (debugger-repl): Remove the `bindings'
  command, it is superseded by `locals'.
  Update the TODO.
  (debug-pre-unwind-handler): Remove scary "beta" warning. Already being
  able to bt #:width 1000 #:full? #t is quite useful...
This commit is contained in:
Andy Wingo 2009-12-29 21:26:48 +01:00
parent 0c2a05c321
commit 441891f376
1 changed files with 2 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

12
module/system/vm/debug.scm
View file

@ -263,10 +263,6 @@ With an argument, select a frame by index, then show it."
(format #t "No such frame.~%")))) (format #t "No such frame.~%"))))
(else (show-frame)))) (else (show-frame))))
(define-command ((commands bindings))
"Show some information about locally-bound variables in the selected frame."
(format #t "~a\n" (frame-bindings cur)))
(define-command ((commands locals)) (define-command ((commands locals))
"Show locally-bound variables in the selected frame." "Show locally-bound variables in the selected frame."
(print-locals cur)) (print-locals cur))
@ -345,12 +341,10 @@ With an argument, select a frame by index, then show it."
(apply values args)))))) (apply values args))))))
;; things this debugger should do: ;; TODO:
;; ;;
;; eval expression in context of frame ;; eval expression in context of frame
;; set local variable in frame ;; set local variable in frame
;; display backtrace
;; display full backtrace
;; step until next instruction ;; step until next instruction
;; step until next function call/return ;; step until next function call/return
;; step until return from frame ;; step until return from frame
@ -363,7 +357,6 @@ With an argument, select a frame by index, then show it."
;; display a truncated backtrace ;; display a truncated backtrace
;; go to a frame by index ;; go to a frame by index
;; (reuse gdb commands perhaps) ;; (reuse gdb commands perhaps)
;; help
;; disassemble a function ;; disassemble a function
;; disassemble the current function ;; disassemble the current function
;; inspect any object ;; inspect any object
@ -374,8 +367,7 @@ With an argument, select a frame by index, then show it."
;; herald ;; herald
(format #t "Throw to key `~a' with args `~s'. (format #t "Throw to key `~a' with args `~s'.
Entering the debugger. Type `bt' for a backtrace or `c' to continue. Entering the debugger. Type `bt' for a backtrace or `c' to continue.
This debugger implementation is temporary. See system/vm/debug.scm for " key args)
some ideas on how to make it better.\n" key args)
(run-debugger (stack-ref (make-stack #t) 1)) (run-debugger (stack-ref (make-stack #t) 1))
(save-stack 1) (save-stack 1)
(apply throw key args)) (apply throw key args))