diff options
| -rw-r--r-- | otherlibs/unix/unix.ml | 7 | ||||
| -rw-r--r-- | otherlibs/unix/unix.mli | 6 |
2 files changed, 9 insertions, 4 deletions
diff --git a/otherlibs/unix/unix.ml b/otherlibs/unix/unix.ml index 1b61cdbba..060b1878e 100644 --- a/otherlibs/unix/unix.ml +++ b/otherlibs/unix/unix.ml @@ -310,9 +310,12 @@ type interval_timer = | ITIMER_VIRTUAL | ITIMER_PROF +type time_value = float + type interval_timer_status = - { it_interval: float; (* Period *) - it_value: float } (* Current value of the timer *) + { it_interval: time_value; (* Period *) + it_value: time_value } (* Current value of the timer *) + (* The type describing the status of an interval timer *) external getitimer: interval_timer -> interval_timer_status = "unix_getitimer" external setitimer: diff --git a/otherlibs/unix/unix.mli b/otherlibs/unix/unix.mli index c0fe064b6..61c04c80a 100644 --- a/otherlibs/unix/unix.mli +++ b/otherlibs/unix/unix.mli @@ -553,9 +553,11 @@ type interval_timer = is running and when the system is running on behalf of the process; it sends [SIGPROF] when expired. *) +type time_value = float + type interval_timer_status = - { it_interval: float; (* Period *) - it_value: float } (* Current value of the timer *) + { it_interval: time_value; (* Period *) + it_value: time_value } (* Current value of the timer *) (* The type describing the status of an interval timer *) external getitimer: interval_timer -> interval_timer_status = "unix_getitimer" |