Changeset 13025

Timestamp:

Oct 15, 2009, 10:12:45 AM (15 years ago)

Author:

Gary Byers

Message:

lisp_open: don't ask for more than some combination of GENERIC_READ/
GENERIC_WRITE access.

File:

• trunk/source/lisp-kernel/windows-calls.c (modified) (1 diff)

trunk/source/lisp-kernel/windows-calls.c

@@ -195 +195 @@
 
   if ((flag & _O_WRONLY) == _O_WRONLY) {
-    dwDesiredAccess |= GENERIC_WRITE | FILE_WRITE_DATA |
-      FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |= GENERIC_WRITE;
   } else if ((flag & _O_RDWR) == _O_RDWR) {
-    dwDesiredAccess |= GENERIC_WRITE|GENERIC_READ | FILE_READ_DATA |
-      FILE_WRITE_DATA | FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |= GENERIC_WRITE|GENERIC_READ;
   } else {
-    dwDesiredAccess |= GENERIC_READ | FILE_READ_DATA | FILE_READ_ATTRIBUTES |
-      FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |= GENERIC_READ;
   }