Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Sign in / Register
Toggle navigation
Menu
Open sidebar
Glasgow Haskell Compiler
GHC
Commits
6a8bdf37
Commit
6a8bdf37
authored
Dec 12, 2011
by
Simon Marlow
Browse files
add a missing error check
parent
40dd50a9
Changes
1
Hide whitespace changes
Inline
Side-by-side
rts/posix/GetTime.c
View file @
6a8bdf37
...
...
@@ -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
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment