Test return value of clock_gettime() for errors.

I don't want to fall back to gettimeofday(), because that might have a
different absolute value.

1 files changed, 13 insertions, 3 deletions

diff --git a/rts/posix/GetTime.c b/rts/posix/GetTime.c
index bcee6ce127..380e22931b 100644
--- a/rts/posix/GetTime.c
+++ b/rts/posix/GetTime.c
@@ -81,21 +81,31 @@ Time getProcessCPUTime(void)
 
 StgWord64 getMonotonicNSec(void)
 {
-#ifdef HAVE_CLOCK_GETTIME
+#if defined(HAVE_CLOCK_GETTIME)
     struct timespec ts;
+    int res;
 
-    clock_gettime(CLOCK_ID, &ts);
+    res = clock_gettime(CLOCK_ID, &ts);
+    if (res != 0) {
+        sysErrorBelch("clock_gettime");
+        stg_exit(EXIT_FAILURE);
+    }
     return (StgWord64)ts.tv_sec * 1000000000 +
            (StgWord64)ts.tv_nsec;
+
 #elif defined(darwin_HOST_OS)
+
     uint64_t time = mach_absolute_time();
     return (time * timer_scaling_factor_numer) / timer_scaling_factor_denom;
-#else
+
+#else // use gettimeofday()
+
     struct timeval tv;
 
     gettimeofday(&tv, (struct timezone *) NULL);
     return (StgWord64)tv.tv_sec * 1000000000 +
            (StgWord64)tv.tv_usec * 1000;
+
 #endif
 }