GNU bug report logs - #27662
[PATCH] base: Fix time-monotonic Guile issue.

Previous Next

Full log

View this message in rfc822 format

From: help-debbugs <at> gnu.org (GNU bug Tracking System)
To: Mathieu Othacehe <m.othacehe <at> gmail.com>
Subject: bug#27662: closed (Re: [bug#27662] [PATCH] base: Fix
 time-monotonic Guile issue.)
Date: Wed, 12 Jul 2017 17:06:01 +0000

[Message part 1 (text/plain, inline)]

Your bug report

#27662: [PATCH] base: Fix time-monotonic Guile issue.

which was filed against the guix-patches package, has been closed.

The explanation is attached below, along with your original report.
If you require more details, please reply to 27662 <at> debbugs.gnu.org.

-- 
27662: http://debbugs.gnu.org/cgi/bugreport.cgi?bug=27662
GNU Bug Tracking System
Contact help-debbugs <at> gnu.org with problems

[Message part 2 (message/rfc822, inline)]

From: Mathieu Othacehe <m.othacehe <at> gmail.com>
To: Ludovic Courtès <ludo <at> gnu.org>
Cc: 27662-done <at> debbugs.gnu.org
Subject: Re: [bug#27662] [PATCH] base: Fix time-monotonic Guile issue.
Date: Wed, 12 Jul 2017 19:05:32 +0200

Pushed thanks !

[Message part 3 (message/rfc822, inline)]

From: Mathieu Othacehe <m.othacehe <at> gmail.com>
To: guix-patches <at> gnu.org
Cc: Mathieu Othacehe <m.othacehe <at> gmail.com>
Subject: [PATCH] base: Fix time-monotonic Guile issue.
Date: Wed, 12 Jul 2017 10:11:12 +0200

* src/cuirass/base.scm: Replace time-monotonic with time-tai with
  Guile 2.2, to avoid wrong evaluation durations.
---
 src/cuirass/base.scm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/cuirass/base.scm b/src/cuirass/base.scm
index 5e0cb0d..d0e77d9 100644
--- a/src/cuirass/base.scm
+++ b/src/cuirass/base.scm
@@ -45,6 +45,13 @@
             %package-cachedir
             %use-substitutes?))
 
+(cond-expand
+  (guile-2.2
+   ;; Guile 2.2.2 has a bug whereby 'time-monotonic' objects have seconds and
+   ;; nanoseconds swapped (fixed in Guile commit 886ac3e).  Work around it.
+   (define time-monotonic time-tai))
+  (else #t))
+
 (define %use-substitutes?
   ;; Define whether to use substitutes
   (make-parameter #f))
-- 
2.13.1

Previous Next

GNU bug tracking system
Copyright (C) 1999 Darren O. Benham, 1997,2003 nCipher Corporation Ltd, 1994-97 Ian Jackson.