diff options
author | Andy Wingo <wingo@pobox.com> | 2014-02-21 22:18:02 +0100 |
---|---|---|
committer | Andy Wingo <wingo@pobox.com> | 2014-02-21 22:18:02 +0100 |
commit | d20dd74ecab6d5be216c97d28cb654d4446dfba5 (patch) | |
tree | 509ddc7a49668f72b872b13249afe240a5b3a4b6 | |
parent | 4d0c358b4cc15977b553940e2bb57f981896afe5 (diff) | |
download | guile-d20dd74ecab6d5be216c97d28cb654d4446dfba5.tar.gz |
add a statprof fixme
* module/statprof.scm: Add a fixme.
-rw-r--r-- | module/statprof.scm | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index fcedf2c63..85665f076 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -248,6 +248,11 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;; SIGPROF handler +;; FIXME: Instead of this messing about with hash tables and +;; frame-procedure, just record the stack of return addresses into a +;; growable vector, and resolve them to procedures when analyzing +;; instead of at collection time. +;; (define (sample-stack-procs stack) (let ((stacklen (stack-length stack)) (hit-count-call? #f) |