mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

Adapt gcprof to preemptive interrupts

Browse source 
* module/statprof.scm (gcprof): Remove handle-interrupts trampoline from
  captured stacks.
This commit is contained in:
Andy Wingo 2017-03-09 10:48:02 +01:00
parent e7d3414079
commit f7909b9516
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
module/statprof.scm
View file

@ -956,10 +956,10 @@ times."
(set-inside-profiler?! state #t) (set-inside-profiler?! state #t)
(let ((stop-time (get-internal-run-time)) (let ((stop-time (get-internal-run-time))
;; Cut down to gc-callback, and then one before (the ;; Cut down to gc-callback, and then two more (the
;; after-gc async). See the note in profile-signal-handler ;; after-gc async and the handle-interrupts trampoline).
;; also. ;; See the note in profile-signal-handler also.
(stack (or (make-stack #t gc-callback (outer-cut state) 1) (stack (or (make-stack #t gc-callback (outer-cut state) 2)
(pk 'what! (make-stack #t))))) (pk 'what! (make-stack #t)))))
(sample-stack-procs state stack) (sample-stack-procs state stack)
(accumulate-time state stop-time) (accumulate-time state stop-time)