From 565ab80e025cc7c3ee4ed95ed0721c85d3132ca4 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Thu, 18 Jul 1996 08:33:06 +0000 Subject: Type des interval_timers revu pour desactiver l'unboxing flottant du compilateur natif. git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@933 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- otherlibs/unix/unix.ml | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) (limited to 'otherlibs/unix/unix.ml') 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: -- cgit v1.2.3-70-g09d2