summaryrefslogtreecommitdiff
path: root/otherlibs/unix/errmsg.c
diff options
context:
space:
mode:
authorNo author <no_author@ocaml.org>1995-06-15 16:08:54 +0000
committerNo author <no_author@ocaml.org>1995-06-15 16:08:54 +0000
commit77b1c8b89fd8940a63b17c41eb37161e5d159831 (patch)
tree43dbfb3982d9166b717199cb8faa97bdce30add7 /otherlibs/unix/errmsg.c
parentba79d4bd1f01a70b892c69f6a5e6e86714a023d6 (diff)
downloadocaml-unlabeled-1.2.2.tar.gz
This commit was manufactured by cvs2svn to create branchunlabeled-1.2.2
'unlabeled-1.2.2'. git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unlabeled-1.2.2@37 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/errmsg.c')
-rw-r--r--otherlibs/unix/errmsg.c36
1 files changed, 0 insertions, 36 deletions
diff --git a/otherlibs/unix/errmsg.c b/otherlibs/unix/errmsg.c
deleted file mode 100644
index d3efc8414b..0000000000
--- a/otherlibs/unix/errmsg.c
+++ /dev/null
@@ -1,36 +0,0 @@
-#include <errno.h>
-#include <mlvalues.h>
-#include <alloc.h>
-
-extern int error_table[];
-
-#ifdef HAS_STRERROR
-
-#include <string.h>
-
-value unix_error_message(err)
- value err;
-{
- int errnum;
- errnum = error_table[Tag_val(err)];
- return copy_string(strerror(errno));
-}
-
-#else
-
-extern int sys_nerr;
-extern char *sys_errlist[];
-
-value unix_error_message(err)
- value err;
-{
- int errnum;
- errnum = error_table[Tag_val(err)];
- if (errnum < 0 || errnum >= sys_nerr) {
- return copy_string("Unknown error");
- } else {
- return copy_string(sys_errlist[errnum]);
- }
-}
-
-#endif