diff options
| author | Andy Wingo <wingo@pobox.com> | 2018-08-06 13:34:48 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2018-08-06 13:34:48 +0200 |
| commit | d145b57bafc4ae46cd8b23909e0ee6053e60a645 (patch) | |
| tree | 5b61a21cea72dc0b219028fa75ab281831536ccc /module/statprof.scm | |
| parent | 455015d8e9e888f444f1a216b0287bb3980b8a40 (diff) | |
| download | guile-d145b57bafc4ae46cd8b23909e0ee6053e60a645.tar.gz | |
Minor updates for Scheme runtime (statprof, backtraces)
* 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.
Diffstat (limited to 'module/statprof.scm')
| -rw-r--r-- | module/statprof.scm | 6 |
1 files changed, 1 insertions, 5 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index 8b90e6489..a36c21540 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -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 |