[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Guile-commits] 01/01: Adapt gcprof to preemptive interrupts
From: |
Andy Wingo |
Subject: |
[Guile-commits] 01/01: Adapt gcprof to preemptive interrupts |
Date: |
Thu, 9 Mar 2017 04:48:56 -0500 (EST) |
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)