From: Brad King <brad.king@kitware.com>
Date: Wed, 11 Nov 2009 14:20:38 +0000 (-0500)
Subject: Borland signature of _open has no mode
X-Git-Tag: v2.8.0~170
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=02ac6f7690bec66440b823cd576092cb0b745f4a;p=thirdparty%2Flibarchive.git

Borland signature of _open has no mode

SVN-Revision: 1645
---

diff --git a/libarchive/archive_windows.c b/libarchive/archive_windows.c
index 78b7ce396..3297bbbee 100644
--- 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);