mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-19 18:20:22 +02:00
Code Activity

Minor updates for Scheme runtime (statprof, backtraces)

Browse source 
* module/system/vm/frame.scm: Add a comment about a case that we need to
  handle in the future.
* module/statprof.scm (statprof-proc-call-data): Always use the program
  code as the key, even for primitives.
This commit is contained in:
Andy Wingo 2018-08-06 13:34:48 +02:00
parent 455015d8e9
commit d145b57baf
2 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

6
module/statprof.scm
View file

@ -503,11 +503,7 @@ none is available."
(error "Can't call statprof-proc-call-data while profiler is running."))
(unless (program? proc)
(error "statprof-call-data only works for VM programs"))
(let* ((code (program-code proc))
(key (if (primitive-code? code)
(procedure-name proc)
code)))
(hashv-ref (stack-samples->procedure-data state) key)))
(hashv-ref (stack-samples->procedure-data state) (program-code proc)))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; Stats