make tests on Windows green under --pedantic
This commit is contained in:
parent
899d84e06d
commit
e236039d10
4 changed files with 15 additions and 17 deletions
|
|
@ -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)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue