[Openmcl-cvs-notifications] r13025 - /trunk/source/lisp-kernel/windows-calls.c

[gb at clozure.com]

Author: gb
Date: Thu Oct 15 13:12:45 2009
New Revision: 13025

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

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

Modified: trunk/source/lisp-kernel/windows-calls.c
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lisp-kernel/windows-calls.c (original)
+++ trunk/source/lisp-kernel/windows-calls.c Thu Oct 15 13:12:45 2009
@@ -194,14 +194,11 @@
   dwShareMode =3D FILE_SHARE_READ | FILE_SHARE_WRITE | FILE_SHARE_DELETE;
 =

   if ((flag & _O_WRONLY) =3D=3D _O_WRONLY) {
-    dwDesiredAccess |=3D GENERIC_WRITE | FILE_WRITE_DATA |
-      FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |=3D GENERIC_WRITE;
   } else if ((flag & _O_RDWR) =3D=3D _O_RDWR) {
-    dwDesiredAccess |=3D GENERIC_WRITE|GENERIC_READ | FILE_READ_DATA |
-      FILE_WRITE_DATA | FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |=3D GENERIC_WRITE|GENERIC_READ;
   } else {
-    dwDesiredAccess |=3D GENERIC_READ | FILE_READ_DATA | FILE_READ_ATTRIBU=
TES |
-      FILE_WRITE_ATTRIBUTES;
+    dwDesiredAccess |=3D GENERIC_READ;
   }
     =

 =