mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 13:00:26 +02:00
Code Activity

remove (system vm debug)

Browse source 
* module/system/vm/debug.scm: Remove.
* module/Makefile.am: Update.

* module/system/repl/debug.scm: Add some TODOs and a commented-out
  function here.
This commit is contained in:
Andy Wingo 2010-07-16 13:19:33 +02:00
parent ca9300a255
commit 2e67eb6f2d
3 changed files with 33 additions and 524 deletions
Download patch file Download diff file Expand all files Collapse all files

34
module/system/repl/debug.scm
View file

@ -34,7 +34,29 @@
print-locals print-frame print-frames frame->module
stack->vector narrow-stack->vector))
;;; FIXME: add more repl meta-commands: continue, inspect, etc...
;; TODO:
;;
;; Update this TODO list ;)
;; partial meta-commands (,qui -> ,quit)
;; eval expression in context of frame
;; set local variable in frame
;; step until next instruction
;; step until next function call/return
;; step until return from frame
;; step until different source line
;; step until greater source line
;; watch expression
;; break on a function
;; remove breakpoints
;; set printing width
;; display a truncated backtrace
;; go to a frame by index
;; (reuse gdb commands perhaps)
;; disassemble a function
;; disassemble the current function
;; inspect any object
;; hm, trace via reassigning global vars. tricksy.
;; (state associated with vm ?)
;;;
;;; Debugger
@ -175,3 +197,13 @@
(define (narrow-stack->vector stack . args)
(stack->vector (apply make-stack (stack-ref stack 0) args)))
;; (define (debug)
;; (run-debugger
;; (narrow-stack->vector
;; (make-stack #t)
;; ;; Narrow the `make-stack' frame and the `debug' frame
;; 2
;; ;; Narrow the end of the stack to the most recent start-stack.
;; (and (pair? (fluid-ref %stacks))
;; (cdar (fluid-ref %stacks))))))