This commit was manufactured by cvs2svn to create branchunlabeled-1.1.2

'unlabeled-1.1.2'.

git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unlabeled-1.1.2@35 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 0 insertions, 35 deletions

diff --git a/otherlibs/unix/wait.c b/otherlibs/unix/wait.c
deleted file mode 100644
index 1f41da9f3d..0000000000
--- a/otherlibs/unix/wait.c
+++ /dev/null
@@ -1,35 +0,0 @@
-#include <mlvalues.h>
-#include <alloc.h>
-#include <memory.h>
-#include "unix.h"
-
-value unix_wait()                /* ML */
-{
-  value res;
-  int pid, status;
-  Push_roots(r, 1);
-#define st r[0]
-  pid = wait(&status);
-  if (pid == -1) uerror("wait", Nothing);
-  switch (status & 0xFF) {
-  case 0:
-    st = alloc(1, 0);
-    Field(st, 0) = Val_int((status >> 8) & 0xFF);
-    break;
-  case 0177:
-    st = alloc(1, 2);
-    Field(st, 0) = Val_int((status >> 8) & 0xFF);
-    break;
-  default:
-    st = alloc(2, 1);
-    Field(st, 0) = Val_int(status & 0x3F);
-    Field(st, 1) = status & 0200 ? Val_true : Val_false;
-    break;
-  }
-  res = alloc_tuple(2);
-  Field(res, 0) = Val_int(pid);
-  Field(res, 1) = st;
-  Pop_roots();
-  return res;
-}
-