diff options
author | Simon Marlow <marlowsd@gmail.com> | 2011-12-12 16:29:03 +0000 |
---|---|---|
committer | Simon Marlow <marlowsd@gmail.com> | 2011-12-13 15:02:11 +0000 |
commit | 6a8bdf37fd70de1a46b4cf122e837c47e66eb18c (patch) | |
tree | 2fba45532ec871c5e505323ee9f46e3a1df8e9f1 /rts/posix/GetTime.c | |
parent | 40dd50a9d1d92a7bd8526b54ca5fcdd1eb95d42f (diff) | |
download | haskell-6a8bdf37fd70de1a46b4cf122e837c47e66eb18c.tar.gz |
add a missing error check
Diffstat (limited to 'rts/posix/GetTime.c')
-rw-r--r-- | rts/posix/GetTime.c | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/rts/posix/GetTime.c b/rts/posix/GetTime.c index c31b319af4..16511ce2e2 100644 --- a/rts/posix/GetTime.c +++ b/rts/posix/GetTime.c @@ -60,6 +60,9 @@ Time getProcessCPUTime(void) res = clock_gettime(CLOCK_PROCESS_CPUTIME_ID, &ts); if (res == 0) { return SecondsToTime(ts.tv_sec) + NSToTime(ts.tv_nsec); + } else { + sysErrorBelch("clock_gettime"); + stg_exit(EXIT_FAILURE); } } #endif |