From f7909b9516a125bc22ffdc75b889faf5da0cda06 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Thu, 9 Mar 2017 10:48:02 +0100 Subject: [PATCH] Adapt gcprof to preemptive interrupts * module/statprof.scm (gcprof): Remove handle-interrupts trampoline from captured stacks. --- module/statprof.scm | 8 ++++---- 1 file 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)