summaryrefslogtreecommitdiff
path: root/module/statprof.scm
diff options
context:
space:
mode:
Diffstat (limited to 'module/statprof.scm')
-rw-r--r--module/statprof.scm10
1 files changed, 1 insertions, 9 deletions
diff --git a/module/statprof.scm b/module/statprof.scm
index 33eac4468..e334c2beb 100644
--- a/module/statprof.scm
+++ b/module/statprof.scm
@@ -370,15 +370,6 @@ always collects full stacks.)"
(source-line-for-user source)
(source-column source)))
-(define (program-debug-info-printable pdi)
- (let* ((addr (program-debug-info-addr pdi))
- (name (or (and=> (program-debug-info-name pdi) symbol->string)
- (string-append "#x" (number->string addr 16))))
- (loc (and=> (find-source-for-addr addr) source->string)))
- (if loc
- (string-append name " at " loc)
- name)))
-
(define (addr->pdi addr cache)
(cond
((hashv-get-handle cache addr) => cdr)
@@ -389,6 +380,7 @@ always collects full stacks.)"
(define (addr->printable addr pdi)
(or (and=> (and=> pdi program-debug-info-name) symbol->string)
+ (and=> (primitive-code-name addr) symbol->string)
(string-append "anon #x" (number->string addr 16))))
(define (inc-call-data-cum-sample-count! cd)