make tests on Windows green under --pedantic

This commit is contained in:
Araq 2017-02-02 21:12:36 +01:00
commit e236039d10
4 changed files with 15 additions and 17 deletions

View file

@ -630,7 +630,7 @@ proc getch*(): char =
when defined(windows):
let fd = getStdHandle(STD_INPUT_HANDLE)
var keyEvent = KEY_EVENT_RECORD()
var numRead: cint
var numRead: cint
while true:
# Block until character is entered
doAssert(waitForSingleObject(fd, INFINITE) == WAIT_OBJECT_0)