summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorDamien Doligez <damien.doligez-inria.fr>1999-07-22 12:59:43 +0000
committerDamien Doligez <damien.doligez-inria.fr>1999-07-22 12:59:43 +0000
commit8d6245cdbedf4528cab4ff7c46b3ab37c11b0b4a (patch)
tree8e1e38a4b64d52e166be2ae2cbc3c860c2e1d760
parent7e9fb6b76c85c6edeae91d0cc8096e9e1328d694 (diff)
downloadocaml-8d6245cdbedf4528cab4ff7c46b3ab37c11b0b4a.tar.gz
ajout de Random.self_init. Attention bootstrap difficile.
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2383 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
-rw-r--r--byterun/sys.c5
1 files changed, 5 insertions, 0 deletions
diff --git a/byterun/sys.c b/byterun/sys.c
index 4754bf7ed6..68b17b9bc1 100644
--- a/byterun/sys.c
+++ b/byterun/sys.c
@@ -262,6 +262,11 @@ value sys_time(value unit) /* ML */
#endif
}
+value sys_date (value unit) /* ML */
+{
+ return copy_double ((double) time (NULL));
+}
+
value sys_get_config(value unit) /* ML */
{
value result;