Import Upstream version 20180207
[hcoop/debian/mlton.git] / runtime / basis / Posix / ProcEnv / Times.c
1 #include "platform.h"
2
3 static struct tms Posix_ProcEnv_Times_tms;
4
5 C_Clock_t Posix_ProcEnv_Times_getUTime(void) {
6 return Posix_ProcEnv_Times_tms.tms_utime;
7 }
8
9 C_Clock_t Posix_ProcEnv_Times_getSTime(void) {
10 return Posix_ProcEnv_Times_tms.tms_stime;
11 }
12
13 C_Clock_t Posix_ProcEnv_Times_getCUTime(void) {
14 return Posix_ProcEnv_Times_tms.tms_cutime;
15 }
16
17 C_Clock_t Posix_ProcEnv_Times_getCSTime(void) {
18 return Posix_ProcEnv_Times_tms.tms_cstime;
19 }
20
21 C_Errno_t(C_Clock_t) Posix_ProcEnv_times(void) {
22 return times(&Posix_ProcEnv_Times_tms);
23 }