bugfix: exception handling (still not correct)

This commit is contained in:
Andreas Rumpf 2010-06-04 00:45:46 +02:00
commit c441cdb64c
18 changed files with 145 additions and 39 deletions

0
lib/windows/psapi.nim Normal file → Executable file
View file

View file

@ -192,6 +192,9 @@ proc rdFileTime*(f: FILETIME): int64 =
proc rdFileSize*(f: TWin32FindData): int64 =
result = ze64(f.nFileSizeLow) or (ze64(f.nFileSizeHigh) shl 32)
proc GetSystemTimeAsFileTime*(lpSystemTimeAsFileTime: var FileTime) {.
importc: "GetSystemTimeAsFileTime", dynlib: "kernel32", stdcall.}
proc Sleep*(dwMilliseconds: int32){.stdcall, dynlib: "kernel32",
importc: "Sleep".}