bugfix: exception handling (still not correct)

This commit is contained in:
Andreas Rumpf
2010-06-04 00:45:46 +02:00
parent 909f7dbf8c
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".}