diff options
| author | Alain Frisch <alain@frisch.fr> | 2012-01-18 08:31:11 +0000 |
|---|---|---|
| committer | Alain Frisch <alain@frisch.fr> | 2012-01-18 08:31:11 +0000 |
| commit | c45bcb892d78f3182acb2805aef7ec6e23cce42a (patch) | |
| tree | b92b5d6becb9e67a198bc2e070d748eeef62bc3d /otherlibs/unix/unixsupport.c | |
| parent | cdbb84ec682704379bac21a633cbd2b9e93b35a8 (diff) | |
| parent | 869feeb00704e0640c45ffe6aee6cc13e4077f79 (diff) | |
| download | ocaml-unused_declarations.tar.gz | |
Synchronize with trunk.unused_declarations
git-svn-id: http://caml.inria.fr/svn/ocaml/branches/unused_declarations@12034 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'otherlibs/unix/unixsupport.c')
| -rw-r--r-- | otherlibs/unix/unixsupport.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/otherlibs/unix/unixsupport.c b/otherlibs/unix/unixsupport.c index 3138115a6f..4c91adb104 100644 --- a/otherlibs/unix/unixsupport.c +++ b/otherlibs/unix/unixsupport.c @@ -165,7 +165,11 @@ #define ESOCKTNOSUPPORT (-1) #endif #ifndef EOPNOTSUPP -#define EOPNOTSUPP (-1) +# ifdef ENOTSUP +# define EOPNOTSUPP ENOTSUP +# else +# define EOPNOTSUPP (-1) +# endif #endif #ifndef EPFNOSUPPORT #define EPFNOSUPPORT (-1) @@ -252,6 +256,11 @@ value unix_error_of_code (int errcode) int errconstr; value err; +#if defined(ENOTSUP) && (EOPNOTSUPP != ENOTSUP) + if (errcode == ENOTSUP) + errcode = EOPNOTSUPP; +#endif + errconstr = cst_to_constr(errcode, error_table, sizeof(error_table)/sizeof(int), -1); if (errconstr == Val_int(-1)) { |