[Guile-commits] 01/01: Adapt gcprof to preemptive interrupts

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit f7909b9516a125bc22ffdc75b889faf5da0cda06
Author: Andy Wingo <address@hidden>
Date:   Thu Mar 9 10:48:02 2017 +0100

    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 a58fc6d..fe605e0 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)