Changeset 13044


Ignore:
Timestamp:
Oct 19, 2009, 8:56:19 AM (15 years ago)
Author:
gz
Message:

Windows-only changes (r13025, r13026) from trunk. This branch is now fully merged with sources for CCL 1.4-RC1

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • branches/working-0711/ccl/level-1/linux-files.lisp

    r12969 r13044  
    714714                    (%null-ptr)
    715715                    #$OPEN_EXISTING
    716                     #$FILE_ATTRIBUTE_NORMAL
     716                    #$FILE_FLAG_BACKUP_SEMANTICS
    717717                    (%null-ptr))))
    718718      (if (eql handle *windows-invalid-handle*)

  • branches/working-0711/ccl/lisp-kernel/windows-calls.c

    r12987 r13044  
    195195
    196196  if ((flag & _O_WRONLY) == _O_WRONLY) {
    197     dwDesiredAccess |= GENERIC_WRITE | FILE_WRITE_DATA |
    198       FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
     197    dwDesiredAccess |= GENERIC_WRITE;
    199198  } else if ((flag & _O_RDWR) == _O_RDWR) {
    200     dwDesiredAccess |= GENERIC_WRITE|GENERIC_READ | FILE_READ_DATA |
    201       FILE_WRITE_DATA | FILE_READ_ATTRIBUTES | FILE_WRITE_ATTRIBUTES;
     199    dwDesiredAccess |= GENERIC_WRITE|GENERIC_READ;
    202200  } else {
    203     dwDesiredAccess |= GENERIC_READ | FILE_READ_DATA | FILE_READ_ATTRIBUTES |
    204       FILE_WRITE_ATTRIBUTES;
     201    dwDesiredAccess |= GENERIC_READ;
    205202  }
    206203   
Note: See TracChangeset for help on using the changeset viewer.