diff options
Diffstat (limited to 'otherlibs/unix/fcntl.c')
-rw-r--r-- | otherlibs/unix/fcntl.c | 20 |
1 files changed, 0 insertions, 20 deletions
diff --git a/otherlibs/unix/fcntl.c b/otherlibs/unix/fcntl.c deleted file mode 100644 index 7898d3c848..0000000000 --- a/otherlibs/unix/fcntl.c +++ /dev/null @@ -1,20 +0,0 @@ -#include <mlvalues.h> -#include "unix.h" - -value unix_fcntl_int(fd, request, arg) - value fd, request, arg; -{ - int retcode; - retcode = fcntl(Int_val(fd), Int_val(request), (char *) Int_val(arg)); - if (retcode == -1) uerror("fcntl_int", Nothing); - return Val_int(retcode); -} - -value unix_fcntl_ptr(fd, request, arg) - value fd, request, arg; -{ - int retcode; - retcode = fcntl(Int_val(fd), Int_val(request), String_val(arg)); - if (retcode == -1) uerror("fcntl_ptr", Nothing); - return Val_int(retcode); -} |