diff options
| author | Andy Wingo <wingo@pobox.com> | 2017-03-09 10:48:02 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2017-03-09 10:48:02 +0100 |
| commit | f7909b9516a125bc22ffdc75b889faf5da0cda06 (patch) | |
| tree | 21d222ab504d932d4195623fbdc377fec973b8a0 | |
| parent | e7d341407950d504e80f92588d08f3a7c81bee37 (diff) | |
| download | guile-f7909b9516a125bc22ffdc75b889faf5da0cda06.tar.gz | |
Adapt gcprof to preemptive interrupts
* module/statprof.scm (gcprof): Remove handle-interrupts trampoline from
captured stacks.
| -rw-r--r-- | module/statprof.scm | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/module/statprof.scm b/module/statprof.scm index a58fc6da6..fe605e0e8 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -956,10 +956,10 @@ times." (set-inside-profiler?! state #t) (let ((stop-time (get-internal-run-time)) - ;; Cut down to gc-callback, and then one before (the - ;; after-gc async). See the note in profile-signal-handler - ;; also. - (stack (or (make-stack #t gc-callback (outer-cut state) 1) + ;; Cut down to gc-callback, and then two more (the + ;; after-gc async and the handle-interrupts trampoline). + ;; See the note in profile-signal-handler also. + (stack (or (make-stack #t gc-callback (outer-cut state) 2) (pk 'what! (make-stack #t))))) (sample-stack-procs state stack) (accumulate-time state stop-time) |