diff options
| author | Andy Wingo <wingo@pobox.com> | 2014-02-28 10:36:21 +0100 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2014-02-28 10:36:21 +0100 |
| commit | e68ed8397debf26dcad0b0066239bed6ed9580d4 (patch) | |
| tree | 396e707560e4d5a055ccf655942f0bc2aa48aa7c /module/statprof.scm | |
| parent | 966d4bdd70a574b86f5feb21cc2925c756e39c3b (diff) | |
| download | guile-e68ed8397debf26dcad0b0066239bed6ed9580d4.tar.gz | |
statprof uses new setitimer magical usecs ability
* module/statprof.scm (sample-stack-procs): Take advantage of setitimer
allowing usecs >= 1e6.
Diffstat (limited to 'module/statprof.scm')
| -rw-r--r-- | module/statprof.scm | 8 |
1 files 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)) |