summaryrefslogtreecommitdiff
path: root/otherlibs/unix/times.c
diff options
context:
space:
mode:
Diffstat (limited to 'otherlibs/unix/times.c')
-rw-r--r--otherlibs/unix/times.c29
1 files changed, 0 insertions, 29 deletions
diff --git a/otherlibs/unix/times.c b/otherlibs/unix/times.c
deleted file mode 100644
index a64ec327c2..0000000000
--- a/otherlibs/unix/times.c
+++ /dev/null
@@ -1,29 +0,0 @@
-#include <mlvalues.h>
-#include <alloc.h>
-#include <memory.h>
-#include "unix.h"
-#include <sys/types.h>
-#include <sys/times.h>
-
-value unix_times() /* ML */
-{
- value res;
- struct tms buffer;
- int i;
- Push_roots(t,4);
-
-#ifndef HZ
-#define HZ 60
-#endif
-
- times(&buffer);
- t[0] = copy_double((double) buffer.tms_utime / HZ);
- t[1] = copy_double((double) buffer.tms_stime / HZ);
- t[2] = copy_double((double) buffer.tms_cutime / HZ);
- t[3] = copy_double((double) buffer.tms_cstime / HZ);
- res = alloc_tuple(4);
- for (i = 0; i < 4; i++)
- Field(res, i) = t[i];
- Pop_roots();
- return res;
-}