async might work now reliably

This commit is contained in:
Araq 2014-04-30 00:52:58 +02:00
commit d438ecc246
3 changed files with 32 additions and 27 deletions

View file

@ -639,7 +639,7 @@ proc unmapViewOfFile*(lpBaseAddress: pointer): WINBOOL {.stdcall,
dynlib: "kernel32", importc: "UnmapViewOfFile".}
type
TOVERLAPPED* {.final, pure.} = object
TOVERLAPPED* {.pure, inheritable.} = object
Internal*: DWORD
InternalHigh*: DWORD
Offset*: DWORD
@ -672,7 +672,7 @@ proc CreateIoCompletionPort*(FileHandle: THANDLE, ExistingCompletionPort: THANDL
proc GetQueuedCompletionStatus*(CompletionPort: THandle,
lpNumberOfBytesTransferred: PDWORD, lpCompletionKey: PULONG,
lpOverlapped: ptr POverlapped,
lpOverlapped: pointer,
dwMilliseconds: DWORD): WINBOOL{.stdcall,
dynlib: "kernel32", importc: "GetQueuedCompletionStatus".}