Commit b0f3f276 authored by Mart Lubbers's avatar Mart Lubbers

serial port fix windows part

parent 63c573f4
Pipeline #27861 failed with stage
in 2 minutes and 17 seconds
......@@ -14,11 +14,13 @@ getDevices :: !*World -> *(MaybeOSError [String], !*World)
getDevices w
# (ph, w) = getProcessHeap w
# (ptr, w) = heapAlloc ph 0 40960 w
| ptr == 0 = getLastOSError w
# (ret, w) = realQDD 0 ptr 40960 w
| ret == 0
= getLastError w
= getLastOSError w
#! res = derefCharArray ptr ret
# (ok, w) = heapFree ph 0 ptr w
| not ok = getLastOSError w
= (Ok (split "\0" res), w)
realQDD :: !Pointer !Pointer !Int !*env -> *(!Int, !*env)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment