summaryrefslogtreecommitdiff
path: root/module/statprof.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/statprof.scm')
-rw-r--r--module/statprof.scm5
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)