mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

add a statprof fixme

Browse source 
* module/statprof.scm: Add a fixme.
This commit is contained in:
Andy Wingo 2014-02-21 22:18:02 +01:00
parent 4d0c358b4c
commit d20dd74eca
1 changed files with 5 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
module/statprof.scm
View file

@ -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)