diff options
| -rw-r--r-- | otherlibs/win32unix/Makefile.nt | 2 | ||||
| -rw-r--r-- | otherlibs/win32unix/unix.ml | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/otherlibs/win32unix/Makefile.nt b/otherlibs/win32unix/Makefile.nt index ec0d4be43..f6fe46bba 100644 --- a/otherlibs/win32unix/Makefile.nt +++ b/otherlibs/win32unix/Makefile.nt @@ -17,7 +17,7 @@ WIN_OBJS = accept.obj bind.obj channels.obj close.obj \ unixsupport.obj windir.obj winwait.obj write.obj # Files from the ..\unix directory -UNIX_FILES = access.c addrofstr.c chdir.c cst2constr.c \ +UNIX_FILES = access.c addrofstr.c chdir.c chmod.c cst2constr.c \ cstringv.c envir.c errmsg.c execv.c execve.c execvp.c \ exit.c getcwd.c gethost.c gethostname.c getproto.c \ getserv.c gmtime.c putenv.c rename.c rmdir.c \ diff --git a/otherlibs/win32unix/unix.ml b/otherlibs/win32unix/unix.ml index 0870304df..c85fcafd2 100644 --- a/otherlibs/win32unix/unix.ml +++ b/otherlibs/win32unix/unix.ml @@ -260,7 +260,7 @@ type access_permission = | X_OK | F_OK -let chmod file perm = invalid_arg "Unix.chmod not implemented" +external chmod : string -> file_perm -> unit = "unix_chmod" let fchmod fd perm = invalid_arg "Unix.fchmod not implemented" let chown file perm = invalid_arg "Unix.chown not implemented" let fchown fd perm = invalid_arg "Unix.fchown not implemented" |