Commit b25d5860 authored by Builder's avatar Builder

fix pipe buffer size query on mac

parent b8828c11
Pipeline #42017 passed with stage
in 2 minutes and 9 seconds
......@@ -2,6 +2,7 @@ definition module System._Posix
from System._Pointer import :: Pointer
from System.Time import :: Tm, :: Timespec
from System.OSError import :: MaybeOSError, :: MaybeError, :: OSErrorCode, :: OSErrorMessage, :: OSError
WNOHANG :== 0x00000001
WUNTRACED :== 0x00000002
......
......@@ -2,6 +2,7 @@ implementation module System._Posix
import System._Pointer, System.Time
import StdInt
import System.OSError
errno :: !*w -> (!Int,!*w)
errno world = (getErrno,world)
......@@ -221,3 +222,8 @@ pipeBufferSize fd world
| res == -1 = getLastOSError world
# (bufsize, ptr) = readP (\p->readInt4Z p 0) ptr
= (Ok bufsize, freeSt ptr world)
where
isatty :: !Int !*w -> (!Int, !*w)
isatty _ _ = code {
ccall isatty "I:I:A"
}
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