diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-18 08:33:06 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1996-07-18 08:33:06 +0000 |
| commit | 565ab80e025cc7c3ee4ed95ed0721c85d3132ca4 (patch) | |
| tree | f6542176948670f7547f82c8802399353eb6635a /otherlibs/unix | |
| parent | 77c04d429feaabb6d84b794bf8d3f03404d443d2 (diff) | |
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
Diffstat (limited to 'otherlibs/unix')
| -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" |