From e68ed8397debf26dcad0b0066239bed6ed9580d4 Mon Sep 17 00:00:00 2001 From: Andy Wingo Date: Fri, 28 Feb 2014 10:36:21 +0100 Subject: [PATCH] statprof uses new setitimer magical usecs ability * module/statprof.scm (sample-stack-procs): Take advantage of setitimer allowing usecs >= 1e6. --- module/statprof.scm | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/module/statprof.scm b/module/statprof.scm index c9deb033f..af41622c2 100644 --- a/module/statprof.scm +++ b/module/statprof.scm @@ -295,11 +295,9 @@ hit-count-call?)) (define (reset-sigprof-timer usecs) - (let ((secs (quotient usecs #e1e6)) - (usecs (remainder usecs #e1e6))) - ;; Guile's setitimer binding is terrible. - (let ((prev (setitimer ITIMER_PROF 0 0 secs usecs))) - (+ (* (caadr prev) #e1e6) (cdadr prev))))) + ;; Guile's setitimer binding is terrible. + (let ((prev (setitimer ITIMER_PROF 0 0 0 usecs))) + (+ (* (caadr prev) #e1e6) (cdadr prev)))) (define (profile-signal-handler sig) (define state (existing-profiler-state))