Borland signature of _open has no mode

SVN-Revision: 1645

diff --git a/libarchive/archive_windows.c b/libarchive/archive_windows.c
index 78b7ce39617aff501a509905ed75fac3cdd4fab7..3297bbbeecf5ffb64d4655055d79bd16b7c85387 100644 (file)
--- a/libarchive/archive_windows.c
+++ b/libarchive/archive_windows.c
@@ -640,7 +640,13 @@ __la_open(const char *path, int flags, ...)
                }
        }
        if (ws == NULL) {
+#if defined(__BORLANDC__)
+               /* Borland has no mode argument.
+                  TODO: Fix mode of new file.  */
+               r = _open(path, flags);
+#else
                r = _open(path, flags, pmode);
+#endif
                if (r < 0 && errno == EACCES && (flags & O_CREAT) != 0) {
                        /* simular other POSIX system action to pass a test */
                        attr = GetFileAttributesA(path);