diff options
Diffstat (limited to 'module/statprof.scm')
-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) |